Variable aus Makro1 an Makro2 übergeben
11.11.2004 12:12:42
peter
wie kann ich eine Variable aus Makro1 in Makro2 übergeben ?
In diesem Fall zeichen1.
Sub Makro1()
Dim zeichen1
Dim zeichen2
zeichen1 = InputBox("zeichen eingeben", Test)
zeichen2 = InputBox("das soll geschrieben werden", Ersetzen)
Application.AutoCorrect.AddReplacement What:=zeichen1, Replacement:=zeichen2
With Application.AutoCorrect
.TwoInitialCapitals = True
.CorrectSentenceCap = True
.CapitalizeNamesOfDays = True
.CorrectCapsLock = True
.ReplaceText = True
End With
End Sub
Sub Makro2()
Application.AutoCorrect.DeleteReplacement What:=zeichen1
With Application.AutoCorrect
.TwoInitialCapitals = True
.CorrectSentenceCap = True
.CapitalizeNamesOfDays = True
.CorrectCapsLock = True
.ReplaceText = True
End With
End Sub
Danke schon mal
Gruß Peter
Anzeige