VBA Spalte auslesen

Forumthread: VBA Spalte auslesen

VBA Spalte auslesen

02.04.2016 17:19:50

Thomas

Hallo,
bräuchte mal eure Hilfe für VBA in Excel.
Bräuchte eine Routine und zwar wie folgt:
Lese in der Tabelle 2 über die Spalte B
übertrage den Wert in Tabelle 1 unter dem Feld B1
dann soll ein Makro gestartet werden
und dann nächsten Eintrag von Tabelle 2 in der Spalte B usw.
bis keine Einträge mehr in der Spalte B vorhanden sind
Danke für eure Hilfe
Gruss
Thomas

2
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: VBA Spalte auslesen

02.04.2016 20:40:05

Arthur
AW: VBA Spalte auslesen

05.04.2016 18:47:12

Thomas

AW: VBA Spalte auslesen

02.04.2016 20:40:05

Arthur

Hallo Thomas.
Versuch' mal hiermit:

Sub doncopy()
Dim Index As Long
For Index = 2 To Worksheets("Tabelle2").UsedRange.Rows.Count
Worksheets("Tabelle1").Cells(Index, 2) = Worksheets("Tabelle2").Cells(Index, 2)
' do anything else
Next
End Sub

Gruß, Arthur.

AW: VBA Spalte auslesen

05.04.2016 18:47:12

Thomas

Danke Arthur hat soweit alles prima geklappt

Infobox / Tutorial

Schritt-für-Schritt-Anleitung

Öffne Excel und lade die Arbeitsmappe, in der du die Daten verarbeiten möchtest.
Drücke ALT + F11, um den Visual Basic for Applications (VBA) Editor zu öffnen.
Füge ein neues Modul hinzu:
- Klicke mit der rechten Maustaste auf "VBAProject (dein Arbeitsmappenname)".
- Wähle "Einfügen" und dann "Modul".

Kopiere den folgenden VBA-Code in das Modul:

Sub doncopy()
   Dim Index As Long
   For Index = 2 To Worksheets("Tabelle2").UsedRange.Rows.Count
       Worksheets("Tabelle1").Cells(Index, 2) = Worksheets("Tabelle2").Cells(Index, 2)
       ' Hier kannst du weitere Aktionen durchführen
   Next
End Sub

Schließe den VBA-Editor und kehre zu Excel zurück.
Führe das Makro aus:
- Drücke ALT + F8, wähle "doncopy" aus und klicke auf "Ausführen".

Damit hast du erfolgreich die Werte aus der Spalte B von Tabelle 2 in die Spalte B von Tabelle 1 übertragen.

Häufige Fehler und Lösungen

Fehler: "Laufzeitfehler 9: Index außerhalb des Bereichs"
Lösung: Stelle sicher, dass die Arbeitsblätter "Tabelle1" und "Tabelle2" genau so benannt sind. Achte auf korrekte Schreibweise und Leerzeichen.
Fehler: "Nichts zu kopieren"
Lösung: Überprüfe, ob in Tabelle 2 tatsächlich Daten in der Spalte B vorhanden sind. Wenn die Spalte leer ist, wird nichts kopiert.

Alternative Methoden

Falls du keine VBA-Lösung verwenden möchtest, kannst du auch die Excel-Funktionen nutzen:

Verwende die Funktion =Tabelle2!B2 in Zelle B1 von Tabelle 1, um den Wert direkt zu übernehmen.
Ziehe die Ecke der Zelle nach unten, um die Formel für die weiteren Zeilen anzuwenden.

Diese Methode ist einfacher, benötigt jedoch manuelle Anpassungen, wenn sich die Daten in Tabelle 2 ändern.

Praktische Beispiele

Wenn du beispielsweise Werte aus einer Liste von Namen in Tabelle 2 auslesen möchtest, kannst du die oben genannte VBA-Routine verwenden. Hier ist ein einfaches Beispiel:

Tabelle 2: Spalte B enthält die Namen "Max", "Anna", "Peter".
Tabelle 1: Nach Ausführung des Makros erscheinen die Namen in der Spalte B von Tabelle 1.

Tipps für Profis

Fehlerbehandlung einfügen: Füge On Error Resume Next am Anfang deiner Sub-Prozedur hinzu, um Laufzeitfehler zu ignorieren. Das kann hilfreich sein, wenn du mit unvorhersehbaren Daten arbeitest.
Daten validieren: Überprüfe die Daten in Tabelle 2 vor dem Auslesen, um sicherzustellen, dass sie in dem richtigen Format vorliegen.

FAQ: Häufige Fragen

1. Was mache ich, wenn ich mehr als eine Spalte kopieren möchte?
Du kannst die Schleife anpassen, um mehrere Spalten zu kopieren, indem du die Ziel- und Quellzellen entsprechend änderst.

2. Ist VBA in Excel 365 anders als in früheren Versionen?
Die Grundkonzepte bleiben gleich, aber es gibt einige neue Funktionen und Verbesserungen in der Benutzeroberfläche von Excel 365.

Beliebteste Forumthreads (12 Monate)