Wie wähle ich mehrere Blätter gleichzeitig mit Application.inputbox und kopiere einen Bereich?

Um mehrere Blätter gleichzeitig mit `Application.InputBox` in Excel VBA auszuwählen und von den ausgewählten Blättern einen Bereich zu kopieren, kannst du den folgenden VBA-Code verwenden: ```vba Sub CopyRangeFromSelectedSheets() Dim ws As Worksheet Dim selectedSheets As Variant Dim copyRange As Range Dim destSheet As Worksheet Dim destCell As Range Dim i As Integer ' Zielblatt und Zielzelle definieren Set destSheet = ThisWorkbook.Sheets("Zielblatt") ' Name des Zielblatts anpassen Set destCell = destSheet.Range("A1") ' Zielzelle anpassen ' Eingabeaufforderung für die Auswahl der Blätter selectedSheets = Application.InputBox("Gib die Namen der Blätter ein, getrennt durch Kommas:", "Blätter auswählen", Type:=2) ' Überprüfen, ob die Eingabe abgebrochen wurde If selectedSheets = False Then Exit Sub ' Blätternamen in ein Array aufteilen selectedSheets = Split(selectedSheets, ",") ' Schleife durch die ausgewählten Blätter For i = LBound(selectedSheets) To UBound(selectedSheets) On Error Resume Next Set ws = ThisWorkbook.Sheets(Trim(selectedSheets(i))) On Error GoTo 0 If Not ws Is Nothing Then ' Bereich definieren, der kopiert werden soll Set copyRange = ws.Range("A1:B10") ' Bereich anpassen ' Bereich kopieren und in das Zielblatt einfügen copyRange.Copy Destination:=destCell ' Zielzelle für den nächsten Einfügevorgang anpassen Set destCell = destCell.Offset(copyRange.Rows.Count, 0) Else MsgBox "Blatt " & Trim(selectedSheets(i)) & " nicht gefunden.", vbExclamation End If Next i End Sub ``` Dieser Code ermöglicht es, mehrere Blätter durch Eingabe ihrer Namen (getrennt durch Kommas) auszuwählen. Der definierte Bereich wird dann von jedem ausgewählten Blatt kopiert und in das Zielblatt eingefügt. Passe die Bereiche und Blattnamen nach Bedarf an.