Wie wählt man mehrere Blätter und Bereiche mit Application.inputBox aus und führt diese in ein ausgewähltes Blatt zusammen?

Question

Accepted Answer

Um mehrere Blätter und Bereiche mittels `Application.InputBox` auszuwählen und diese in ein mit `Application.InputBox` ausgewähltes Blatt zusammenzuführen, kannst du VBA (Visual Basic for Applications) in 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, indem du auf `Einfügen` > `Modul` klickst.
3. Kopiere und füge den folgenden Code in das Modul ein:

```vba
Sub Zusammenführen()
    Dim wsZiel As Worksheet
    Dim wsQuelle As Worksheet
    Dim rngQuelle As Range
    Dim rngZiel As Range
    Dim strZielBlatt As String
    Dim strQuelleBlatt As String
    Dim strQuelleBereich As String
    Dim letzteZeile As Long
    
    ' Zielblatt auswählen
    strZielBlatt = Application.InputBox("Gib den Namen des Zielblatts ein:", Type:=2)
    On Error Resume Next
    Set wsZiel = ThisWorkbook.Sheets(strZielBlatt)
    On Error GoTo 0
    
    If wsZiel Is Nothing Then
        MsgBox "Das Zielblatt existiert nicht."
        Exit Sub
    End If
    
    ' Schleife zum Auswählen und Kopieren der Quellbereiche
    Do
        ' Quellblatt auswählen
        strQuelleBlatt = Application.InputBox("Gib den Namen des Quellblatts ein (Abbrechen zum Beenden):", Type:=2)
        If strQuelleBlatt = "" Then Exit Do
        
        On Error Resume Next
        Set wsQuelle = ThisWorkbook.Sheets(strQuelleBlatt)
        On Error GoTo 0
        
        If wsQuelle Is Nothing Then
            MsgBox "Das Quellblatt existiert nicht."
            Exit Sub
        End If
        
        ' Quellbereich auswählen
        On Error Resume Next
        Set rngQuelle = Application.InputBox("Wähle den Bereich im Quellblatt aus:", Type:=8)
        On Error GoTo 0
        
        If rngQuelle Is Nothing Then
            MsgBox "Ungültiger Bereich."
            Exit Sub
        End If
        
        ' Letzte Zeile im Zielblatt finden
        letzteZeile = wsZiel.Cells(wsZiel.Rows.Count, 1).End(xlUp).Row + 1
        
        ' Bereich kopieren und einfügen
        rngQuelle.Copy Destination:=wsZiel.Cells(letzteZeile, 1)
        
    Loop
    
    MsgBox "Zusammenführung abgeschlossen."
End Sub
```

4. Schließe den VBA-Editor und kehre zu Excel zurück.
5. Führe das Makro aus, indem du `Alt + F8` drückst, das Makro `Zusammenführen` auswählst und auf `Ausführen` klickst.

Dieses Makro fordert dich auf, den Namen des Zielblatts einzugeben, und dann in einer Schleife den Namen der Quellblätter und die Bereiche, die du kopieren möchtest. Es fügt die kopierten Bereiche untereinander im Zielblatt ein. Die Schleife endet, wenn du im Eingabefeld für den Namen des Quellblatts auf "Abbrechen" klickst.

Wie wählt man mehrere Blätter und Bereiche mit Application.inputBox aus und führt diese in ein ausgewähltes Blatt zusammen?

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?