Wie kann ich einen festen Bereich aus markierten Blättern kopieren und in ein ausgewähltes Blatt einfügen mit VBA und Application.InputBox?

Um einen fixen Bereich aus markierten Blättern 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 CopyRangeToSheet() Dim sourceRange As Range Dim targetSheet As Worksheet Dim targetCell As Range Dim sheetName As String ' Prompt the user to select the range to copy On Error Resume Next Set sourceRange = Application.InputBox("Select the range to copy:", Type:=8) On Error GoTo 0 If sourceRange Is Nothing MsgBox "No range selected. Exiting." Exit Sub End If ' Prompt the user to enter the name of the target sheet sheetName = Application.InputBox("Enter the name of the target sheet:", Type:=2) ' Check if the sheet exists On Error Resume Next Set targetSheet = ThisWorkbook.Sheets(sheetName) On Error GoTo 0 If targetSheet Is Nothing Then MsgBox "Sheet does not exist. Exiting." Exit Sub End If ' Prompt the user to select the target cell On Error Resume Next Set targetCell = Application.InputBox("Select the target cell:", Type:=8) On Error GoTo 0 If targetCell Is Nothing Then MsgBox "No target cell selected. Exiting." Exit Sub End If ' Copy the range to the target cell in the target sheet sourceRange.Copy Destination:=targetCell MsgBox "Range copied successfully!" End Sub ``` Dieses Makro führt folgende Schritte aus: 1. Es fordert den Benutzer auf, den zu kopierenden Bereich auszuwählen. 2. Es fordert den Benutzer auf, den Namen des Zielblatts einzugeben. 3. Es überprüft, ob das Zielblatt existiert. 4. Es fordert den Benutzer auf, die Zielzelle auszuwählen. 5. Es kopiert den ausgewählten Bereich in die angegebene Zelle des Zielblatts. Stelle sicher, dass Makros in deiner Excel-Arbeitsmappe aktiviert sind, bevor du dieses Skript ausführst.