letzte beschriebene Zelle (erste freie Zelle)Bei diesem Makro könnt Ihr ermitteln, welche Zelle die letzte beschriebene ist, damit Ihr einen Eintrag in die erste freie Zelle machen könnt.
Mit diesem Makro gelangt Ihr sofort in die erste leere Zelle in Spalte A. Die Zeile Cells(Loletzte, 1).Select kann von Euch gelöscht werden, da ich diese nur eingefügt habe, damit Ihr seht, dass die Zelle gefunden wurde.
Option Explicit
Sub erste_leere_zelle()
Dim Loletzte As Long
Loletzte = IIf(IsEmpty(Range("A65536")), Range("A65536"). _
End(xlUp).Row + 1, 65536)
Cells(Loletzte, 1).Select 'das kann gelöscht werden
End Sub
Noch einfacher geht das so: Option Explicit
Sub erste_leere_zelle()
Dim Loletzte As Long
Loletzte = Cells(Rows.Count, 1).End(xlUp).Row + 1
Cells(Loletzte, 1).Select 'das kann gelöscht werden
End Sub Und so sieht der Code aus, wenn Ihr die erste leere Zelle in der Zeile 1 finden möchtet:
Option Explicit
Sub erste_leere_zelle()
Dim Loletzte As Long
Loletzte = Cells(1, Columns.Count).End(xlToLeft).Column + 1
Cells(1, Loletzte).Select 'das kann gelöscht werden
End Sub
Ausserdem haben wir die Möglichkeit die letzte beschriebene Zelle des ganzen genutzten Bereiches eines Excel Sheets abzufragen. Wie das geht seht ihr in dem folgenden Makro:
Option Explicit
Sub letzte_Zeile()
Dim loletzte As Long
loletzte = ActiveSheet.UsedRange.SpecialCells(xlCellTypeLastCell).Row
MsgBox loletzte
End Sub
|
VBA Makro Beispiele 
