Guten Tag,

Ich bin derzeit dabei eine Exceltabelle auf Arbeit zu bauen und bin jetzt an einer Funktion angekommen bei der ich VBA benötige. Jetzt ist allerdings das Problem das ich wenig Ahnung von VBA habe,deshalb frage ich hier.

Was soll die Funktion können:

Ich würde gern per Dialog Daten von einen beliebigen externen Exceldatenblatt mit allen Formatierungen(Farbe, Rahmen etc.) importieren.

Ich habe bereits nach langem suchen diesen VBA Code gefunden und ein bischen anpassen können, Dieser macht auch fast das was ich will,

das was noch fehlt das er die Formatierungen mit kopiert.

Sub Planungsreport()
Dim rng As Range, _
    sFile As String, sPath As String, _
    oldStatusBar As Boolean
    Application.ScreenUpdating = False
    oldStatusBar = Application.DisplayStatusBar
    Application.DisplayStatusBar = True
    sFile = "Test"
    sPath = ThisWorkbook.Path & "\"
    Application.StatusBar = "Daten werden importiert. Bitte warten..."
    With Sheets(1)
      .Range("A1:AZ900").Formula = "='" & sPath & "[" & sFile & _
        "]mööp'!A1:E100"
      Set rng = .Range("A1:AZ900")
    End With
    rng.Cells(1).Copy rng
    rng.Value = rng.Value
    Application.ScreenUpdating = True
    Application.StatusBar = False
    Application.DisplayStatusBar = oldStatusBar
    
    Sheets("Einlesen").Select
    Cells.Select
    Selection.Copy
    Sheets("Planungsreport MLI").Select
    Cells.Select
    ActiveSheet.Paste
    
End Sub

Ich hoffe Ihr könnt mir hier weiterhelfen und bedanke mich schonmal für eure Erfahrung.