For Next Schleife mit 2 Worksheets
09.12.2020 16:06:43
Marin
mit folgendem Code wollte ich erreichen, dass wenn im Tabellenblatt "Database" ein gewisser _
Wert steht, im Tabellenblatt "Unternehmen" die Schriftfarbe angepasst wird:
Sub Farblichekenntlichmachung_Kommunenart()
Dim i As Integer
With Sheets("Database")
For i = 2 To 31
If Cells(i, 3).Value Like "*Kreisfreie Stadt*" Then
With Sheets("Unternehmen")
Cells(i, 1).Font.ColorIndex = 3 'rot
End With
'With Sheets("Database")
ElseIf Cells(i, 3).Value Like "*Große kreisangehörige Stadt*" Then
With Sheets("Unternehmen")
Cells(i, 1).Font.ColorIndex = 5 'blau
End With
'With Sheets("Database")
ElseIf Cells(i, 3).Value Like "*Kreisangehörige Stadt*" Then
With Sheets("Unternehmen")
Cells(i, 1).Font.ColorIndex = 4 'grün
End With
End If
Next
End With
End Sub
Leider wird die farbliche Änderung im Tabellenblatt "Database" ausgeführt. Ich hatte gehofft mit With Sheets ("Unternehmen") das zu verhindern.
Wie muss ich vorgehen? Vielen DAnk im Voraus.
PS: Ich hatte vor einigen Tagen eine Frage zu Pivot. Die Antworten waren super. Leider kann ich in keiner Weise darauf reagieren. Also ein Dank von dieser Stelle an Franz und Yal.