Problem mit UserForm
15.01.2004 13:03:29
Benjamin
ich habe ein Problem mit meiner UserForm...
Wenn der aktuelle Monat Januar ist, soll der Code-Teil "If Month(Now()) = 1 ..." bis "End If" übersprungen werden und bei "MIN_Std..." weitergeführt werden.
Das klappt leider nicht! :-)
Kann mir jemand von euch Profis weiterhelfen und den Code dementsprechend umstricken??
Private Sub CommandButton1_Click()
With ANGABEN_ANFANGSWERTE
If Month(Now()) = 1 Or Month(Worksheets("DISPO").Range("D3")) = 1 Then
If .Std_Ist.Value = "" Then Call FehltWas: .Std_Ist.SetFocus: Exit Sub
Std_Ist = Format(Std_Ist, "##0:00")
Range("DISPO!F54") = ANGABEN_ANFANGSWERTE.[Std_Ist].Text
End If
MIN_Std = Format(MIN_Std, "##0:00")
Range("DISPO!F53") = ANGABEN_ANFANGSWERTE.[MIN_Std].Text
FRZ_Kto = Format(FRZ_Kto, "##0:00")
Range("DISPO!F56") = ANGABEN_ANFANGSWERTE.[FRZ_Kto].Text
ZUS_Std = Format(ZUS_Std, "##0:00")
Range("DISPO!F55") = ANGABEN_ANFANGSWERTE.[ZUS_Std].Text
Range("DISPO!F57") = ANGABEN_ANFANGSWERTE.[Url_Alt].Text
Range("DISPO!F58") = ANGABEN_ANFANGSWERTE.[Url_Neu].Text
Range("DISPO!L76") = ANGABEN_ANFANGSWERTE.[Url_Neu].Text
Range("DISPO!F59") = ANGABEN_ANFANGSWERTE.[ZUS_Tage].Text
End With
Unload Me
Call Daten_Übernommen
End Sub
Vielen Dank vorab!
Gruss Benny