VBA Wenn Dann Abfrage f. mehrere selektiere Zeilen
07.08.2019 10:57:32
Kerstin
Ich habe wieder einmal ein Problem:
Ich habe manuell Zeilen 50 - 55 markiert ( dieses ändert sich ständig!).
Wenn in der ersten markierten Zeile (hier also Zeile 50) in Spalte A "Lidl" steht, dann soll in der gleichen Zeile in Spalte B "L" stehen. Sonst soll in der gleichen Zeile in Spalte B "Nix" stehen.
Das ganze soll für jede markierte Zeile passieren.
Ist wahrscheinlich wieder easy... Für eine markierte Zeile hab ich es geschafft, nur bei mehreren Zeilen meldet sic der Debugger.... :(
Sub Test
If Selection.Columns("A").Value = "Lidl" Then
Selection.Columns("B").Value = "L"
Else: Selection.Columns("B").Value = "Nix"
End If
Selection.Columns("A:AJ").Font.ColorIndex = 40
End Sub
Danke schon mal
Kerstin