Registriert seit: 23.12.2014
Version(en): 2010
Hallo, ich brauche Eure Hilfe.
In der Anlage befindet sich meine Exceltabelle.
Wenn ich die Maske "Daten Eingabe" benutze, dann wird im rechten Teil der Tabelle, dort wo K, oder ko steht, nichts automatisch eingetragen. Trage ich allerdings das Datum arbeitsunfähig seit von bis händisch ein funktioniert alles. Dann wird da alles auch automatisch eingetragen.
Also stimmt die Formel. Aber woran liegt es? Komm da nicht weiter.
Danke
Angehängte Dateien
Krankenstatistik TestBlatt.xlsm (Größe: 1.023,15 KB / Downloads: 5)
Registriert seit: 13.04.2014
Version(en): 365, 2019
Hallo,
Deine Datumswerte werden als Texte eingetragen, damit sind sie für die Formel nicht als Zahlen erkennbar.
Code:
Private Sub cmdschließen_Click()
'fügt die eingetragenen Werte ins Tabellenblatt und schließt das Formular Krankenschein
Dim intErsteLeereZeile As Long
intErsteLeereZeile = ActiveSheet.Cells(Rows.Count, 1).End(xlUp).Row + 1
ActiveSheet.Cells(intErsteLeereZeile, 1) = Me.TxtName
ActiveSheet.Cells(intErsteLeereZeile, 2) = Me.txtVorname
ActiveSheet.Cells(intErsteLeereZeile, 3) = Me.txtgeboren
ActiveSheet.Cells(intErsteLeereZeile, 5) = Me.ComboBox1
ActiveSheet.Cells(intErsteLeereZeile, 6) = DateValue(Me.txtarbeitsunfähigseit)
ActiveSheet.Cells(intErsteLeereZeile, 7) = DateValue(Me.txtvorraussichtlichbis)
ActiveSheet.Cells(intErsteLeereZeile, 8) = DateValue(Me.txtfestgestelltam)
ActiveSheet.Cells(intErsteLeereZeile, 9) = Me.OptionButton1
ActiveSheet.Cells(intErsteLeereZeile, 10) = Me.OptionButton3
ActiveSheet.Cells(intErsteLeereZeile, 12) = Me.OptionButton4
ActiveSheet.Cells(intErsteLeereZeile, 13) = Me.OptionButton5
ActiveSheet.Cells(intErsteLeereZeile, 11) = Me.OptionButton6
Unload frmKrankenschein
End Sub
Der Code ist nicht sehr überzeugend, vor allem fehlen jegliche Variablendeklarationen, das kann auch mal schiefgehen!
Gruß
Edgar
Meine Antworten sind freiwillig und ohne Gewähr!
Über Rückmeldungen würde ich mich freuen.
Registriert seit: 11.04.2014
Version(en): 2003/2007/2013 (bei Bedarf auch noch '97/2000/2010)
Hi,
Zitat: Aber woran liegt es?
Das liegt daran, dass Du aus den Textboxen der Userform das Datum im
Textformat und nicht im Datumsformat übergibst :27:
Überlegen macht überlegen
Gruss aus dem schönen Hunsrück
_______ Klaus-Martin _______
Registriert seit: 23.12.2014
Version(en): 2010
OK Danke, das ist ja schon mal ein Ansatz, wie müsste es denn richtig heißen?
Registriert seit: 11.04.2014
Version(en): 2003/2007/2013 (bei Bedarf auch noch '97/2000/2010)
Hi,
Zitat: wie müsste es denn richtig heißen?
hat Edgar Dir doch geschrieben !
Überlegen macht überlegen
Gruss aus dem schönen Hunsrück
_______ Klaus-Martin _______
Registriert seit: 23.12.2014
Version(en): 2010
ups, ach ja sorry. Naja Tomaten auf den ...
Danke