Wie wählt man mit Application.InputBox mehrere Blätter aus, wählt einen Bereich, kopiert ihn und fügt ihn in ein neues Blatt ein?

Um mehrere Blätter mittels `Application.InputBox` in Excel VBA auszuwählen, einen Bereich auszuwählen, zu kopieren und in ein neues, ebenfalls mittels `Application.InputBox` ausgewähltes Blatt einzufügen, könnte der folgende VBA-Code verwendet werden: ```vba Sub CopyRangeToNewSheet() Dim wsSource As Worksheet Dim wsTarget As Worksheet Dim rng As Range Dim wsName As String Dim targetSheetName As String ' Eingabeaufforderung für den Namen des Quellblatts wsName = Application.InputBox("Gib den Namen des Quellblatts ein:", Type:=2) ' Überprüfen, ob das Blatt existiert On Error Resume Next Set wsSource = Worksheets(wsName) On Error GoTo 0 If wsSource Is Nothing Then MsgBox "Das Blatt " & wsName & " existiert nicht." Exit Sub End If ' Eingabeaufforderung für den zu kopierenden Bereich On Error Resume Next Set rng = Application.InputBox("Wähle den Bereich aus, der kopiert werden soll:", Type:=8) On Error GoTo 0 If rng Is Nothing Then MsgBox "Kein Bereich ausgewählt." Exit Sub End If ' Eingabeaufforderung für den Namen des Zielblatts targetSheetName = Application.InputBox("Gib den Namen des Zielblatts ein:", Type:=2) ' Überprüfen, ob das Zielblatt existiert, wenn nicht, erstellen On Error Resume Next Set wsTarget = Worksheets(targetSheetName) On Error GoTo 0 If wsTarget Is Nothing Then Set wsTarget = Worksheets.Add wsTarget.Name = targetSheetName End If ' Bereich kopieren und in das Zielblatt einfügen rng.Copy Destination:=wsTarget.Range("A1") MsgBox "Bereich erfolgreich kopiert." End Sub ``` Dieser Code führt folgende Schritte aus: 1. Fragt den Benutzer nach dem Namen des Quellblatts. 2. Überprüft, ob das Quellblatt existiert. 3. Fragt den Benutzer nach dem zu kopierenden Bereich. 4. Fragt den Benutzer nach dem Namen des Zielblatts. 5. Überprüft, ob das Zielblatt existiert, und erstellt es gegebenenfalls. 6. Kopiert den ausgewählten Bereich und fügt ihn in das Zielblatt ein. Weitere Informationen zu `Application.InputBox` findest du in der [Microsoft-Dokumentation](https://docs.microsoft.com/en-us/office/vba/api/excel.application.inputbox).