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

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).