Makro zur Ermittlung von erster und letzter Zeile und Spalte

05/12/2007 - 10:02 von Stefan Anderl | Report spam
Hallo, ich habe bei meinen Programmier-Projekten bereits des öfteren eine
Möglichkeit gesucht, die letzte BENUTZTE Zeile eines Blattes per Programm zu
ermitteln.

Mittlerweile habe ich eine sehr einfache, aber elegante Lösung gefunden, die
ich hier den "Kollegen" vorstellen möchte. Der Trick ist, das
Usedrange-Objekt zu nutzen und auszuwerten.

Sub test_usedrange()

'erste zeile
MsgBox "Die erste belegte Zeile ist: " _ &
ActiveWorkbook.ActiveSheet.UsedRange.Row

'letzte zeile
MsgBox "Die letzte belegte Zeile ist: " _ &
ActiveWorkbook.ActiveSheet.UsedRange.Rows.Count + _
ActiveWorkbook.ActiveSheet.UsedRange.Row

'erste spalte
MsgBox "Die erste belegte Spalte ist: " _ &
ActiveWorkbook.ActiveSheet.UsedRange.Column

'letzte spalte
MsgBox "Die letzte belegte Spalte ist: "_ &
ActiveWorkbook.ActiveSheet.UsedRange.Column + _
ActiveWorkbook.ActiveSheet.UsedRange.Columns.Count

End Sub
 

Lesen sie die antworten

#1 stefan onken
05/12/2007 - 12:09 | Warnen spam
On 5 Dez., 10:02, Stefan Anderl <Stefan Anderl
@discussions.microsoft.com> wrote:
Hallo, ich habe bei meinen Programmier-Projekten bereits des öfteren eine
Möglichkeit gesucht, die letzte BENUTZTE Zeile eines Blattes per Programm zu
ermitteln.

Mittlerweile habe ich eine sehr einfache, aber elegante Lösung gefunden, die
ich hier den "Kollegen" vorstellen möchte. Der Trick ist, das
Usedrange-Objekt zu nutzen und auszuwerten.

Sub test_usedrange()

'erste zeile
MsgBox "Die erste belegte Zeile ist: " _ &
ActiveWorkbook.ActiveSheet.UsedRange.Row

'letzte zeile
MsgBox "Die letzte belegte Zeile ist: " _ &
ActiveWorkbook.ActiveSheet.UsedRange.Rows.Count + _
ActiveWorkbook.ActiveSheet.UsedRange.Row

'erste spalte
MsgBox "Die erste belegte Spalte ist: " _ &
ActiveWorkbook.ActiveSheet.UsedRange.Column

'letzte spalte
MsgBox "Die letzte belegte Spalte ist: "_ &
ActiveWorkbook.ActiveSheet.UsedRange.Column + _
ActiveWorkbook.ActiveSheet.UsedRange.Columns.Count

End Sub



hallo Stefan,
mE ist letzteZeile und letzteSpalte nicht korrekt:
angenommen, ich habe Daten nur in Zeile1, dann ergibt
UsedRange.Rows.Count =1 und UsedRange.Row =1 und LetzteZeile damit 2.
Du müsstest also 1 abziehen.

Gruß
stefan

Ähnliche fragen