AW: TextBox Berechnung anstellen
23.11.2007 15:47:00
Heinz
Hallo Karin
Habe jetzt Deinen Code in meinen Code eingefügt.
Leider läuft es nicht nach wunsch. Es wird in TextBox27 kein Wert angezeigt.
Könntest Du mir bitte nochmals weiterhelfen.
Gruß Heinz
Private Sub cmdUebertragen_Click()
If txtA.Value "" Then
Cells(3, 2).Value = txtA.Value '[B3]= Name
End If
If txtB.Value "" Then
Cells(3, 1).Value = txtB.Value '[A3]= PersNummer
End If
If TextBox17.Value "" Then
Cells(1, 6).Value = TextBox17.Value '[F1]= Beginn Stundenliste
End If
If txtD.Value "" Then
Cells(101, 2).Value = txtD.Value '[B101]= Montag Arb.Beginn
End If
If TextBox1.Value "" Then
Cells(101, 3).Value = TextBox1.Value '[C101]= Montag Arb.Ende
End If
If TextBox27 = Range("G58") Then
End If
TextBox28 = Range("M47") = CDbl(TextBox27) * CDbl("TextBox28")
End If
If CheckBox1.Value = True Then '[H101]= Montag bezahlte Pause
Range("H101") = "Ja"
End If
Unload Me
End Sub