Excel VBA letzte Zeile, Spalte, Zelle ermitteln

In einigen Situationen kann es hilfreich sein, per Excel VBA oder Makro die letzte Zeile, Spalte oder Zelle zu ermitteln.

Wir selbst benutzen einige dieser VBA-Funktionen um ETL-Prozesse, Datenvalidierungen oder

Excel VBA letzte Zeile, Spalte, Zelle ermitteln

Möge die Macht mit euch sein – Excel Zelle, Zeile

Bereinigungen durchzuführen – oder um aus Excel Anwendungen Web oder Datenbanksysteme aufzubauen.

Bei unseren Excel-Addin-Karten sollten diese Funktionen ebenfalls hilfreich sein, wenn Sie aus Ihrem CRM-System die Kundendaten extrahieren und in einem neuen Workbook visualisieren wollen.

 

Excel VBA letzte Zeile

Ermitteln der letzten Zeile (engl. Row) in Spalte A

Letzte_zeile = ActiveSheet.Cells(Rows.Count, 1).End(xlUp).Row

Oder Alternativ

Letzte_zeile = Sheets(1).UsedRange.SpecialCells(xlCellTypeLastCell).Row

 


Nicht zu empfehlende VBA-Codes sind diese Varianten:

Bis MS Excel 2003  

Letzte_zeile = ActiveSheet.Cells(65536, 1).End(xlUp).Row

Ab MS Excel 2007

Letzte_zeile = ActiveSheet.Cells(1048576, 1).End(xlUp).Row


 

Excel VBA letzte Spalte

Gleich in welcher Zeile Sie sich befinden

Letzte_spalte = Sheets(1).UsedRange.SpecialCells(xlCellTypeLastCell).Column

 

Excel VBA letzte Zelle ermitteln

Letzte_zelle = Range(„A1“).SpecialCells(xlCellTypeLastCell).Address

 

Interessant ist auch die Funktion, wenn z.B. gleich die letzte Zelle markiert werden soll. Hierzu kann man die Selection-Methode verwenden:

Beispiel: Range(„A1“).SpecialCells(xlCellTypeLastCell).Select

Excel Addin Heatmap Karte Schweiz vierstelliges PLZ-Diagramm

Excel Addin Karten – 4stellige PLZ

 

Excel VBA Address – Funktion

Für die Excel-Addin Landkarten verwenden wir i.d.R. die Excel ADDRESS Funktion.

 

Die Syntax

ADDRESS( row, column, [ref_type], [ref_style], [sheet_name] )

 

Beispiel

Set Test = Worksheets(1).Cells(1, 1)

MsgBox Test.AddressLocal() ‚ $A$1
MsgBox Test.AddressLocal(RowAbsolute:=False) ‚ $A1
MsgBox Test.AddressLocal(ReferenceStyle:=xlR1C1) ‚ Z1S1
MsgBox Test.AddressLocal(ReferenceStyle:=xlR1C1, _  RowAbsolute:=False, _  ColumnAbsolute:=False,_  RelativeTo:=Worksheets(1).Cells(3, 3)) ‚ Z(-2)S(-2)

 

Mehr hierzu finden Sie in unseren Schulungen-Unterlangen: Excel im Controlling.

 

|

 
Kontakt