Zelle suchen
07.09.2003 20:24:32
Micha
ich möchte per VBA die letzte nicht geschützte Zelle mit Inhalt einer bestimmten Spalte finden. Folgender Code müsste um die letzte "nicht geschützte Zelle" erweitert werden. Ich weiß aber nicht weiter.
Private Sub Worksheet_Change(ByVal Target As Range)
Dim rng As Range
If Target.Value <> "" Or Target.Column <> 2 Then Exit Sub
Set rng = Cells(Rows.Count, CInt(2)).End(xlUp)
If IsEmpty(rng) Or Target.Row > rng.Row Then
Exit Sub
ElseIf Target.Value = "" Then
Target.Value = rng
rng = ""
End If
End Sub
Im Voraus vielen Dank, Micha