Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1152to1156
1152to1156
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Bedingte Anrede in Formular schreiben

Forumthread: Bedingte Anrede in Formular schreiben

Bedingte Anrede in Formular schreiben
onkelbobby
Hallo,
ich habe eine Excel-Tabelle in der mehrere Adressen stehen. Ich habe diese Tabelle per Makro mit mehreren Formularen verknüpft. Das heisst, wenn ich einen Button drücke startet ein Makro und schreibt mir die gewünschten Adressdaten der aktuell markierten Zeile in die Formularfelder.
Soweit so gut.
Ich möchte jetzt jedoch die Anrede dahingehend ändern, dass statt "Herr" (das in meiner Excel-Tabelle steht) in bestimmten Formularfeldern "Herrn" geschrieben wird. Bei "Frau" soll das natürlich bleiben.
Hier ein Teil des Codes:
wdAnw.ActiveDocument.FormFields.Item("Anrede").Result = Cells(i, 13)
wdAnw.ActiveDocument.FormFields.Item("Vorname").Result = Cells(i, 2)
wdAnw.ActiveDocument.FormFields.Item("Name").Result = Cells(i, 1)
...
Wie ändere ich den Code ab, dass im Formularfeld "Anrede" bei Herr das "n" angehängt wird, bei Frau aber der Text bleibt?
Danke
Robert
Anzeige

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Benutzer
Anzeige
AW: Bedingte Anrede in Formular schreiben
22.04.2010 11:53:19
Hajo_Zi
Hallo Robert,
If Cells(i, 13) ="Herr" Then
wdAnw.ActiveDocument.FormFields.Item("Anrede").Result = Cells(i, 13)&"n"
else
wdAnw.ActiveDocument.FormFields.Item("Anrede").Result = Cells(i, 13)
Endif

Anzeige
AW: Bedingte Anrede in Formular schreiben
22.04.2010 11:54:43
Rudi
Hallo,
= IIf(Cells(i, 13)="Herr","Herrn", Cells(i, 13))
Gruß
Rudi
AW: Bedingte Anrede in Formular schreiben
22.04.2010 11:58:54
onkelbobby
Vielen Dank Euch beiden!
Robert
;

Forumthreads zu verwandten Themen

Autom. Datei erzeugen und Inhalt hineinschreiben..
Helmut

Liebe Mitglieder,
ich habe folgende knifflige Situation manuell zu tätigen:
In einem Ordner befinden sich x PDF-Dokumente (z.B. abcde.pdf, dfg45.pdf, usw.). Zu jedem dieser Dokumente muss ich eine txt-Datei anlegen, die einen Pfad enthält und folgendermaßen aussieht, also z.B. abcde.txt...
05.09.2008 08:59:57
Thread-ID: 1007580
5 Beiträge
Inhalt von UF wird nicht angezeigt
UF

Hi Forum,
ich starte meine UF mit dem folgenden Code:
Sub auto_open() Application.WindowState = xlMinimized UF_BitteWarten.Show vbModeless Application.Run "RESETMASK" UF_BitteWarten.Hide UF_Maske.Show End Sub
Wie zu erkennen, wird beim Start ein Reset ausgeführt, der einige Sekun...
26.09.2008 14:29:02
Thread-ID: 1012639
16 Beiträge
Anzeige
makro umschreiben
haris

Hallo Experten,
ich haben folgendes Makro:
Sub pn_1_7_1() Dim i As Long, ar As Variant, j As Integer For i = 1 To Cells(1, 1).End(xlDown).Row If Cells(i, 1).Value Like "#-#######-#" Then ar = Split(Cells(i, 1).Value, "-") j = 1 While Mid(ar(1), j, 1) = "0" j = j + 1 Wend If j > 1 T...
22.01.2009 09:53:00
Thread-ID: 1042461
4 Beiträge
Daten fortlaufend von Formular in Range schreiben
Formular

