Hallo rampf
Kennt sich niemand damit aus?
Wie alle Foren ist auch dieses rein freiwillig. Wenn jemand antworten möchte und kann, dann tut er das auch. Wenn jemand keine Zeit findet oder sich keine nimmt, dann antwortet diese Person eben nicht.
Nebenbei ist dies nicht ganz trivial, vor allem aus der Ferne. Aber versuchen wir es mal.
Da ich wie gesagt kein Visio habe kann mache ich meine Tests in Excel. In Visio musst Du dann selber ausprobieren.
Gehe in den Visual Basic Editor un füge unter 'Einfügen' -> 'UserForm' ein Formular ein. Im Idealfall hast Du ein kleineres Fenster mit den 'Eigenschaften', oder sonst über 'Ansicht' -> 'Eigenschaftsfenster' einschalten. Dort gibst Du bei '(Name)' hinten einen einigermassen aussagekräftigen Namen ein z.B. frmEingabe.
Dann fügst Du via der Werzeugsammlung die benötigten Felder ein. Eingabefelder sind 'Textfelder', nur Beschriftungen sind 'Bezeichnungsfelder'. Auch diesen gibst Du Namen, welche 'was aussagen. z.B. txtTitel, txtAbteilung usw.
Auch eine Befehlsschaltfläche fügst Du ein. Mein Name cmdOK. Dort machst Du einen Doppelclick drauf und kannst dann Code eingeben:
Private Sub cmdOK_Click()
If Me.txtAbteilung = "" Or Me.txtTitel = "" Then
MsgBox "Eingabe fehlt"
Exit Sub
End If
Unload Me
End Sub
Mit Me.txtAbteilung resp. Me.txtTitel kannst Du abfragen, ob dort eine Eingabe gemacht wurde. Wenn nicht (=""), dann erscheint eine Meldung, dass die Eingabe fehlt. Wenn nicht, wird das Formular gechlossen. Dort muss Du dann narürlich die Daten dann in Dein Visio eintagen.
Auch fehlt natürlich ein Abbrechen Knopf etc.
Starten Tust Du das Formular mit frmEingabe.Show
Ein Excel z.B. in 'Dieser Arbeitsmappe' und dann unter Woorkbook_Open.