Office Forum
www.Office-Loesung.de
Access :: Excel :: Outlook :: PowerPoint :: Word :: Office :: Wieder Online ---> provisorisches Office Forum <-
Userform Auswahl mit OptionButton zum Einfügen in Textmarke
zurück: Fehlende Daten eintragen weiter: Inhaltsverzeichnis per Makro einfügen Unbeantwortete Beiträge anzeigen
Neues Thema eröffnen   Neue Antwort erstellen     Status: Antwort Facebook-Likes Diese Seite Freunden empfehlen
Zu Browser-Favoriten hinzufügen
Autor Nachricht
michtoep
Im Profil kannst Du frei den Rang ändern


Verfasst am:
16. Jul 2012, 13:31
Rufname:

Userform Auswahl mit OptionButton zum Einfügen in Textmarke - Userform Auswahl mit OptionButton zum Einfügen in Textmarke

Nach oben
       Version: Office 2010

Hallo zusammen,

bin Neuling und habe ein Problem.

Ich habe ein Formular, in dem eine Textmarke, nennen wir Sie mal "Auswahl", definiert ist. Beim Öfnnen des Formulars soll eine UserForm geöffnet werden, auf dem nur zwei Optionsfelder mit der Bezeichnung Ja und Nein zu sehen sind und natürlich zwei CommandButtons mit OK und Abrechen um die UserForm wieder zum verlassen. Beim Bestätigen mit OK soll bei aktivierten Optionsfeld "Ja" der Text im Formular an der Position der Textmarke "Sie erhalten hiermit eine Schlusszahlung" erscheinen. Bei aktivierten Optionsfeld "Nein" soll der Text "Sie erhalten hiermit eines Zwischenabrechnung" eingetragen werden.
Ich hoffe Ihr könnt mir weiter helfen und bedanke mich im voraus.
MfG
Michael
MarkMH_K
z.Z. gaanz unregelmäßig online


Verfasst am:
17. Jul 2012, 00:54
Rufname: Markus
Wohnort: Köln rrh


AW: Userform Auswahl mit OptionButton zum Einfügen in Textma - AW: Userform Auswahl mit OptionButton zum Einfügen in Textma

Nach oben
       Version: Office 2010

Hi,

muß das so kompliziert sein? Für User, die für Effizienz zu haben sind und ein wenig mitdenken, würde ich einen anderen Ansatz bevorzugen: ASK-Feld.
- Ermitteln, was häufiger ist, Schlußzahlung oder Zwischenabrechnung.
- ASK-Feld* eingeben. Sieht so aus, wenn Schlußzahlung das häufigere wäre:
{ASK "S" "Schlußzahlung? Wenn nicht, "S" wegmachen." \d "S"}
- Ergebnis des ASK mit einem IF auswerten (und gleiche Texte vor die Klammer ziehen):
Sie erhalten hiermit eine {If {Ref "S"} = "S" "Schlußzahlung" "Zwischenabrechnung"}.

HTH.

Markus
--------------------------------------
* Syntax: {ASK Textmarke Aufforderung \d Standard-Eingabewert}[/i][/i]
Gast



Verfasst am:
17. Jul 2012, 08:35
Rufname:

AW: Userform Auswahl mit OptionButton zum Einfügen in Textma - AW: Userform Auswahl mit OptionButton zum Einfügen in Textma

Nach oben
       Version: Office 2010

Hallo Markus,

es muss leider so kompliziert sein, da das Formular aus einem Formularprogramm heraus geöffnet wird und mit Daten aus einer anderen Anwendung mit variablen gefüllt wird. Da dieses Formular nur einmal als dotx vorhanden ist und nach der Übergabe direkt entschieden werden muss, ob ein Alternativtext bei der Schlusszahlung erscheinen soll, muss direkt nach dem Öffnen des Formulars die Userform erscheinen.
Ich habe mir auch schon Gedanken gemacht, ob das irgendwie anders zu lösen ist. Ich sehe keine elegantere Möglichkeit.
Danke für deine Antwort.
Gruß
Michael
cbc042
Im Profil kannst Du frei den Rang ändern


Verfasst am:
18. Jul 2012, 10:23
Rufname: Alexandra
Wohnort: Dortmund


AW: Userform Auswahl mit OptionButton zum Einfügen in Textma - AW: Userform Auswahl mit OptionButton zum Einfügen in Textma

Nach oben
       Version: Office 2010

Hallo Michael,

Du brauchst eine DOCM-Datei. Nur in dieser sind Makros erlaubt. In dieser Datei bastelst Du ein Formular, das die beiden Optionsknöpfe (ich habe sie opt_ja und opt_nein genannt) und die OK- und Abbrechen-Buttons enthält (cmd_ok und cmd_cancel). Der Code dahinter sieht so aus:
Code:
Option Explicit

