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
|