Mehrere Blätter in Excel mittels Application.InputBox markieren und die Daten in ein neues Blatt einfügen?

Antwort vom

Um mehrere Blätter in Excel mittels `Application.InputBox` auszuwählen und die ausgewählten Daten in ein neues Blatt einzufügen, kann folgender VBA-Code verwendet werden: ```vba Sub CopySelectedSheetsData() Dim ws As Worksheet Dim newSheet As Worksheet Dim selectedSheets As Variant Dim i As Integer Dim lastRow As Long Dim lastCol As Long Dim destRow As Long ' Eingabeaufforderung zur Auswahl der Blätter selectedSheets = Application.InputBox("Wähle die Blätter aus (durch Komma getrennt):", Type:=8) ' Neues Blatt erstellen Set newSheet = ThisWorkbook.Sheets.Add newSheet.Name = "Zusammengeführte Daten" ' Startzeile für das Einfügen der Daten im neuen Blatt destRow = 1 ' Schleife durch die ausgewählten Blätter For i = LBound(selectedSheets) To UBound(selectedSheets) Set ws = ThisWorkbook.Sheets(selectedSheets(i).Name) ' Letzte Zeile und Spalte im aktuellen Blatt finden lastRow = ws.Cells(ws.Rows.Count, "A").End(xlUp).Row lastCol = ws.Cells(1, ws.Columns.Count).End(xlToLeft).Column ' Daten in das neue Blatt kopieren ws.Range(ws.Cells(1, 1), ws.Cells(lastRow, lastCol)).Copy Destination:=newSheet.Cells(destRow, 1) ' Nächste Startzeile im neuen Blatt berechnen destRow = destRow + lastRow Next i MsgBox "Daten wurden erfolgreich kopiert!" End Sub ``` Dieser Code führt folgende Schritte aus: 1. Zeigt eine Eingabeaufforderung an, um die Blätter auszuwählen. 2. Erstellt ein neues Blatt namens "Zusammengeführte Daten". 3. Kopiert die Daten der ausgewählten Blätter in das neue Blatt. Weitere Informationen zu `Application.InputBox` findest du hier: [Microsoft Documentation](https://docs.microsoft.com/en-us/office/vba/api/excel.application.inputbox).

Kategorie: Technologie Tags: Excel VBA Daten
Neue Frage stellen

Verwandte Fragen

Was bedeutet in Excel-VBA bei 'Steuerelemente formatieren' das Segment 'Alternativtext'?

In Excel (und auch in anderen Office-Anwendungen) dient der Bereich „Alternativtext“ im Dialog „Steuerelemente formatieren“ dazu, eine Beschreibung für das jeweilige Steue...

Wie lautet die korrekte Syntax für ActiveSheet.Protect mit UserInterfaceOnly:=True, AllowFiltering:=True und Passwort "#Prot2026#"?

Die korrekte Syntax für das Schützen eines Arbeitsblatts in VBA mit den gewünschten Optionen und Passwort lautet: ```vba ActiveSheet.Protect Password:="#Prot2026#", UserInter...

Kann ein Nutzer die durch ein VBA-Makro deaktivierte rechte Maustaste im Excel-Menü wieder aktivieren?

Nein, ein Nutzer kann die Deaktivierung der rechten Maustaste, die durch ein VBA-Makro erfolgt ist, nicht direkt über das Excel-Menü aufheben. Das Makro überschreibt das Standardverhalt...

Was ist in Excel-VBA die beste Festlegung für Variablen, die für Schleifen und CHOOSE verwendet werden: Integer oder Long?

In Excel-VBA ist **Long** die beste Festlegung für Variablen, die in Schleifen (z. B. For…Next) oder für die Funktion **Choose** verwendet werden. **Begründung:** - **Integer**-...

Warum funktioniert das Excel-Makro mit Dim zeilen as String, Choose und Rows(zeilen).Hidden = True nicht?

Der Fehler liegt daran, dass du die Variable `zeilen` als `String` deklarierst, aber die Funktion `Rows(zeilen).Hidden = True` einen Bereich erwartet, der als Zeilenreferenz interpretiert werden kann....

Wie kann man in Excel-VBA eine For-Next-Schleife vorzeitig beenden?

In Excel-VBA verlässt du eine For/Next-Schleife vorzeitig mit dem Befehl `Exit For`. Sobald dieser Befehl ausgeführt wird, wird die Schleife sofort beendet und der Code nach der Schleife for...

Wo liegt der Fehler im Excel 2021 VBA-Code mit Choose und Range.Locked?

Der Fehler in deinem VBA-Code liegt daran, dass die Variable `rge` nicht deklariert wurde. In VBA solltest du Variablen immer deklarieren, und für Zellbereiche ist der Typ `String` oder besser gl...

Muss in einem Excel-Makro bei einem If-Block ein End If stehen, wenn vorher Exit Sub ausgeführt wird?

Ja, auch wenn innerhalb einer If-Anweisung in einem Excel-Makro (VBA) ein `Exit Sub` steht, muss das zugehörige `End If` trotzdem geschrieben werden. Die Syntax von VBA verlangt, dass jede mit `I...

Bis zu welchem Datum reichen deine Informationen?

Meine Trainings- und Wissensbasis reicht bis **August 2025**. Ereignisse, Änderungen oder neue Informationen **ab September 2025** können fehlen, sofern sie nicht per Web-Recherche aktualisi...

Kann ein Excel-Makro auf Datei/Optionen zugreifen und Einstellungen für die Datei oder das Blatt ändern?

Ein Excel-Makro (VBA) kann auf viele Einstellungen innerhalb einer Arbeitsmappe oder eines Arbeitsblatts zugreifen und diese ändern, wie z.B. Zellformate, Blattschutz, Druckeinstellungen oder bes...