Wie wählt man verschiedene Bereiche mit Application.InputBox aus, kopiert Zellen und fügt sie in ein ausgewähltes Blatt ein?

Um verschiedene Bereiche mit `Application.InputBox` in Excel VBA auszuwählen, Zellen zu kopieren und in ein anderes, ebenfalls mit `Application.InputBox` ausgewähltes Blatt einzufügen, kannst du folgenden VBA-Code verwenden:

```vba
Sub CopyAndPasteRanges()
Dim sourceRange As Range
Dim targetSheet As Worksheet
Dim targetCell As Range
Dim userInput As String
Dim rng As Range
Dim cell As Range

' Schleife, um mehrere Bereiche auszuwählen
Do
On Error Resume Next
Set sourceRange = Application.InputBox("Wähle einen Bereich aus (Abbrechen zum Beenden):", Type:=8)
On Error GoTo 0

If sourceRange Is Nothing Then
Exit Do
End If

' Bereich kopieren
sourceRange.Copy

' Zielblatt auswählen
On Error Resume Next
Set targetSheet = Worksheets(Application.InputBox("Gib den Namen des Zielblatts ein:", Type:=2))
On Error GoTo 0

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

' Zielzelle auswählen
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. Vorgang abgebrochen."
Exit Sub
End If

' Bereich einfügen
targetCell.PasteSpecial Paste:=xlPasteAll

' Clipboard leeren
Application.CutCopyMode = False

Loop

MsgBox "Vorgang abgeschlossen."
End Sub
```

Dieser Code ermöglicht es dir, mehrere Bereiche nacheinander auszuwählen und in ein Zielblatt einzufügen. Die Schleife wird beendet, wenn du im `Application.InputBox`-Dialog auf "Abbrechen" klickst. Achte darauf, dass die Zielzelle jedes Mal neu ausgewählt wird, um Überschreibungen zu vermeiden.