Hi,
wie kann ich denn folgende Abfrage bzw kopieren erledigen:
Ich habe Ein Formular mit Textbox'n und Combobox'n
auf einem Bestimmte Tabellenblatt ("Daten") möchte ich nun die Folgenden Inhalte kopieren (button)
Auf dem Tabellenblatt ("Daten") habe ich ein Range B33 : F42 (also...
29.01.2009 09:26:24
Thread-ID: 1044806
3 Beiträge
untereinanderstehende Werte via VBA umformatieren
Harry

Hallo zusammen,
ich habe folgendes Problem, das ich gerne mit VBA lösen möchte:
Und zwar habe ich eine Tabelle, in der untereinander in verschiedenen Spalten Werte stehen, die ich auf einem weiteren Tabellenblatt hintereinander ausgeben möchte.
Ich benötige dazu ein Makro, das bspw....
30.03.2009 19:56:28
Thread-ID: 1065412
5 Beiträge
Pfad mit Dialog suchen und in Textfeld schreiben
Beni

Hallo zusammen
Ich habe in einem Userform einen Button, der einen Dialog öffnen soll, in dem der User eine Datei auswählen kann.
z.B. Application.Dialogs(xlDialogOpen).Show "R:\FA\030 FAD"
Hat er eine Datei ausgewählt, soll diese NICHT geöffnet, sondern nur der Pfad des Ablageortes...
26.06.2009 16:11:27
Thread-ID: 1084646
6 Beiträge
Anzeige
Eingabe soll sich selbst überschreiben
Jörg-HH

Guten Abend zusammen
hab Schwierigkeiten, mein Problem zu benennen, und weiß daher auch nicht, wonach ich erstmal im Archiv suchen könnte...
Der User soll in zwei Zellen je eine Eingabe machen. Nach Enter der zweiten Eingabe soll der dort eingegeben Wert sich selbst mit dem zuerst einge...
28.07.2009 20:51:05
Thread-ID: 1092068
5 Beiträge
Anzeige
Kombinationsfeld Überschreiben sperren
Jordan

Hallo zusammen,
ich habe in einem UserForm verschiedene Kombinationsfelder, die ich mit vorbestimmten Inhalten bestückt habe! Nun kann der Nutzer aber leider den vorbelegten Text überschreiben und beim Klick auf "OK" wird dieser dann auch übertragen.
Kann ich dieses Überschreiben des Ko...
29.07.2009 15:34:27
Thread-ID: 1092303
3 Beiträge
Anzeige
In Zelle schreiben und Formel erhalten
sanktflorian

Hallo,
ich habe eine Startliste erstellt wo die Starter von einem anderen Blatt eingefügt werden.
Da die Mannschaften vielleicht mit einem Mann weniger antreten müßte ich die Startliste ändern, da diese Zellen dann nicht schreibgeschützt sind möchte ich gerne aber die Formel schützen.
18.08.2009 10:32:05
Thread-ID: 1096658
3 Beiträge
Makroname in Zelle automatisch schreiben
Nibio

Hallo Excel-Profis,
Gibt es ein Befehl dass der Makroname in eine bestimmte Zelle schreibt (z.B in Zelle X1)?
Da mein deutsch leider nicht so gut ist (da ich keine deutsche Schule besucht habe), versuche ich mit ein Beispiel mi besser auszudrucken:
Sub Test() ' Makro2 Makro ' Makro...
18.08.2009 13:01:45
Thread-ID: 1096729
15 Beiträge
Makro Code umschreiben
Sprekelmeyer

Hallo Excelfreunde,
habe diesen Code:
If Workbooks("offene Rechnungen.xls").Worksheets("Kunde 04").Range("I8") = _
Workbooks("Rechnungsvorlage.xls").Worksheets("Artikel").Range("I8") Then
statt Worksheets("Kunde 04") möchte ich das aktuelle Worksheets das gerade angezeigt wird w...
26.08.2009 22:26:48
Thread-ID: 1098899
9 Beiträge
Daten ohne Dopplung in eine Spalte schreiben
Lars

Hallo liebes Forum,
ich habe folgendes Problem und hoffe Ihr könnt mir einen Tipp geben:
Ich habe eine Liste von Betreuten. In der jeweiligen Zeile stehen die Stammdaten der Person, aber auch der des Sachbearbeiters beim Amt. Letztere sind in der gesamten Tabelle teilweise einmal aber a...
31.08.2009 19:03:32
Thread-ID: 1099685
2 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Anzeige