Makro Excel: Variable Spalte mit bestimmten Namen markieren?

Hallo,

ich möchte in Excel einen Makro aufnehmen: Es muss eine gesamte Spalte farbig markiert werden, welche den Namen "Müller" trägt.

Die Spalte ist immer variabel, welchen Code kann ich nutzen?

Bin absoluter anfänger und es muss makro sein. Danke

Answer 1

[geri3d]

Meinst du sowas?

Sub FindeName()

Dim sName
Dim zeile
Dim spalte

spalte = 3 ' 3 Steht für Spalte C
'Eingabe des Namens
sName = InputBox("Namen eingeben: ", "Name")
'Zähle bis zur letzten Zeile
For zeile = 1 To Cells(Rows.Count, spalte).End(xlUp).Row
    'Falls Zelle=Name färbe Zeile grün
    If Cells(zeile, spalte).Value = sName Then
        Cells(zeile, spalte).entireRow.Interior.Color = RGB(0, 255, 0)
    Else
        Cells(zeile, spalte).entireRow.Interior.Color = RGB(255, 255, 255)
    End If
Next

End Sub

Woher ich das weiß: eigene Erfahrung

Answer 2

[windsbraut0307]

Also wenn das gesamte Makro nur aus dieser einen Aufgabe besteht, eine Spalte unter einer bestimmten Bedingung gelb zu markieren, kannst du doch auch die Bedingte Formatierung anwenden

Answer 3

[Oubyi, UserMod Light]

Sub Farbe()
Range("Müller").Interior.ColorIndex = 3   '3 ist rot
End Sub

Du solltest aber vermeiden da Umlaute für die Namen zu nutzen.

Woher ich das weiß: Berufserfahrung – IT-Administrator (i.R.)

Comments

[DeeDee07]

Vielleicht ist mit "Namen" nicht die Zuweisung eines Namens zu einem Bereich gemeint, sondern nur die Überschrift. Excel-Namen sind ja normalerweise nicht variabel im Bereich.

[Oubyi, UserMod Light]

@DeeDee07

Da könntest Du recht haben. Ich hatte halt gedacht, wer wendet das Makro auf verschiedene Arbeitsblätter an, in denen der Name für verschiedene Spalten vergeben ist. Aber wenn als Erläuterung nur "....geht nicht" kommt...!?

[Thomas1973220]

geht nicht...

[Oubyi, UserMod Light]

@Thomas1973220

Doch, das geht!

Wenn's bei Dir nicht geht und Du Hilfe willst, wirst Du schon mehr schreiben müssen.