EXCEL VBS: Ermitlung letzte Zeile/Spalte im Worksheet

Geschrieben von Ralf Entner am
Problem:
Hier noch die Ermittlung der letzten Zeile/Spalte unter VBS in Excel

Lösung:

VBS
'letzte Zeile in "A" suchen
Zeilenanzahl = objXLS.Cells(objXLS.Rows.Count, 1).End(xlUp).Row

'letzte Spalte in Zeile 1 suchen
Spaltenanzahl = LZ = objXLS.Cells(objXLS.Columns.Count, 1).End(xlUp).Column


Selbstverständlich benötigen wir hierzu noch das entsprechende Objekt und eine Excel Workbook:

'Excel-Objekt und Workbook erstellen
set objXLS = CreateObject("Excel.Application")
set objWB = objXLS.Workbooks
objWB.Add
“Das einzig sichere System müsste ausgeschaltet, in einem versiegelten und von Stahlbeton ummantelten Raum und von bewaffneten Schutztruppen umstellt sein.”
Gene Spafford (Sicherheitsexperte)