Wie markiere, kopiere und füge ich Bereiche aus verschiedenen Blättern in ein ausgewähltes Blatt ein? Kann ich dies mit VBA Application.inputbox durchführen?

Question

Accepted Answer

Um in Excel VBA verschiedene Blätter zu markieren, Bereiche zu kopieren und in ein ausgewähltes Blatt einzufügen, kann die `Application.InputBox` verwendet werden, um den Benutzer nach den erforderlichen Informationen zu fragen. Hier ist ein Beispiel, wie das gemacht werden kann:

```vba
Sub KopiereBereiche()
    Dim wsQuell As Worksheet
    Dim wsZiel As Worksheet
    Dim Bereich As Range
    Dim ZielZelle As Range
    Dim BlattName As String
    Dim BereichAdresse As String
    
    ' Benutzer nach dem Quellblatt fragen
    BlattName = Application.InputBox("Gib den Namen des Quellblatts ein:", Type:=2)
    On Error Resume Next
    Set wsQuell = Worksheets(BlattName)
    On Error GoTo 0
    
    If wsQuell Is Nothing Then
        MsgBox "Das Blatt " & BlattName & " existiert nicht."
        Exit Sub
    End If
    
    ' Benutzer nach dem Bereich fragen
    BereichAdresse = Application.InputBox("Gib den Bereich ein (z.B. A1:B10):", Type:=8)
    On Error Resume Next
    Set Bereich = wsQuell.Range(BereichAdresse)
    On Error GoTo 0
    
    If Bereich Is Nothing Then
        MsgBox "Der Bereich " & BereichAdresse & " ist ungültig."
        Exit Sub
    End If
    
    ' Benutzer nach dem Zielblatt fragen
    BlattName = Application.InputBox("Gib den Namen des Zielblatts ein:", Type:=2)
    On Error Resume Next
    Set wsZiel = Worksheets(BlattName)
    On Error GoTo 0
    
    If wsZiel Is Nothing Then
        MsgBox "Das Blatt " & BlattName & " existiert nicht."
        Exit Sub
    End If
    
    ' Benutzer nach der Zielzelle fragen
    Set ZielZelle = Application.InputBox("Gib die Zielzelle ein (z.B. A1):", Type:=8)
    
    If ZielZelle Is Nothing Then
        MsgBox "Die Zielzelle ist ungültig."
        Exit Sub
    End If
    
    ' Bereich kopieren und einfügen
    Bereich.Copy Destination:=wsZiel.Range(ZielZelle.Address)
    
    MsgBox "Bereich erfolgreich kopiert!"
End Sub
```

In diesem Beispiel wird der Benutzer nacheinander nach dem Quellblatt, dem zu kopierenden Bereich, dem Zielblatt und der Zielzelle gefragt. Die `Application.InputBox` wird verwendet, um diese Eingaben zu erhalten. Der kopierte Bereich wird dann in die angegebene Zielzelle des Zielblatts eingefügt.

Wie markiere, kopiere und füge ich Bereiche aus verschiedenen Blättern in ein ausgewähltes Blatt ein? Kann ich dies mit VBA Application.inputbox durchführen?

Verwandte Fragen

Was bedeutet ErrNum 75 in Access VBA?

Was bedeutet 'On Error GoTo 0'?

Ist Shapes("Rechteck 1").Visible = True korrekt in Excel-VBA?

Ist folgender Excel-VBA-Code korrekt: HeightPt = Rows("4:" & Cells(49,19).Row).Height?

Wie kann man in Excel-VBA einen RGB-Code aus einer Zelle lesen?

Was bewirkt der VBA-Code mit shp.Line.Visible = msoFalse und shp.Fill.ForeColor.RGB = 0?

Was bewirkt der VBA-Code mit shp.Line.Visible = msoFalse, shp.Fill.Visible = msoTrue und shp.Fill.ForeColor.RGB = 0?

Wie erstelle ich in Access VBA eine SQL-Abfrage?

Was ist falsch an folgendem Access VBA SQL-Statement: strSQL = "INSERT INTO tbl_Bestände_HZV (Datum, RLEx) IN " & strPfadExtern & "." & ZielTabelle & ...?

Wie kann man per VBA-Makro beim Öffnen einer Datei das Kontextmenü der rechten Maustaste deaktivieren?