VBA-Code zur dynamischen Ermittlung der Position ihres Datenbereichs

Das Ermitteln der ersten bzw. letzten Zeile oder Spalte in Ihrem VBA-Code ist entscheidend, um sicherzustellen, dass Ihr Makro auch in Zukunft einwandfrei funktioniert.
Damit verhindern Sie, dass Sie immer wieder ihren Makro-Code anpassen müssen, um sicherzustellen, dass ihre Maktros funktionieren - dies macht eine Dynamisierung unverzichtbar.
Die Grenzen ihres Datenbereichs müssen zur Laufzeit neu ermittelt werden, um eine einwandfreie Funktionalität zu gewährleisten.

Dies wollen wir zukünftig über Makro-Funktionen im VBA-Code realisieren.

VBA-Funktion zur Ermittlung der ersten verwendeten Zeile:


Function getFirstRow() As Long

' Fehler, wenn Zeile 1 belegt

'    getFirstRow = ActiveSheet.Cells.Find("*", SearchOrder:=xlByRows, _
'        SearchDirection:=xlNext).Row

     getFirstRow = ActiveSheet.UsedRange.Row

End Function

 

VBA-Funktion zur Ermittlung der ersten verwendeten Spalte:


Function getFirstCol() As Long

    getFirstCol = ActiveSheet.Cells.Find("*", SearchOrder:=xlByColumns, _
        SearchDirection:=xlNext).Column

End Function

 

VBA-Funktion zur Ermittlung der letzten verwendeten Zeile:


Function getLastRow() As Long

    getLastRow = ActiveSheet.Cells.Find("*", SearchOrder:=xlByRows, _
        SearchDirection:=xlPrevious).Row

End Function

 

VBA-Funktion zur Ermittlung der letzten verwendeten Spalte:


Function getLastCol() As Long

    getLastCol = ActiveSheet.Cells.Find("*", SearchOrder:=xlByColumns, _
        SearchDirection:=xlPrevious).Column

End Function

 Besonders hilfreich war an dieser Stelle die Lektüre des Artikels "VBA-Code zur Ermittlung der letzten Zeile oder der letzten Spalte (die beste Methode)"

zurück