


Du hast hier und hier schon Lösungen bekommen.
Mannoman das ist schon echt frech!
Wenn du nicht weißt wieso, dann informiere Dich darüber, wieso Crossposting nicht erwünscht ist.
R
Moderator: Moderatoren
Code: Alles auswählen
sub Pflichtfelder_Rechnung
Dim oSheet as Object
Dim Rechnungsdatum as String, Rezeptdatum as String, vom as String, bis as String, Anrede as String
oSheet = thisComponent.Sheets.getbyname("Eingabemaske Abr_Rechnung")
Rechnungsdatum = oSheet.getCellRangeByName("B23").String
Anrede = oSheet.getCellRangeByName("D8").String
Rezeptdatum = oSheet.getCellRangeByName("C23").string
vom = oSheet.getCellRangeByName("E23").String
bis = oSheet.getCellRangeByName("F23").string
if Rechnungsdatum <>"" and Rezeptdatum <>"" and vom <>"" and bis <>"" and Anrede <>"" then
RechnungErstellen
else
antwort = msgbox ("Abrechnungsdaten nicht vollständig!" & Chr(13) & "Anschrift" & Chr(13) & "Rechnungsdatum"& Chr(13) &"Rezeptdatum"& Chr(13) &"Behandlungsbeginn -ende"& chr(13) & "Rot umrandete Felder beachten !!!",48, "Rechnung erstellen")
end if
end sub