Supportnet / Forum / PC-Sonstiges
VBA Textfeld Eintrag in Dokument mit Commandbotton übernehmen
Frage
Option Explicit
Public Zeichen As String
Public Kontakt As String
Public Datum As String
Public Anrede As String
Public person As String
Private Sub ComComOK_Click()
If TextKontakper = "" Then
MsgBox "Bitte geben Sie eine Kontakperson ein.", 64, "Fehler"
End If
If TextBriefvom = "" Then
MsgBox "Bitte geben Sie eine Datum ein.", 64, "Fehler"
End If
TextBriefvom.Value = Datum
TextKontakper.Value = Kontakt
ActiveDocument.FormFields("Zeiche").Result = Zeichen
ActiveDocument.FormFields("Kontakt").Result = Kontakt
ActiveDocument.FormFields("Brief").Result = Datum
ActiveDocument.FormFields("Anred").Result = Anrede
ActiveDocument.FormFields("Kontaktperson").Result = person
If Anrede = "Sehr geehrte Damen und Herren" Then
Bild2.Picture = LoadPicture("a:\bild11.jpg")
Else: Bild2.Picture = LoadPicture("a:\bild3.jpg")
End If
If Anrede = "Sehr geehrter Herr Doktor" Then
Bild2.Picture = LoadPicture("a:\bild6.jpeg")
End If
End Sub
Private Sub mitarbeiter_Click()
Select Case Mitarbeiter.ListIndex
Case 0
Bild_1.Picture = LoadPicture("a:\bild11.jpg")
person = "Frau Pferd"
Case 1
Bild_1.Picture = LoadPicture("a:\bild12.jpeg")
person = "Frau Musch"
Case 2
Bild_1.Picture = LoadPicture("a:\bild3.jpg")
person = "Frau UDMA"
Case 3
Bild_1.Picture = LoadPicture("a:\bild6.jpeg")
person = "Frau Willig"
End Select
End Sub
Private Sub OptDameHerr_Click()
Anrede = "Sehr geehrte Damen und Herren"
End Sub
Private Sub OptFrauDoktor_Click()
Anrede = "Sehr geehrte Frau Doktor"
End Sub
Private Sub OptHerrDoktor_Click()
Anrede = "Sehr geehrter Herr Doktor"
End Sub
Private Sub OptiOHGAG_Click()
Zeichen = "OHG/AG"
End Sub
Private Sub OptiOHGEG_Click()
Zeichen = "OHG/EG"
End Sub
Private Sub OptOHGOG_Click()
Zeichen = "OHG/OG"
End Sub
Private Sub TextBriefvom_Change()
End Sub
Private Sub TextKontakper_Change()
End Sub
Private Sub UserForm_Activate()
With Mitarbeiter
.AddItem ("Frau Pferd")
.AddItem ("Frau Musch")
.AddItem ("Frau UDMA")
.AddItem ("Frau Willig")
End With
End Sub
Hier sieht ihr meinen kompletten Code. vielleicht noch nicht ganz ausgereift. Ich hab ein kleines Problem ich habe zwei Textfelder in meinen Formular TextBriefvom
TextKontakper
in den einen (Kontaktperson) soll ein Name eingetragen werden, in das andere ein Datum.
Welche Variabel muss ich nehmen?? Integer????
Textformular Felder hab ich auch den Richtigen Namen hab ich eingetragen. Jedoch immer wenn ich ok drücke werden die Eingaben aus dem beiden Textfeldern nicht in das Dokument übertragen. Kann mir einer helfen??
Und falls jemand eine Möglichkeit kennt über ein solches Formular ein Bild auszuwählen und dies ebenfalls in das Dokument zu plazieren kann er es mir bitte auch schreiben. Ich danke wie immer ganz besessen.
mfg Froschkoenig
Antwort 1 von Froschkoenig
Kann mir keiner helfen??