VBA Überschrift suchen, Zellen färben

Informationen und Beispiele zu den hier genannten Dialog-Elementen:
MsgBox
Bild

Betrifft: VBA Überschrift suchen, Zellen färben
von: WalterK
Geschrieben am: 20.06.2015 10:47:22

Hallo,
im Kopf hats funktioniert, bei der Ausführung scheiterts dann!
Ich suche eine VBA-Lösung für: Überschrift in anderem Blatt suchen und dort die Spalte nach Vorgabe einfärben.
Ich habe es in der Tabelle detailliert angeführt.
https://www.herber.de/bbs/user/98325.xlsm
Besten Dank für die Hilfe, Servus Walter

Bild

Betrifft: AW: VBA Überschrift suchen, Zellen färben
von: Gerd L
Geschrieben am: 20.06.2015 11:21:31
Servus Walter!

Sub betingte_Formatierung()
Dim Q As Worksheet, Z As Worksheet
Dim Bereich As Range
Dim objZelle As Range
Dim w As String
Dim nr As Variant
Set Q = Worksheets("Tabelle1")
Set Z = Worksheets("Tabelle2")
w = Q.Range("B4")
nr = Application.Match(w, Z.Rows(1), 0)
If Not IsNumeric(nr) Then
    MsgBox "Spaltenuebrschrift mit Suchtext nicht gefunden!", vbInformation
    Exit Sub
End If
Set Bereich = Z.Range(Z.Cells(1, nr), Z.Cells(Z.Rows.Count, nr).End(xlUp))
For Each objZelle In Bereich
    Select Case objZelle.Value
        Case "Apfel": objZelle.Interior.ColorIndex = 6
        Case "Birne": objZelle.Interior.ColorIndex = 37
        Case "Tomate": objZelle.Interior.ColorIndex = 40
    End Select
Next
End Sub
Gruß Gerd

Bild

Betrifft: Besten Dank Gerd, TipTop! Servus, Walter
von: WalterK
Geschrieben am: 20.06.2015 11:35:29


 Bild

Beiträge aus den Excel-Beispielen zum Thema "VBA Überschrift suchen, Zellen färben"