Mehrere Blätter und Bereich mittels VBA-Inputbox auswählen und in ein Blatt einfügen?

Um mehrere Blätter und Bereiche mittels VBA InputBox auszuwählen und diese in ein ausgewähltes Blatt einzufügen, kannst du den folgenden VBA-Code verwenden. Dieser Code zeigt, wie du die Namen der Blätter und die Bereiche über InputBoxen eingeben kannst und die Daten dann in ein Zielblatt kopierst.

```vba
Sub CopyMultipleRanges()
Dim ws As Worksheet
Dim targetWs As Worksheet
Dim sheetNames As String
Dim rangeAddresses As String
Dim targetSheetName As String
Dim sheetArray() As String
Dim rangeArray() As String
Dim i As Integer
Dim targetCell As Range

' Eingabe der Blattnamen
sheetNames = InputBox("Gib die Namen der Blätter ein, getrennt durch Kommas:")
If sheetNames = "" Then Exit Sub
sheetArray = Split(sheetNames, ",")

' Eingabe der Bereichsadressen
rangeAddresses = InputBox("Gib die Bereichsadressen ein, getrennt durch Kommas:")
If rangeAddresses = "" Then Exit Sub
rangeArray = Split(rangeAddresses, ",")

' Eingabe des Zielblatts
targetSheetName = InputBox("Gib den Namen des Zielblatts ein:")
If targetSheetName = "" Then Exit Sub

' Überprüfen, ob das Zielblatt existiert
On Error Resume Next
Set targetWs = ThisWorkbook.Sheets(targetSheetName)
On Error GoTo 0
If targetWs Is Nothing Then
MsgBox "Das Zielblatt existiert nicht."
Exit Sub
End If

' Zielzelle festlegen
Set targetCell = targetWs.Cells(1, 1)

' Schleife durch die Blätter und Bereiche
For i = LBound(sheetArray) To UBound(sheetArray)
Set ws = ThisWorkbook.Sheets(Trim(sheetArray(i)))
ws.Range(Trim(rangeArray(i))).Copy targetCell
' Zielzelle für den nächsten Bereich anpassen
Set targetCell = targetWs.Cells(targetCell.Row + ws.Range(Trim(rangeArray(i))).Rows.Count, 1)
Next i

MsgBox "Bereiche wurden erfolgreich kopiert."
End Sub
```

Dieser Code führt folgende Schritte aus:
1. Fragt den Benutzer nach den Namen der Blätter und den Bereichsadressen, getrennt durch Kommas.
2. Fragt den Benutzer nach dem Namen des Zielblatts.
3. Überprüft, ob das Zielblatt existiert.
4. Kopiert die angegebenen Bereiche aus den angegebenen Blättern in das Zielblatt.

Stelle sicher, dass die Eingaben korrekt sind und dass die Blätter und Bereiche existieren, um Fehler zu vermeiden.