Wie wähle ich Blätter und Bereiche mittels VBA Inputboxen aus und kopiere Daten in ein neues Blatt?

Question

Accepted Answer

Um Blätter und Bereiche mittels VBA InputBoxen auszuwählen und die Daten in ein neues Blatt zu kopieren, kannst du folgenden VBA-Code verwenden:

```vba
Sub CopyDataToNewSheet()
    Dim wsSource As Worksheet
    Dim wsTarget As Worksheet
    Dim sourceSheetName As String
    Dim targetSheetName As String
    Dim sourceRange As Range
    Dim targetRange As Range
    Dim sourceAddress As String
    
    ' Eingabe des Quellblattes
    sourceSheetName = InputBox("Bitte den Namen des Quellblattes eingeben:")
    On Error Resume Next
    Set wsSource = ThisWorkbook.Sheets(sourceSheetName)
    On Error GoTo 0
    
    If wsSource Is Nothing Then
        MsgBox "Das Quellblatt existiert nicht.", vbExclamation
        Exit Sub
    End If
    
    ' Eingabe des Zielblattes
    targetSheetName = InputBox("Bitte den Namen des Zielblattes eingeben:")
    On Error Resume Next
    Set wsTarget = ThisWorkbook.Sheets(targetSheetName)
    On Error GoTo 0
    
    If wsTarget Is Nothing Then
        ' Neues Blatt erstellen, wenn es nicht existiert
        Set wsTarget = ThisWorkbook.Sheets.Add
        wsTarget.Name = targetSheetName
    End If
    
    ' Eingabe des Quellbereichs
    sourceAddress = InputBox("Bitte den Quellbereich eingeben (z.B. A1:D10):")
    On Error Resume Next
    Set sourceRange = wsSource.Range(sourceAddress)
    On Error GoTo 0
    
    If sourceRange Is Nothing Then
        MsgBox "Der Quellbereich ist ungültig.", vbExclamation
        Exit Sub
    End If
    
    ' Zielbereich festlegen (gleiche Größe wie Quellbereich)
    Set targetRange = wsTarget.Range("A1").Resize(sourceRange.Rows.Count, sourceRange.Columns.Count)
    
    ' Daten kopieren
    sourceRange.Copy Destination:=targetRange
    
    MsgBox "Daten wurden erfolgreich kopiert.", vbInformation
End Sub
```

Dieser Code führt folgende Schritte aus:
1. Fragt den Benutzer nach dem Namen des Quellblattes.
2. Fragt den Benutzer nach dem Namen des Zielblattes.
3. Fragt den Benutzer nach dem Quellbereich.
4. Kopiert die Daten aus dem Quellbereich in das Zielblatt, beginnend bei Zelle A1.

Stelle sicher, dass die Namen der Blätter und der Bereich korrekt eingegeben werden, um Fehler zu vermeiden.

Wie wähle ich Blätter und Bereiche mittels VBA Inputboxen aus und kopiere Daten in ein neues Blatt?

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?