Wie wählt man mehrere Blätter und Bereiche mit VBA InputBox aus und fügt diese Daten in ein markiertes Blatt ein?

Um mehrere Blätter und Bereiche mit einer VBA InputBox auszuwählen und diese Daten in ein durch Markieren ausgewähltes Blatt einzufügen, kannst du den folgenden VBA-Code verwenden. Dieser Code zeigt, wie du eine InputBox verwenden kannst, um die Blätter und Bereiche auszuwählen und die Daten dann in ein Zielblatt einzufügen.

```vba
Sub CopyDataToSelectedSheet()
Dim ws As Worksheet
Dim targetSheet As Worksheet
Dim targetRange As Range
Dim sourceRange As Range
Dim sheetNames As String
Dim sheetName As Variant
Dim prompt As String
Dim title As String

' Prompt for sheet names
prompt = "Gib die Namen der Blätter ein, getrennt durch Kommas:"
title = "Blätter auswählen"
sheetNames = InputBox(prompt, title)

' Split the sheet names into an array
Dim sheetArray() As String
sheetArray = Split(sheetNames, ",")

' Prompt for target sheet
prompt = "Wähle das Zielblatt aus:"
title = "Zielblatt auswählen"
Set targetSheet = Application.InputBox(prompt, title, Type:=8)

' Prompt for target range
prompt = "Wähle den Zielbereich aus:"
title = "Zielbereich auswählen"
Set targetRange = Application.InputBox(prompt, title, Type:=8)

' Loop through each sheet name and copy data
For Each sheetName In sheetArray
Set ws = ThisWorkbook.Sheets(Trim(sheetName))

' Prompt for source range in each sheet
prompt = "Wähle den Bereich in " & ws.Name & " aus:"
title = "Quellbereich auswählen"
Set sourceRange = Application.InputBox(prompt, title, Type:=8)

' Copy data from source range to target range
sourceRange.Copy Destination:=targetRange
' Adjust target range for next paste
Set targetRange = targetRange.Offset(sourceRange.Rows.Count, 0)
Next sheetName
End Sub
```

Dieser Code führt folgende Schritte aus:

1. Fragt den Benutzer nach den Namen der Blätter, getrennt durch Kommas.
2. Fragt den Benutzer nach dem Zielblatt.
3. Fragt den Benutzer nach dem Zielbereich im Zielblatt.
4. Durchläuft jedes Blatt, das in der InputBox angegeben wurde, und fragt nach dem Quellbereich in jedem Blatt.
5. Kopiert die Daten aus dem Quellbereich in den Zielbereich und passt den Zielbereich für die nächste Kopie an.

Bitte beachte, dass dieser Code davon ausgeht, dass die Blätter und Bereiche korrekt eingegeben und ausgewählt werden. Es gibt keine Fehlerbehandlung für ungültige Eingaben oder Bereiche.