Werte aus cbo - auf Target Range retour
03.07.2017 18:22:38
STeve
Bin über das SheetChange Ereignis in eine Userform gekommen. Dort kann der User Werte (Zeiten) in cbo's eintragen.
Nach Eingabe aller Werte muss ich die natürlich wieder auf das ActiveBlatt zurück die Werte übertragen (click auf cmdPlanungdurchfuehren) und zwar mit der Range-Angabe TARGET.
Und da steht natürlich alles weil er Target nicht mehr kennt.
Ihr wisst sicher wie ich die Werte wieder aus der Useform rausbringe!!!!!!!!
Hier der Code:
Private Sub cmdPlanungdurchfuehren_Click()
Dim JDAnzahl As String
JDAnzahl3 = "'-J3"
JDAnzahl4 = "'-J4"
MsgBox ActiveSheet.Name 'es wird das richtige Blatt angezeigt
If Me.opt3JD_Stunden.Value = True Then
Select Case Left(Me.cboJD_Uebersichtbei_3, 2)
Case Is = "19", "20", "21", "22", "23"
ActiveSheet.Cells(Target.Row + 1, Target.Column).Value = JDAnzahl3
Case Is = "24", "00", "01", "02", "03", "04", "05"
ActiveSheet.Cells(Target.Row + 1, Target.Column + 1).Value =JDAnzahl3
End Select
End If
End Sub
STeve...............der ein Problem nach dem nächsten hat. :-(