Wie markiere, kopiere und füge ich Bereiche aus verschiedenen Blättern in ein ausgewähltes Blatt ein? Kann ich dies mit VBA Application.inputbox durchführen?

Um in Excel VBA verschiedene Blätter zu markieren, Bereiche zu kopieren und in ein ausgewähltes Blatt einzufügen, kann die `Application.InputBox` verwendet werden, um den Benutzer nach den erforderlichen Informationen zu fragen. Hier ist ein Beispiel, wie das gemacht werden kann:

```vba
Sub KopiereBereiche()
Dim wsQuell As Worksheet
Dim wsZiel As Worksheet
Dim Bereich As Range
Dim ZielZelle As Range
Dim BlattName As String
Dim BereichAdresse As String

' Benutzer nach dem Quellblatt fragen
BlattName = Application.InputBox("Gib den Namen des Quellblatts ein:", Type:=2)
On Error Resume Next
Set wsQuell = Worksheets(BlattName)
On Error GoTo 0

If wsQuell Is Nothing Then
MsgBox "Das Blatt " & BlattName & " existiert nicht."
Exit Sub
End If

' Benutzer nach dem Bereich fragen
BereichAdresse = Application.InputBox("Gib den Bereich ein (z.B. A1:B10):", Type:=8)
On Error Resume Next
Set Bereich = wsQuell.Range(BereichAdresse)
On Error GoTo 0

If Bereich Is Nothing Then
MsgBox "Der Bereich " & BereichAdresse & " ist ungültig."
Exit Sub
End If

' Benutzer nach dem Zielblatt fragen
BlattName = Application.InputBox("Gib den Namen des Zielblatts ein:", Type:=2)
On Error Resume Next
Set wsZiel = Worksheets(BlattName)
On Error GoTo 0

If wsZiel Is Nothing Then
MsgBox "Das Blatt " & BlattName & " existiert nicht."
Exit Sub
End If

' Benutzer nach der Zielzelle fragen
Set ZielZelle = Application.InputBox("Gib die Zielzelle ein (z.B. A1):", Type:=8)

If ZielZelle Is Nothing Then
MsgBox "Die Zielzelle ist ungültig."
Exit Sub
End If

' Bereich kopieren und einfügen
Bereich.Copy Destination:=wsZiel.Range(ZielZelle.Address)

MsgBox "Bereich erfolgreich kopiert!"
End Sub
```

In diesem Beispiel wird der Benutzer nacheinander nach dem Quellblatt, dem zu kopierenden Bereich, dem Zielblatt und der Zielzelle gefragt. Die `Application.InputBox` wird verwendet, um diese Eingaben zu erhalten. Der kopierte Bereich wird dann in die angegebene Zielzelle des Zielblatts eingefügt.