Globale Makros
14.06.2005 15:30:13
Matt
Habe ein Makro in einer Exceldatei geschrieben und möchte dies nun in anderen Exceldateien zur Verfügung haben.
Wie funktioniert dies?
Das Makro ist ganz easy und macht nix anderes, als leere Zeilen mit dem vorherigen Wert zu füllen.
Sub zellenFuellen()
Dim i As Integer
i = 2
Dim tempWert1 As String
Dim tempWert2 As String
Do While i < 32000
If Sheet1.Cells(i, 1) <> "" Then
tempWert1 = ActiveSheet.Cells(i, 1)
tempWert2 = ActiveSheet.Cells(i, 2)
ElseIf Sheet1.Cells(i, 1) = "" Then
ActiveSheet.Cells(i, 1) = tempWert1
ActiveSheet.Cells(i, 2) = tempWert2
End If
i = i + 1
Loop
End Sub
Es existiert in Datei A und ich möchte es in Datei B anwenden.
Wenn ich es allerdings aus dem Makrodialog starte, wendet er es in Datei A an, soll es aber auf Datei B anwenden...
Grüße
Matt
Anzeige