application.run
15.10.2003 12:52:53
Silvia
kann mir vielleicht jemand von euch erklären, warum im u.a. Code das erste Application.run einwandfrei funktioniert und das zweite wird rot geschrieben.
Das Ziel-Makro fängt so an: Public Sub AI(tabzahl, AnzahlNC, AnzahlNNC)
Danke, Silvia
Private Sub UF2_berechnen_Click()
Dim cb As Object
Dim tabzahl As Integer
tabzahl = Worksheets.Count
Dim AnzahlNC As Integer
Dim AnzahlNNC As Integer
AnzahlNC = Worksheets(tabzahl).Cells(1, 2).Value
AnzahlNNC = Worksheets(tabzahl).Cells(2, 2).Value
For Each cb In Me.Controls
If TypeName(cb) = "CheckBox" Then
If cb.Value = True Then
Application.Run (Right(cb.name, Len(cb.name) - 2)) 'im Modul 2
Application.Run (Right(cb.name, Len(cb.name) - 2), tabzahl, AnzahlNC, AnzahlNNC)
End If
End If
Next cb
Unload Me
End Sub