Letzte leere Zeile in einem Zeilenbereich ermittel
07.05.2019 15:28:15
Werner
ich möchte mit VBA einen Text in eine mehrspaltige Zeile übernehmen und zwar in die erste leere verfügbare Zeile. Die Zeilen sind nicht immer in allen Spalten belegt. Das heißt, dass die letzte Zeile auch leere Zellen haben kann.
Mit meinem Code ermittel ich bisher irgendwie nur "die" letzte leere Zelle in meiner Tabelle, ich brauche aber die letzte komplett leere Zeile in einem bestimmten Spaltenbereich (A:G).
Habe schon viel getüftelt, bekomme es aber nicht hin.
Hat jemand einen Tipp, wie ich meinen Code ändern bzw. ergänzen muss?
Private Sub Cmd_Speichern_click()
'Variablen definieren
Dim intZaehler1 As Integer
'der Variablen einen Ausgangswert übergeben
intZaehler1 = 4
'Letzte Zeile im Journal ermitteln
Do While Worksheets("Journal").Cells(intZaehler1, 1).Value Empty
intZaehler1 = intZaehler1 + 1
Loop
'Werte ins Journal schreiben
With Tabelle1
.Cells(intZaehler1, 1).Value = Date
End With
End Sub