Private Sub cmd_cancel_Click()
 Unload Me
End Sub

Private Sub cmd_ok_Click()
Dim strJaText As String
Dim strNeinText As String
strJaText = "Sie erhalten hiermit eine Schlusszahlung"
strNeinText = "Sie erhalten hiermit eines Zwischenabrechnung"
    If Me.opt_ja.Value = True Then
      ActiveDocument.Bookmarks("Auswahl").Range.InsertAfter strJaText
    Else
      ActiveDocument.Bookmarks("Auswahl").Range.InsertAfter strJaText
    End If
Unload Me
End Sub


Als nächstes gehst Du auf ThisDocument, suchst dort die Aktion OPEN und benutzt folgenden Code:
Code:
Private Sub Document_Open()
 frm_auswahl.Show
End Sub


Ich habe Dir eine kleine Beispiel-Datei fertig gemacht, darf aber hier noch nichts hochladen. Wenn Du mir Deine Email-Adresse gibst, schicke ich es Dir, falls diese Anleitung zu knapp ist.

_________________
Gruesse

Alexandra
Neues Thema eröffnen   Neue Antwort erstellen Alle Zeiten sind
GMT + 1 Stunde

Diese Seite Freunden empfehlen

Seite 1 von 1
Gehe zu:  
Du kannst Beiträge in dieses Forum schreiben.
Du kannst auf Beiträge in diesem Forum antworten.
Du kannst deine Beiträge in diesem Forum nicht bearbeiten.
Du kannst deine Beiträge in diesem Forum nicht löschen.
Du kannst an Umfragen in diesem Forum nicht mitmachen.
Du kannst Dateien in diesem Forum nicht posten
Du kannst Dateien in diesem Forum herunterladen

Verwandte Themen
Forum / Themen   Antworten   Autor   Aufrufe   Letzter Beitrag 
Keine neuen Beiträge Word Serienbriefe: Textmarke nicht definiert 2 TKInfo 6713 20. Dez 2012, 06:13
jango741 Textmarke nicht definiert
Keine neuen Beiträge Word Serienbriefe: Feld mit Datum +2 Tage einfügen 2 Sinured 3184 29. Jan 2010, 11:26
Gast Feld mit Datum +2 Tage einfügen
Keine neuen Beiträge Word Serienbriefe: Bilder aus Ordner in Serienbrief einfügen 3 alioli1 2045 29. Nov 2009, 11:45
Gast Bilder aus Ordner in Serienbrief einfügen
Keine neuen Beiträge Word Serienbriefe: Adressen aus Office tabellen dokument in dokument einfügen 1 Anna-L. 1217 15. Nov 2009, 21:42
charlybrown Adressen aus Office tabellen dokument in dokument einfügen
Keine neuen Beiträge Word Serienbriefe: Einfügen versch. Adressen aus einer Datenqu. in ein Dokument 9 Gast 920 04. Nov 2009, 15:02
charlybrown Einfügen versch. Adressen aus einer Datenqu. in ein Dokument
Keine neuen Beiträge Word Serienbriefe: Checkbox in Word einfügen, Abfrage Bedingung aus Excel 10 1cyber 23707 05. Jun 2009, 13:17
Gast Checkbox in Word einfügen, Abfrage Bedingung aus Excel
Keine neuen Beiträge Word Serienbriefe: Bilder in Worddokumente automatisch einfügen 0 iam_RaGe 2850 24. März 2009, 14:07
iam_RaGe Bilder in Worddokumente automatisch einfügen
Keine neuen Beiträge Word Serienbriefe: Absender für alle Etiketten einfügen 1 Gast 6017 11. Feb 2009, 13:16
Maulende Myrte Absender für alle Etiketten einfügen
Keine neuen Beiträge Word Serienbriefe: Anrede einfügen 0 ArianeH 910 27. Aug 2008, 11:47
ArianeH Anrede einfügen
Keine neuen Beiträge Word Serienbriefe: Wenn dann Textbaustein / Autotext einfügen 0 miricoleo 4173 01. Dez 2007, 21:04
miricoleo Wenn dann Textbaustein / Autotext einfügen
Keine neuen Beiträge Word Serienbriefe: Datenbank einfügen klappt nicht mehr! 2 Schwertfeger 1321 24. März 2007, 21:32
Schwertfeger Datenbank einfügen klappt nicht mehr!
Keine neuen Beiträge Word Serienbriefe: Grafik immer in gleicher Größe einfügen 0 Maik 2470 05. Sep 2006, 10:47
Maik Grafik immer in gleicher Größe einfügen
 

----> Diese Seite Freunden empfehlen <------ Impressum - Besuchen Sie auch: Microsoft Project