Wie kann man Blätter auswählen, aus diesen Blättern einen definierten Bereich kopieren und in ein ausgewähltes Blatt einfügen, VBA Application.InputBox?

Question

Accepted Answer

Um dies in VBA zu erreichen, kannst du den folgenden Code verwenden. Dieser Code verwendet `Application.InputBox`, um den Benutzer aufzufordern, die Blätter auszuwählen, den Bereich zu definieren und das Zielblatt anzugeben.

```vba
Sub CopyRangeToSheet()
    Dim sourceSheet As Worksheet
    Dim targetSheet As Worksheet
    Dim copyRange As Range
    Dim targetCell As Range
    
    ' Benutzer zur Auswahl des Quellblatts auffordern
    On Error Resume Next
    Set sourceSheet = Worksheets(Application.InputBox("Wähle das Quellblatt aus:", Type:=8))
    On Error GoTo 0
    
    If sourceSheet Is Nothing Then
        MsgBox "Ungültiges Quellblatt ausgewählt."
        Exit Sub
    End If
    
    ' Benutzer zur Auswahl des zu kopierenden Bereichs auffordern
    On Error Resume Next
    Set copyRange = sourceSheet.Range(Application.InputBox("Wähle den zu kopierenden Bereich aus:", Type:=8))
    On Error GoTo 0
    
    If copyRange Is Nothing Then
        MsgBox "Ungültiger Bereich ausgewählt."
        Exit Sub
    End If
    
    ' Benutzer zur Auswahl des Zielblatts auffordern
    On Error Resume Next
    Set targetSheet = Worksheets(Application.InputBox("Wähle das Zielblatt aus:", Type:=8))
    On Error GoTo 0
    
    If targetSheet Is Nothing Then
        MsgBox "Ungültiges Zielblatt ausgewählt."
        Exit Sub
    End If
    
    ' Benutzer zur Auswahl der Zielzelle auffordern
    On Error Resume Next
    Set targetCell = targetSheet.Range(Application.InputBox("Wähle die Zielzelle aus:", Type:=8))
    On Error GoTo 0
    
    If targetCell Is Nothing Then
        MsgBox "Ungültige Zielzelle ausgewählt."
        Exit Sub
    End If
    
    ' Bereich kopieren und einfügen
    copyRange.Copy Destination:=targetCell
    MsgBox "Bereich erfolgreich kopiert."
End Sub
```

Dieser Code führt die folgenden Schritte aus:
1. Fordert den Benutzer auf, das Quellblatt auszuwählen.
2. Fordert den Benutzer auf, den zu kopierenden Bereich auszuwählen.
3. Fordert den Benutzer auf, das Zielblatt auszuwählen.
4. Fordert den Benutzer auf, die Zielzelle auszuwählen.
5. Kopiert den ausgewählten Bereich in die angegebene Zielzelle des Zielblatts.

Stelle sicher, dass du den Code in einem Modul in der VBA-Umgebung von Excel einfügst und ausführst.

Wie kann man Blätter auswählen, aus diesen Blättern einen definierten Bereich kopieren und in ein ausgewähltes Blatt einfügen, VBA Application.InputBox?

Verwandte Fragen

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?

Ist der Code wert = Range("Ergebnisse[Gab Bauteil lang]").Value in VBA fehlerfrei?

Kann man Private Sub Workbook_SheetBeforeRightClick in Private Sub Workbook_Open integrieren?

Gibt es If Not (Bedingung) Then in VBA für Excel?

Ist 'Range(Cells(a,10):Cells(b,10)).Copy' im VBA-Code korrekt?

Wie kann ich mit VBA den Bereich 'Test' in Blatt 1 kopieren und in Blatt 2 ab Zelle B18 einfügen?

Wie kann man Zahlen in Excel-VBA ohne wissenschaftliches Format in eine .txt-Datei schreiben?

Wie lautet die Syntax, um in Excel VBA ein bestimmtes Tabellenblatt zu aktivieren?