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, Spalte

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 Spalte löschen per VBA

Häufig muss auch mal eine individuelle Spalte in einer Excel-Tabelle gelöscht werden. Der VBA Befehl sieht wie folgt aus. Die Anzahl 4 entspricht der Spalten-Nummer, in unserem Fall die Spalte D. xlToLeft bedeutet, dass die Spalten von links gelöscht werden.

Columns(4).Delete Shift:=xlToLeft

 

Excel VBA Zeile einfügen

Per Makro (VBA) lassen sich mit folgendem Befehl eine Zeile (engl. Row) in Excel einfügen. ActiveSheet bedeutet, dass es sich um das aktuelle Tabellenblatt handelt.

ActiveSheet.Rows(2).Insert

 

Excel VBA Zeile löschen

Excel-Zeile löschen mit VBA gelingt mit dem Delete Befehl. Wenn Sie nur eine Nummer eingeben, wir auch nur eine Zeile gelöscht.

ActiveSheet.Rows(5).Delete

Mehrere Zeilen können Sie löschen mit der Angabe eines Bereiches. In unserem Fall die Zeile 5 bis 15 wird hier im aktuellen Tabellenblatt entfernt.

ActiveSheet.Rows(„5:15“).Delete

 

Excel VBA letzte Zelle ermitteln

Es kann hilfreich sein, die letzte Zelle in Excel zu bestimmen. Die Funktion lautet wie folgt:

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