in einem Modul kommt dieser Aufruf als Bestandteil eines längeren Codes - dh der soll insgesamt durchlaufen
If Tabelle31.cmdTPD_ZusZylWechs.Caption = "Zyl.-Wechsel einblenden" Then
Call cmdTPD_ZusZylWechs_Click
End If
..usw...
In dem aufgerufenen Code im anderen Modul erscheint eine Inputbox - die wird ansonsten von Hand gefüllt, soll bei diesem Aufruf aber automatisch mit 5 gefüllt werden. Wie schreibt man das?
Public Sub cmdTPD_ZusZylWechs_Click()
Dim ZylWechs As Variant
Dim i As Integer
If Worksheets("TP-Daten").cmdTPD_ZusZylWechs.Caption = "Zyl.-Wechsel einblenden" Then
ZylWechs = Application.InputBox("Wieviele Zylinderwechsel insgesamt?" & vbLf & "(maximal 5)", "Zusätzliche Zylinderwechsel...", , , , , , 2)
If Not IsNumeric(ZylWechs) Then
Exit Sub
ElseIf ZylWechs = .......usw.......
Danke für 'ne Nachhilfe :-)
Jörg