Makro starten
12.12.2008 22:13:31
Hans
über ein makro lasse ich mehrere andere makros nacheinander starten, nun hab ich das problem das der zellwert einer zelle darüber entscheident ist welches makro ausgeführt werden soll, das funktioniert aber leider nicht, ich hoffe einer von euch kann mir weiterhelfen. hier der code:
Private Sub cmbÜbern_Click()
If Me.txtJahr1.Value 2099 Then
MsgBox "Bitte ein Jahr zwischen 1900 und 2078 wählen!", vbOKOnly + vbCritical, _
CTitleMsgBox
End If
[Jahr1] = Me.txtJahr1.Value
[Jahr2] = Me.txtJahr1.Value
[Jahr3] = Me.txtJahr1.Value
[BenJahr] = Me.txtJahr1.Value
[Ja] = Me.txtJahr1.Value
[BenName] = Me.txtName.Value
[Schicht] = Me.txtErsteS.Value
Worksheets("Fs-Planer").[a101:b137] = Worksheets("Vorgaben").[AA8:AB44].Value
Worksheets("Fs-Planer").[a139:b158] = Worksheets("Vorgaben").[Termin1:Notiz20].Value
Worksheets("Fs-Planer").[a526] = Worksheets("Fs-Planer").[a101].Value
!!! HIER funktioniert es nicht If [SchichSys] = 3 Then Call Schichtsystem_3
!!! HIER funktioniert es nicht If [SchichSys] = 4 Then Call Schichtsystem_4
!!! HIER funktioniert es nicht If [SchichSys] = 4 And [ErsteSchi] = FZwei Then Call _
Schichtsystem_4_1
Call DatumfürSchicht
Call FeFeSchicht
Call FeSoschicht
Call FeNschicht
Call FeTschicht
Call NFeschicht
Call SaSchicht
Call SoSchichtN
Call SoSchichtT
Call Vollmond_berechnen
Worksheets("Fs-Planer").[a526:b526] = Clear
cmbErstellen.Visible = True
End Sub
Danke Hans