Wie wähle ich mehrere Blätter aus, markiere Bereiche, kopiere und füge sie in ein Blatt ein, VBA Application.InputBox?

Um mehrere Blätter auszuwählen, Bereiche zu markieren, zu kopieren und in ein ausgewähltes Blatt einzufügen, kannst du VBA in Excel verwenden. Hier ist ein Beispiel, wie du dies mit `Application.InputBox` umsetzen kannst: ```vba Sub CopyRangesToSheet() Dim ws As Worksheet Dim targetSheet As Worksheet Dim rng As Range Dim targetCell As Range Dim userInput As String Dim pasteRow As Long ' Zielblatt auswählen userInput = Application.InputBox("Gib den Namen des Zielblatts ein:", Type:=2) On Error Resume Next Set targetSheet = ThisWorkbook.Sheets(userInput) On Error GoTo 0 If targetSheet Is Nothing Then MsgBox "Das Blatt existiert nicht." Exit Sub End If ' Zielzelle auswählen Set targetCell = Application.InputBox("Wähle die Zielzelle aus:", Type:=8) If targetCell Is Nothing Then Exit Sub pasteRow = targetCell.Row ' Durch alle Blätter iterieren For Each ws In ThisWorkbook.Worksheets If ws.Name <> targetSheet.Name Then ' Bereich auswählen Set rng = Application.InputBox("Wähle den Bereich in " & ws.Name & " aus:", Type:=8) If rng Is Nothing Then Exit Sub ' Bereich kopieren und einfügen rng.Copy Destination:=targetSheet.Cells(pasteRow, targetCell.Column) pasteRow = pasteRow + rng.Rows.Count End If Next ws MsgBox "Bereiche wurden erfolgreich kopiert." End Sub ``` Dieses Skript führt folgende Schritte aus: 1. Es fordert den Benutzer auf, den Namen des Zielblatts einzugeben. 2. Es fordert den Benutzer auf, die Zielzelle im Zielblatt auszuwählen. 3. Es iteriert durch alle Blätter im Workbook, außer dem Zielblatt. 4. Es fordert den Benutzer auf, einen Bereich in jedem Blatt auszuwählen. 5. Es kopiert den ausgewählten Bereich und fügt ihn in das Zielblatt ein, beginnend bei der angegebenen Zielzelle und verschiebt sich nach unten für jeden neuen Bereich. Stelle sicher, dass Makros in deiner Excel-Datei aktiviert sind, um dieses Skript auszuführen.