Skip to main content

Excel Tabelle Zeile für Zeile einlesen

Einleitung

Wenn du in Excel größere Tabellen bearbeiten möchtest, bietet es sich an diese automatisch durcharbeiten zu lassen. Dieses kannst du über eine For Schleife realisieren. Diese ermittelt erst die letzte Zeile und geht dann Zeile für Zeile durch. In der Schleife selbst kannst du dann den Code angeben den du benö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ärung

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

Im nächsten Schritt, wird die Schleife erstellt. Die Schleife 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 letztes werden dann die Bildschirm Aktualisierungen wieder aktiviert.

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