Undo bzw. finde value und clear zelle
02.12.2019 14:03:47
Ni
ich hab schon viel durch das Forum als Gast lernen dürfen. Nun finde ich keine Lösung mehr durch Threads von anderen Usern.
Nun habe ich folgende 2 Probleme, wo ich einfach nicht auf die Lösung komme:
1. Möchte ich gerne, dass die erste freie Zelle in der Range "N5:N20" gefunden wird und nicht bis ins unendliche
2. möchte ich gerne bei Else, dass die Eintragung in diese Zelle wieder gelöscht wird
Ich hoffe mit den Angaben kann mir geholfen werden.
Vielen Dank vorab und liebe Grüße
Ni Ab
Code:
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Count = 1 Then
Select Case Target.Address(0, 0)
Case "B4", "B6", "B8", "B10", "B12", "B14", "B16", "B18", "B20"
If Target.Interior.ColorIndex = 15 Or Target.Interior.ColorIndex = xlNone _
Then
Target.Interior.ColorIndex = 35
Cells(Rows.Count, 14).End(xlUp).Offset(1).Value = Target.Value
Else
Target.Interior.ColorIndex = 15
Range("N" & Target.Row) = ""
End If
End Select
End If
End Sub