Excel Tabelle Zeile für Zeile einlesen

Einleitung

Wenn du in Excel größgrößere Tabellen bearbeiten mömöchtest, bietet es sich anan, diese automatisch durcharbeiten zu lassen. Dieses kannst du üüber eine For Schleife realisieren. Diese ermittelt erst die letzte Zeile und geht dann Zeile füfür Zeile durch. In der Schleife selbst kannst du dann den Code angebenangeben, den du benötigstbenötigst, um die Daten zu verarbeiten.

Code

Sub FormatData()

    Application.ScreenUpdating = False
    

    
    Dim y As Long

    Dim ws As Worksheet: Set ws = Worksheets("Data")

    Dim numberOfRows As Long: numberOfRows = ws.Cells(Rows.Count, 1).End(xlUp).Row
    

    
    For y = 2 To numberOfRows

		Debug.Print(ws.Range("A" & y).Value)

    Next y
    

    
    Application.ScreenUpdating = True



End Sub

Code ErkläErklärung

Als erstesErstes werden 2 Variablen deklariert und 1 Objekt instanziertinstanziiert und Bildschirm Aktualisierungen deaktiviert. Die Variable numberOfRows erhä erhält die Zeilen NummerZeilennummer der letzten Zeile. Damit hat die Schleife ein Limit.

Im nänächsten Schritt,Schritt wird die Schleife erstellt. Die Schleife fäfängt ab Zeile 2 an, da die Tabelle eine ÃœÜberschrift hat und diese nicht mit eingelesen werden muss.

In der Schleife selbst gibt er nur den Inhalt der aktuellen Zelle in Spalte A aus.

Als letztesLetztes werden dann die Bildschirm Bildschirm-Aktualisierungen wieder aktiviert.

Wenn du den Code in ein Modul einfüeinfügst, hast du von jedem Tabellenblatt Zugriff drauf.