Guten Tag,

ich beschäftige mich erst seit kurzem mit VBA und Makro etc.

Und zwar brauche ich einen Code, mit dem ich bereits farblich markierte Zeilen per Button-Klick in einer separaten Tabelle (Fenster) öffnen kann. 

Ich habe hier ein Code, mit dem das Öffnen einer separaten Tabelle (Fenster) wunderbar klappt nur eben ohne Daten:

Sub Modul_in_neue_Datei_exportieren()
'Modul1 dieser Mappe in neue Datei exportieren
Dim Pfad As String


Pfad = ThisWorkbook.Path & "\Modul1.bas"

'Modul1 aus dieser Mappe exportieren
Application.VBE.ActiveVBProject.VBComponents("Modul1").Export Pfad

Workbooks.Add

'Modul1 in neue Mappe importieren
With ActiveWorkbook
  Application.VBE.ActiveVBProject.VBComponents.Import Pfad
End With


End Sub

Danke im Voraus

LG