ist es möglich, ein Makro in einer gesonderten Datei zu erstellen, um dieses dann auf anderen Dateien anzuwenden?
Konkret:
Ich habe mehrere Dateien mit Daten. Aus diesen Daten möchte ich bestimmte Spalten behalten und den Rest löschen, anschließend sollen die Daten als Tabelle formatiert werden. Dies mache ich mit folgendem Code:
Sub Spalte_löschen()
Dim spaltenzähler As Integer
Dim Suchbegriff As String
spaltenzähler = 1
While Cells(1, spaltenzähler) ""
Suchbegriff = Cells(1, spaltenzähler)
' Hinweis: Bei der Überschrift
If Suchbegriff "ÜB_1" And Suchbegriff "ÜB_2" Then
Columns(spaltenzähler).Delete
spaltenzähler = spaltenzähler - 1
End If
spaltenzähler = spaltenzähler + 1
Wend
ActiveSheet.ListObjects.Add(xlSrcRange, ActiveSheet.UsedRange, , xlYes).Name = "Table1"
End Sub
Gerne würde ich diesen Code in einer separaten (leeren) Datei speichern, dann die gewünschte Datei mit den Daten öffnen und den Code darüber laufen lassen, ohne dass das Makro in diese Daten-Datei importiert werden muss. Anschließend möchte ich die formatierten Daten abspeichern als Excel ohne Makros. Für die Prozedur müssen entsprechend 2 Dateien geöffnet sein - die eine Datei mit dem Makro und die zweite Datei mit den Daten.Ist es umsetzbar?
Viele Grüße
Kisska