Excel Tabelle Zeile für Zeile einlesen

Einleitung

Wenn du in Excel größeregrößere Tabellen bearbeiten möchtest,möchtest, bietet es sich anan, diese automatisch durcharbeiten zu lassen. Dieses kannst du überüber eine For Schleife realisieren. Diese ermittelt erst die letzte Zeile und geht dann Zeile fürfü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ärungErklärung

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

Im nächstennächsten Schritt,Schritt wird die Schleife erstellt. Die Schleife fängtfängt ab Zeile 2 an, da die Tabelle eine ÃœberschriftÜ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ügst,einfügst, hast du von jedem Tabellenblatt Zugriff drauf.