Zeilen Farbig einfärben
20.03.2016 21:54:41
Laser
Ich verwende zur Zeit einen Code der mir eine Zeile von - Bis Gelb einfärb wenn in spalte B ein Ü steht.
Nun würde ich das gerne über einen Button Machen, der Hintergrund ich lass per makro einen kompletten Text einfügen mit mehreren Ü aber er nimmt nur den ersten eintrag immer die anderen gehen nicht.
hätte wer eine Idee? bin VBA nicht gut drauf.
das wäre der Code im Moment
Private Sub Worksheet_Change(ByVal Target As Excel.Range)
Const Von As String = "A"
Const Bis As String = "AO"
Select Case Cells(Target.Row, "B").Value
Case Is = "Ü"
Range(Cells(Target.Row, Von), Cells(Target.Row, Bis)).Interior.ColorIndex = 6
End Select
End Sub
mfg
Laser