Macro ausführen
26.04.2018 14:55:26
Siegfried
ich habe in dem Modulblatt einer UserForm (mdl_UF) allgemeinen Code (Stufe1) stehen.
In einem anderen Modul (mdl_AG) habe ich einen Testcode (StufenAufruf), in dem ich auf einen Code aus mdl_UF zugreifen möchte.
Geht das? Und wenn, wie muß ich das anstellen?
Bei meinem bisherigen Versuch mit Call Stufe1 komme ich nicht weiter.
Sub StufenAufruf()
Dim n1 As Integer
Dim AnzTN As Integer, AnzKombi As Integer
Dim RngNächsteZahlenSchweiz As Range
If ActiveSheet.Name = "Einzel" Then
AnzTN = Range("AnzahlEinzel.TN")
Else
AnzTN = Range("AnzahlDoppel.TN")
End If
AnzKombi = WorksheetFunction.Combin(AnzTN, 2)
Set RngNächsteZahlenSchweiz = Range(Cells(1, 1).Offset(1, AllSystInterimPart1), _
Cells(1, 1).Offset(AnzKombi, AllSystInterimPart2))
For n1 = 1 To 5
If WorksheetFunction.Count(RngNächsteZahlenSchweiz) AnzTN Then
Call Application.Run("Stufe" & n1 & "_Test")
Cells(1, 1).Offset(0, AllSystInterimPart1) _
= WorksheetFunction.Count(RngNächsteZahlenSchweiz)
Cells(1, 1).Offset(0, AllSystInterimPart2) = "Stufe" & n1
' Call Application.Run("Stufe" & n1)
End If
Next n1
End Sub
GrußSiegfried