Hallo,
Ich hab eine prozedur, diese prüf 3 variabeln wenn diese nicht vorhanden sind soll er sie durch eine Inputbox abfragen, aber ich würde sie gerne gleichzeitig abfragen, jedoch kann ich über die inputbox immer nur eine abfrage machen.
Ich hab jetzt eine Userform gemacht die die drei variabeln abfragt, jedoch weiss ich nicht wie ich diese userform in meinem prozedur einbinde.
Sub ANMELDUNG()
AUSLESEN
If sozialver "" Then GoTo Weiter
If geburtsd "" And geborenin "" Then GoTo Weiter
Userform1.show
sozialver = Userform1.TextBox1.value
geburtsd = Userform1.TextBox2.value
geborenin = Userform1.TextBox3.value
Weiter:
End Sub
das problem, ist wie mach ich das ich die werte zurück bekomme. im userfrom gibt es zwei schaltflächen, einmal Weiter 
und einmal Abbrechen.
Könnt ihr mir da weiter helfen.
Lieben gruß
Leo
das problem, ist wie mach ich das ich die werte zurück
bekomme. im userfrom gibt es zwei schaltflächen, einmal Weiter
und einmal Abbrechen.
Hallo Leo,
wohin willst du sie zurück bekommen?
in eine Zelle?
Range(„A1“).Value=sozialver
oder direkt in die zelle dann brauchste die Variable nicht.
Gruß
Reinhard
nee, die prozedur macht bevor sie startet eine abfrage check ob die daten in der zelle eingefügt wurden wenn nicht soll er sie nochmal erfragen. eigentlich könnte man es mit inputbox machen aber da kann man ja leider immer nur eine info aufeinmal abfragen aber ich würde gerne 3 informationen direkt abfragen und dafür hab eine userform erstellt.
die prozdedur soll dann mit den erfragten informationen weiter arbeiten sobald man in der Userform dann auf Weiter klickt. ich hoffe du versteht jetzt was ich meine.
wenn nicht dann müsste ich morgen nochmal genauere informationen zusammen tragen. es gibt zwar ein umweg den man gehn kann über mehrer prozeduren aber schöner wäre es nur über eine einzige zu gehn.
hallo dark,
wenn nicht dann müsste ich morgen nochmal genauere
informationen zusammen tragen.
okay, dann warte ich auf morgen.
Würde sicher nicht schaden wenn du dann auch deinen ganzen, dafür relevanten, Code hier zeigst.
Gruß
Reinhard
So mal den relevanten code.
Sub AUSLESEN()
namem = Sheets("Bearbeitung").Cells(12, 2) ' Name einlesen
vorname = Sheets("Bearbeitung").Cells(12, 6) ' Vorname einlesen
geburtsd = Sheets("Bearbeitung").Cells(15, 2) ' Geburtsdatum einlesen
adresse = Sheets("Bearbeitung").Cells(21, 2) ' Strasse, Nr. einlesen
ort = Sheets("Bearbeitung").Cells(24, 3) ' Wohnort einlesen
plz = Sheets("Bearbeitung").Cells(24, 2) ' Postleitzahl einlesen
handynr = Sheets("Bearbeitung").Cells(30, 2) ' Handy Nr einlesen
geborenin = Sheets("Bearbeitung").Cells(18, 2) ' Geboren in einlesen
sozialver = Sheets("Bearbeitung").Cells(18, 6) ' Sozielaversicherung einlesen
End Sub
Sub PROBETAGANMELDEN()
AUSLESEN
If sozialver "" Then GoTo Weiter
If geburtsd "" And geborenin "" Then GoTo Weiter
UserForm1.Show
Weiter:
SPEICHERN
End Sub
Sub SPEICHERN()
blatt = Datenbank
With Workbooks("Daten.xls")
.Sheets(blatt).Cells(z, 1) = (z - 2) 'Zeilen Positions Nr.
.Sheets(blatt).Cells(z, 3) = namem ' Name schreiben
.Sheets(blatt).Cells(z, 4) = vorname ' Vorname schreiben
.Sheets(blatt).Cells(z, 5) = geburtsd ' Geburtsdatum schreiben
.Sheets(blatt).Cells(z, 7) = adresse ' Strasse, Nr. schreiben
.Sheets(blatt).Cells(z, 8) = plz ' Postleitzahl schreiben
.Sheets(blatt).Cells(z, 9) = ort ' Wohnort schreiben
.Sheets(blatt).Cells(z, 10) = handynr ' Handy Nr schreiben
.Sheets(blatt).Cells(z, 13) = sozialver ' Sozielaversicherung schreiben
.Sheets(blatt).Cells(z, 19) = geborenin ' Geboren in schreiben
End With
End Sub
Wie man sieht startet die prozdur den userform1 sobald bestimmte daten fehlen, und die sollen da erfragt werden und dann soll sie erfragten daten in die variablen eingelesen werden damit die prozedur weiter arbeiten kann… wie geht sagt mit einer Inputbox könnte man das lösen jedoch nur eine frage nach dere anderen und ich würde mich freuen wenn es allen gleichzeitig geht.
Auf der Userform1 sieht man 3 Textboxen mit jeweils ein button für weiter und ein Button für abbruch. wenn man auf Weiter klickt sollen die variablen die ja vorher leer waren gefüllt um dann dort weiter zu machen wo er unterbrechen musste…
geht das?
vielen dank schon mal für die hilfe.
Gruß
Leo