Wie kopiere ich einen definierten Bereich von markierten Blättern und füge ihn in ein ausgewähltes Blatt ein, mit VBA und Application.InputBox?

Um in VBA einen definierten Bereich aus markierten Blättern zu kopieren und in ein ausgewähltes Blatt einzufügen, kann der `Application.InputBox`-Befehl verwendet werden, um den Bereich und das Zielblatt auszuwählen. Hier ist ein Beispielcode, der dies demonstriert: ```vba Sub KopiereBereich() Dim Bereich As Range Dim ZielBlatt As Worksheet Dim ZielAdresse As Range ' Bereich auswählen On Error Resume Next Set Bereich = Application.InputBox("Bitte den zu kopierenden Bereich auswählen:", Type:=8) On Error GoTo 0 If Bereich Is Nothing Then MsgBox "Kein Bereich ausgewählt. Vorgang abgebrochen." Exit Sub End If ' Zielblatt auswählen Dim BlattName As String BlattName = Application.InputBox("Bitte den Namen des Zielblatts eingeben:", Type:=2) On Error Resume Next Set ZielBlatt = ThisWorkbook.Worksheets(BlattName) On Error GoTo 0 If ZielBlatt Is Nothing Then MsgBox "Ungültiger Blattname. Vorgang abgebrochen." Exit Sub End If ' Zieladresse auswählen On Error Resume Next Set ZielAdresse = Application.InputBox("Bitte die Zielzelle auswählen:", Type:=8) On Error GoTo 0 If ZielAdresse Is Nothing Then MsgBox "Keine Zielzelle ausgewählt. Vorgang abgebrochen." Exit Sub End If ' Bereich kopieren und einfügen Bereich.Copy Destination:=ZielAdresse MsgBox "Bereich erfolgreich kopiert." End Sub ``` Dieser Code führt folgende Schritte aus: 1. Der Benutzer wird aufgefordert, den zu kopierenden Bereich auszuwählen. 2. Der Benutzer wird aufgefordert, den Namen des Zielblatts einzugeben. 3. Der Benutzer wird aufgefordert, die Zielzelle im Zielblatt auszuwählen. 4. Der ausgewählte Bereich wird in die angegebene Zielzelle im Zielblatt kopiert. Stelle sicher, dass die Eingaben korrekt sind, um Fehler zu vermeiden.