Wie kann man Blätter auswählen, aus diesen Blättern einen definierten Bereich kopieren und in ein ausgewähltes Blatt einfügen, VBA Application.InputBox?

Um dies in VBA zu erreichen, kannst du den folgenden Code verwenden. Dieser Code verwendet `Application.InputBox`, um den Benutzer aufzufordern, die Blätter auszuwählen, den Bereich zu definieren und das Zielblatt anzugeben.

```vba
Sub CopyRangeToSheet()
Dim sourceSheet As Worksheet
Dim targetSheet As Worksheet
Dim copyRange As Range
Dim targetCell As Range

' Benutzer zur Auswahl des Quellblatts auffordern
On Error Resume Next
Set sourceSheet = Worksheets(Application.InputBox("Wähle das Quellblatt aus:", Type:=8))
On Error GoTo 0

If sourceSheet Is Nothing Then
MsgBox "Ungültiges Quellblatt ausgewählt."
Exit Sub
End If

' Benutzer zur Auswahl des zu kopierenden Bereichs auffordern
On Error Resume Next
Set copyRange = sourceSheet.Range(Application.InputBox("Wähle den zu kopierenden Bereich aus:", Type:=8))
On Error GoTo 0

If copyRange Is Nothing Then
MsgBox "Ungültiger Bereich ausgewählt."
Exit Sub
End If

' Benutzer zur Auswahl des Zielblatts auffordern
On Error Resume Next
Set targetSheet = Worksheets(Application.InputBox("Wähle das Zielblatt aus:", Type:=8))
On Error GoTo 0

If targetSheet Is Nothing Then
MsgBox "Ungültiges Zielblatt ausgewählt."
Exit Sub
End If

' Benutzer zur Auswahl der Zielzelle auffordern
On Error Resume Next
Set targetCell = targetSheet.Range(Application.InputBox("Wähle die Zielzelle aus:", Type:=8))
On Error GoTo 0

If targetCell Is Nothing Then
MsgBox "Ungültige Zielzelle ausgewählt."
Exit Sub
End If

' Bereich kopieren und einfügen
copyRange.Copy Destination:=targetCell
MsgBox "Bereich erfolgreich kopiert."
End Sub
```

Dieser Code führt die folgenden Schritte aus:
1. Fordert den Benutzer auf, das Quellblatt auszuwählen.
2. Fordert den Benutzer auf, den zu kopierenden Bereich auszuwählen.
3. Fordert den Benutzer auf, das Zielblatt auszuwählen.
4. Fordert den Benutzer auf, die Zielzelle auszuwählen.
5. Kopiert den ausgewählten Bereich in die angegebene Zielzelle des Zielblatts.

Stelle sicher, dass du den Code in einem Modul in der VBA-Umgebung von Excel einfügst und ausführst.