ChatGPT-Thema: Werte sammeln

Erstelle mir bitte einen VBA-Code für folgenden Aufgabe: In Spalte A sollen die Werte aus Zelle A1 aus allen Tabellenblättern mit dem Namen 'Tabelle1' aller Arbeitsmappen aus dem in Zelle B1 genannten Verzeichnis eingelesen werden.

Um die Werte aus Zelle A1 aus allen Tabellenblättern mit dem Namen 'Tabelle1' in Spalte A einzulesen, könntest du folgenden VBA-Code verwenden:

Sub Werte_einlesen()

  Dim Verzeichnis As String

  Dim Arbeitsmappe As Workbook

  Dim Tabelle As Worksheet



  Verzeichnis = Range("B1").Value



  ' Alle Arbeitsmappen im Verzeichnis durchlaufen

  For Each Arbeitsmappe In Workbooks

    If Arbeitsmappe.Name Like "*.xls*" And Arbeitsmappe.Name Like Verzeichnis & "*" Then

      ' Tabelle1 des aktuellen Arbeitsbuchs durchlaufen

      For Each Tabelle In Arbeitsmappe.Sheets

        If Tabelle.Name = "Tabelle1" Then

          ' Wert aus Zelle A1 einfügen

          Range("A1").Value = Tabelle.Range("A1").Value

          ' Zelle A1 in nächste leere Zelle in Spalte A einfügen

          Range("A1").Copy Destination:=Range("A" & Rows.Count).End(xlUp).Offset(1, 0)

        End If

      Next Tabelle

    End If

  Next Arbeitsmappe

End Sub

Vergesse nicht, dass du die Zelle B1 mit dem Pfad des Verzeichnisses befüllen musst, in dem sich die Arbeitsmappen befinden, in denen du die Werte auslesen möchtest.

Ich hoffe, dass dieser Code hilfreich ist! Solltest du weitere Fragen oder Anmerkungen haben, zögere nicht, mich zu kontaktieren.