Wie kann ich mehrere Blätter und Bereiche mittels Application InputBox markieren und diese Daten in ein ausgewähltes Blatt einfügen?

Question

Accepted Answer

Um mehrere Blätter und Bereiche in Excel mittels `Application.InputBox` zu markieren und die Daten in ein ausgewähltes Blatt einzufügen, kannst du VBA (Visual Basic for Applications) verwenden. Hier ist ein Beispiel, wie du das machen könntest:

1. Öffne Excel und drücke `Alt + F11`, um den VBA-Editor zu öffnen.
2. Füge ein neues Modul ein (`Einfügen > Modul`).
3. Kopiere und füge den folgenden Code in das Modul ein:

```vba
Sub CopyMultipleRanges()
    Dim ws As Worksheet
    Dim targetWs As Worksheet
    Dim rng As Range
    Dim targetRng As Range
    Dim userInput As String
    Dim userRange As Range
    Dim cell As Range
    Dim pasteRow As Long

' Zielblatt auswählen
    On Error Resume Next
    Set targetWs = Worksheets(Application.InputBox("Gib den Namen des Zielblatts ein:", Type:=2))
    On Error GoTo 0
    If targetWs Is Nothing Then
        MsgBox "Ungültiger Blattname. Abbruch."
        Exit Sub
    End If

' Zielbereich auswählen
    On Error Resume Next
    Set targetRng = Application.InputBox("Wähle die Zelle aus, in die die Daten eingefügt werden sollen:", Type:=8)
    On Error GoTo 0
    If targetRng Is Nothing Then
        MsgBox "Ungültiger Bereich. Abbruch."
        Exit Sub
    End If

pasteRow = targetRng.Row

' Blätter und Bereiche auswählen
    Do
        On Error Resume Next
        Set ws = Worksheets(Application.InputBox("Gib den Namen des Blatts ein, das du kopieren möchtest (oder drücke Abbrechen, um zu beenden):", Type:=2))
        On Error GoTo 0
        If ws Is Nothing Then Exit Do

On Error Resume Next
        Set userRange = Application.InputBox("Wähle den Bereich auf dem Blatt " & ws.Name & " aus, den du kopieren möchtest:", Type:=8)
        On Error GoTo 0
        If userRange Is Nothing Then Exit Do

' Daten kopieren und einfügen
        userRange.Copy Destination:=targetWs.Cells(pasteRow, targetRng.Column)
        pasteRow = pasteRow + userRange.Rows.Count

Loop

MsgBox "Daten wurden erfolgreich kopiert."
End Sub
```

4. Schließe den VBA-Editor und kehre zu Excel zurück.
5. Führe das Makro aus (`Alt + F8`, wähle `CopyMultipleRanges` und klicke auf `Ausführen`).

Dieses Makro fordert dich auf, den Namen des Zielblatts und die Zelle, in die die Daten eingefügt werden sollen, einzugeben. Anschließend kannst du nacheinander die Blätter und Bereiche auswählen, die du kopieren möchtest. Die Daten werden dann in das ausgewählte Blatt eingefügt.

Wie kann ich mehrere Blätter und Bereiche mittels Application InputBox markieren und diese Daten in ein ausgewähltes Blatt einfügen?

Verwandte Fragen

Syntax von IsNumeric in Excel-VBA?

Gibt es die Excel-Funktion ZÄHLENWENN auch in Excel-VBA?

Wie nennt man das Zerlegen einer Excel-VBA-Prozedur in mehrere Teile?

Wie lege ich in Excel eine UserForm an?

Kann man in Excel-VBA die Schriftgröße der MsgBox ändern?

Ist dieser Excel-VBA-Code korrekt, um Spalten auszublenden und einen Bereich wieder einzublenden?

Excel-Makro: Spalten E:G per Button ein- und ausblenden?

Kann man in Excel nur einen bestimmten Bereich schützen, ohne den Blattschutz zu verwenden?

Wie Excel-Tabelle in Word-Datei umwandeln?

Excel-Makro: Im Bereich B10:B20, wenn der IndentLevel in Spalte B = 1 ist, dann in dieser Zeile in B:O oben eine dünne Rahmenlinie setzen?