Wie wählt man Blätter aus, um einen definierten Bereich zu kopieren und in ein ausgewähltes Blatt einzufügen, mit VBA Application.InputBox?

Um in VBA eine Anwendung zu erstellen, die es ermöglicht, Blätter auszuwählen, einen definierten Bereich zu kopieren und diesen in ein ausgewähltes Blatt einzufügen, kann der folgende Code als Beispiel dienen:

```vba
Sub CopyRangeToSelectedSheet()
Dim wsSource As Worksheet
Dim wsTarget As Worksheet
Dim rngSource As Range
Dim targetSheetName As String
Dim sourceRangeAddress As String

' Eingabeaufforderung für das Quellblatt
On Error Resume Next
Set wsSource = Worksheets(Application.InputBox("Gib den Namen des Quellblatts ein:", Type:=2))
On Error GoTo 0

If wsSource Is Nothing Then
MsgBox "Ungültiger Blattname. Vorgang abgebrochen."
Exit Sub
End If

' Eingabeaufforderung für den Quellbereich
On Error Resume Next
sourceRangeAddress = Application.InputBox("Gib den Bereich ein, der kopiert werden soll (z.B. A1:B10):", Type:=8).Address
Set rngSource = wsSource.Range(sourceRangeAddress)
On Error GoTo 0

If rngSource Is Nothing Then
MsgBox "Ungültiger Bereich. Vorgang abgebrochen."
Exit Sub
End If

' Eingabeaufforderung für das Zielblatt
On Error Resume Next
targetSheetName = Application.InputBox("Gib den Namen des Zielblatts ein:", Type:=2)
Set wsTarget = Worksheets(targetSheetName)
On Error GoTo 0

If wsTarget Is Nothing Then
MsgBox "Ungültiger Blattname. Vorgang abgebrochen."
Exit Sub
End If

' Kopieren und Einfügen des Bereichs
rngSource.Copy Destination:=wsTarget.Range("A1")

MsgBox "Bereich erfolgreich kopiert und eingefügt."
End Sub
```

Dieser Code führt folgende Schritte aus:
1. Fragt den Benutzer nach dem Namen des Quellblatts.
2. Fragt den Benutzer nach dem zu kopierenden Bereich.
3. Fragt den Benutzer nach dem Namen des Zielblatts.
4. Kopiert den angegebenen Bereich aus dem Quellblatt und fügt ihn in das Zielblatt ein.

Stelle sicher, dass die Eingaben korrekt sind, da der Code keine umfassende Fehlerbehandlung enthält.