Diese Webseite nutzt Cookies

Diese Webseite nutzt Cookies zur Verbesserung des Erlebnisses unserer Besucher. Indem Sie weiterhin auf dieser Webseite navigieren, erklären Sie sich mit unserer Verwendung von Cookies einverstanden.

Einige dieser Cookies sind technisch zwingend notwendig, um gewissen Funktionen der Webseite zu gewährleisten.

Darüber hinaus verwenden wir einige Cookies, die dazu dienen, Informationen über das Benutzerverhalten auf dieser Webseite zu gewinnen und unsere Webseite auf Basis dieser Informationen stetig zu verbessern.

MENU-1 ###MENU-2###MENU-2 ###MENU-3###MENU-3 ###MENU-4###MENU-4 ###MENU-5###MENU-5 ###MENU-6###MENU-6 ###MENU-7###MENU-7 ###MENU-8###MENU-8
###CONTENT-MENU### ###SUBTITEL###

Zeilen und Spalten ermitteln

'Ermitteln der letzte Zeile über alle Spalten

letztezeile = ActiveSheet.UsedRange.SpecialCells(xlCellTypeLastCell).Row

MsgBox "letzte Zeile über alle Spalten: " & letztezeile

 

'Ermitteln der letzte Zeile der Spalte A

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

MsgBox "letzte Zeile der Spalte A: " & letztezeile'letzte Spalte über alle Zeilen

 

'Ermitteln der letzten Zeile über alle Zeilen

letztespalte = ActiveSheet.UsedRange.SpecialCells(xlCellTypeLastCell).Column

MsgBox "letzte Spalte über alle Zeilen: " & letztespalte

 

'Ermitteln der letzte Spalte der Zeile 4

letztespalte = ActiveSheet.Cells(4, Columns.Count).End(xlToLeft).Column

MsgBox "letzte Spalte der Zeile 4: " & letztespalte

###ELEMENT_TEST### ###LAYOUT###
###RECHTS### ###ANMELDUNG###
###POWERED###