Erste Leere Zelle innerhalb eines Bereiches
10.08.2017 13:54:49
Anja
ich möchte mittels Userform zusätzliche Daten in ein Tabellenblatt eintragen.
Hierfür muss ich die nächste leere Zelle innerhalb eines bestimmten Bereiches (D21:D27) ermitteln. Habe jetzt schon verschiedene Dinge versucht, aber ich erhalte immer die erste Zeile des Bereiches (Zeile 21) als Antwort, obwohl diese nicht leer ist. Kann mir bitte jemand helfen - ich bin Anfänger und so langsam am verzweifeln..
Hier der Code:
Private Sub CommandButton1_Click()
Dim rng, c As Range
With Sheets(b_KundenID)
Set rng = Range("D21:D27")
For Each c In rng
If IsEmpty(c) Or c = "" Then
c.Select
Exit For
End If
Next c
'c = rng.Range("D21:D27").End(xlUp).Row 'gibt auch 21 aus - richtig wäre 23
MsgBox c.Row
MsgBox b_KundenID
End With
End Sub
Anzeige