AW: Findet Programm nicht mehr..
22.05.2019 20:37:32
Werner
Hallo Peter,
hier mal ein paar Anmerkungen (betreffen die hochgeladene Beispielmappe):
Setz mal im Code des Übernehmen-Buttons der Userform PatientendatenErfassen einen Haltepunkt und lass den Code dann im Einzelstep laufen.
Schau dir mal an, welchen Wert deine Variable las hat.
Irgendetwas von sechstausend weiß nicht mehr.
Scroll dann mal in den Bereich. Da sind irgendwelche Daten von deiner Probiererei wohl reingeschrieben worden - lösch die mal.
Die Sache mit der nicht vorhandenen Deklaration von den Variablen wurde ja schon angemerkt.
Hier mal der Code des Übernehmen-Buttons der Userform PatientendatenErfassen etwas angepasst und mit ein paar Bemerkungen im Code.
Private Sub CommandButton2_Click()
last = ActiveSheet.Cells(Rows.Count, 1).End(xlUp).Row + 1
'#### die Variable rechnungsnummer wurde nicht befüllt, hat somit den Wert 0
'#### damit schreibst du hier eine 0 in die erste freie Zeile Spalte L
'#### ist das so gewollt ?
ActiveSheet.Cells(last, 12).Value = rechnungsnummer
ActiveSheet.Cells(last, 1).Value = PatientendatenErfassen.Anrede.Value
ActiveSheet.Cells(last, 2).Value = PatientendatenErfassen.Titel.Value
ActiveSheet.Cells(last, 3).Value = PatientendatenErfassen.Vorname.Value
ActiveSheet.Cells(last, 4).Value = PatientendatenErfassen.Name1.Value
ActiveSheet.Cells(last, 5).Value = PatientendatenErfassen.Plz.Value
ActiveSheet.Cells(last, 6).Value = PatientendatenErfassen.Ort.Value
ActiveSheet.Cells(last, 7).Value = PatientendatenErfassen.Straße.Value
ActiveSheet.Cells(last, 8).Value = PatientendatenErfassen.Hausnummer.Value
ActiveSheet.Cells(last, 9).Value = PatientendatenErfassen.Diagnose.Value
ActiveSheet.Cells(last, 10).Value = PatientendatenErfassen.Rechnungsdatum.Value
Call EindimensionalesArray_patientenDaten 'Patientendaten
'Rechnungsnummer lesen'
Cells(last, 11) = Cells(last - 1, 11) + 1
'#### was soll denn das Gedöns ? ####
'rechnungsnummer = ActiveSheet.Cells(last - 1, 11).Value 'Letzte Rechnungsnummer lesen
'rechnungsnummer = rechnungsnummer + 1 'Neue Rechnungsnummer festlegen
'ActiveSheet.Cells(last, 11).Value = rechnungsnummer 'Neue Rechnungsnummer schreiben
End Sub
Gruß Werner