Findet Programm nicht mehr..

Hallo,
ich habe ein Problem für das ich keine Erklärung finde.
Ich habe ein Rechnungsprogramm geschrieben welches, nicht zu letzt wegen der Hilfestellung es Forums, sehr gut läuft. Hier nochmals meinen herzlichen Dank dafür. Allerdings gibt es eine Ausnahme. Wenn ich da Programm mit dem Startbutton starte sollte es, und es hat es am Anfang auch getan, die Patientendaten die eingegeben werden, in dieses Arbeitsblatt mit dem Startbutton eintragen und die letzte Rechnungsnummer dort lesen. Wie gesagt das Programm läuft, schreibt aber die Patientendaten nicht und holt die Rechnungsnummer, ich weiß nicht woher. Die Verknüpfung es Startbutton zeigt in der oberen Zeile~ Programmname!Hauptprogramm~ Hauptprogramm ist der Name des Sub welches das Programm startet. Die Rechnung wird auch problemlos geschrieben, allerdings mit eine nicht nachvollziehbaren Rechnungsnummer, diese aber wiederum fortlaufend. Ich hoffe jemand hat eine Idee.
Vielen Dank im voraus
Peter

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

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

Beliebteste Forumthreads (12 Monate)

14
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Findet Programm nicht mehr..

14 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

14
Beiträge zum Forumthread

Beiträge zu diesem Forumthread