ICh möchte zwei Spalten vergleichen. Wenn in der rechten Spalte ein Wert seht, dann soll in der linken Spalte ein * eingefügt werden. Ansonsten ein Standardwert wie nn.
Kann mir da jemand weiterhelfen?
Gruß
Marco
Private Sub check_rechte_spalte()
Dim i As Integer
For i = 1 To Cells(Rows.Count, 2).End(xlUp).Row ' Die 2 steht exemplarisch für Spalte B
If Not IsEmpty(Range("B" & i)) Then
Range("A" & i) = "*"
End If
Next i
End Sub