Wie können Excel Blätter und Bereiche mit Application.Inputbox markiert und ausgewählte Daten in ein anderes Blatt eingefügt werden?

Um in Excel Blätter und Bereiche mittels `Application.InputBox` zu markieren und die ausgewählten Daten in ein durch `Application.InputBox` ausgewähltes Blatt neu einzufügen, kann folgender VBA-Code verwendet werden:

```vba
Sub CopySelectedRange()
Dim sourceRange As Range
Dim destSheet As Worksheet
Dim destRange As Range

' Eingabefeld zur Auswahl des Quellbereichs
On Error Resume Next
Set sourceRange = Application.InputBox("Wählen Sie den Quellbereich aus:", Type:=8)
On Error GoTo 0

If sourceRange Is Nothing Then
MsgBox "Kein Bereich ausgewählt. Vorgang abgebrochen."
Exit Sub
End If

' Eingabefeld zur Auswahl des Zielblatts
Dim sheetName As String
sheetName = Application.InputBox("Geben Sie den Namen des Zielblatts ein:", Type:=2)

If sheetName = "" Then
MsgBox "Kein Blattname eingegeben. Vorgang abgebrochen."
Exit Sub
End If

On Error Resume Next
Set destSheet = ThisWorkbook.Sheets(sheetName)
On Error GoTo 0

If destSheet Is Nothing Then
MsgBox "Blatt nicht gefunden. Vorgang abgebrochen."
Exit Sub
End If

' Eingabefeld zur Auswahl des Zielbereichs
On Error Resume Next
Set destRange = Application.InputBox("Wählen Sie die obere linke Zelle des Zielbereichs aus:", Type:=8)
On Error GoTo 0

If destRange Is Nothing Then
MsgBox "Kein Zielbereich ausgewählt. Vorgang abgebrochen."
Exit Sub
End If

' Daten kopieren und einfügen
sourceRange.Copy Destination:=destRange
MsgBox "Daten erfolgreich kopiert."
End Sub
```

Dieser Code führt folgende Schritte aus:
1. Öffnet ein Eingabefeld zur Auswahl des Quellbereichs.
2. Öffnet ein Eingabefeld zur Eingabe des Zielblattnamens.
3. Öffnet ein Eingabefeld zur Auswahl der oberen linken Zelle des Zielbereichs.
4. Kopiert die Daten aus dem Quellbereich in den Zielbereich des ausgewählten Blatts.

Stelle sicher, dass Makros in deiner Excel-Arbeitsmappe aktiviert sind, um diesen Code auszuführen.