Office Forum
www.Office-Loesung.de
Access :: Excel :: Outlook :: PowerPoint :: Word :: Office :: Wieder Online ---> provisorisches Office Forum <-
Nur kopieren wenn @ vorhanden!
zurück: Word 2003 - Fehler bei Ausführen eines funk. Makros weiter: Makro geht nicht mit INDEX und Combobox Unbeantwortete Beiträge anzeigen
Neues Thema eröffnen   Neue Antwort erstellen     Status: Offen Facebook-Likes Diese Seite Freunden empfehlen
Zu Browser-Favoriten hinzufügen
Autor Nachricht
alsimera
Office Anwender mit Grundkenntnissen in VBA


Verfasst am:
08. Apr 2014, 10:49
Rufname:
Wohnort: Allmendingen

Nur kopieren wenn @ vorhanden! - Nur kopieren wenn @ vorhanden!

Nach oben
       Version: Office 2010

Hallo zusammen,

ich möchte aus der Kopfzeile eines autom. erstellten Dokuments eine E-Mail Adresse kopieren um diese beim Versand des Doks an Outlook zu übergeben.

Zuerst soll aber geprüft werden, ob es sich überhaupt um eine handelt. Dazu möchte ich nach dem @-Zeichen prüfen lassen. Es soll nur kopiert werden wenn das @-Zeichen im String enthalten ist.

Mein Code (Auszug):

Code:
    'Öffnen der Kopfzeile des Dokuments'
    ActiveWindow.ActivePane.View.SeekView = wdSeekCurrentPageHeader
   
    'Sprung zur E-Mailadresse und kopieren dieser'
    Selection.MoveRight Unit:=wdCell
    Selection.Copy
   


Die E-Mail Adresse wird dann an .To = übergeben. Dies soll aber wie gesagt nur passieren wenn der copierte String auch das @ enthällt.

Als Info: Das gleiche Feld enthällt bei einem Dok. das nicht an einen Ansprechpartner geht nur eine Telefonnummer der Fa.

Ich hoffe Ihr habt einen Tipp für mich.

_________________
Wenn die Menschen nur über das redeten, was sie verstehen, dann wäre es sehr ruhig auf der Welt!
Little Hobbit
Office-VBA-Programmierer


Verfasst am:
08. Apr 2014, 15:53
Rufname:


AW: Nur kopieren wenn @ vorhanden! - AW: Nur kopieren wenn @ vorhanden!

Nach oben
       Version: Office 2010

Razz
Hallo,

hier eine Testfunktion für '@'

Code:


Function Test(ByVal objSelektion As Selection) As Boolean

    If InStr(objSelektion.Text, "@") Then Test = True
   
End Function



Wenn ein '@' in der Selection enthalten ist gibt die Funktion 'True' zurück. Der Aufruf erfolgt aus dem Hauptprogramm:

Code:


Sub nn()
    Dim objSelektion As Selection
   
    Set objSelektion = Selection
   
    If Test(objSelektion) Then Selection.Copy
   

End Sub




Viel Erfolg

Little Hobbit
GastUnterwegs
Gast


Verfasst am:
08. Apr 2014, 15:55
Rufname:

AW: Nur kopieren wenn @ vorhanden! - AW: Nur kopieren wenn @ vorhanden!

Nach oben
       Version: Office 2010

Schau dir mal die Suche mit Regulären Ausdrücken an.
Da sinc hunderte Beispiele zum Erkennen einer Emil-Adresse.
alsimera
Office Anwender mit Grundkenntnissen in VBA


Verfasst am:
08. Apr 2014, 16:23
Rufname:
Wohnort: Allmendingen


AW: Nur kopieren wenn @ vorhanden! - AW: Nur kopieren wenn @ vorhanden!

Nach oben
       Version: Office 2010

Hey Little Hobbit,

vielen Dank, funktioniert tadellos, so wie ich das wollte. Der einzige Wehrmutstropfen ist der, dass wenn nichts kopiert wird, dann fügt es autom. den letzten Eintrag aus der Zwischenablage ein. Kann man die vorher löschen?

Gruß Ralph

EDIT: habs selber rausgefunden:

Code:
'Zwischenablage leeren
    CreateObject("htmlfile").ParentWindow.ClipboardData.SetData "text", ""

_________________
Wenn die Menschen nur über das redeten, was sie verstehen, dann wäre es sehr ruhig auf der Welt!
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 Formate: Fußnoten in WORD 2010 kopieren und einfügen 9 Tina---234 6306 25. Sep 2013, 13:06
Fußaaahh Fußnoten in WORD 2010 kopieren und einfügen
Keine neuen Beiträge Word Formate: Word-Optionen kopieren/sichern (Anpassen, Autokorrektur usw. 0 Gast 206 11. März 2013, 16:16
Gast Word-Optionen kopieren/sichern (Anpassen, Autokorrektur usw.
Keine neuen Beiträge Word Formate: kopieren/einfügen von texten - formatierung verschwindet 2 mamamia12 301 17. Okt 2012, 23:47
mamamia12 kopieren/einfügen von texten - formatierung verschwindet
Keine neuen Beiträge Word Formate: Formatierung geht beim kopieren verloren 2 Wordlost 1108 03. Apr 2012, 13:09
Wordlost Formatierung geht beim kopieren verloren
Keine neuen Beiträge Word Serienbriefe: Seriendruck - Einfügen Hyperlink wenn Daten vorhanden. 3 Brummbaer76 706 20. Feb 2012, 12:53
charlybrown Seriendruck - Einfügen Hyperlink wenn Daten vorhanden.
Keine neuen Beiträge Word Formate: Formularfelder als Text kopieren 1 Panix 194 11. Sep 2011, 10:33
doeck Formularfelder als Text kopieren
Keine neuen Beiträge Word Formate: Formatvorlagen in bestehende Dokumente kopieren 2 Lois78 922 06. Mai 2011, 10:44
Lois78 Formatvorlagen in bestehende Dokumente kopieren
Keine neuen Beiträge Word Formate: Excel Tabelle in Word kopieren 1 konterpeitsche 1620 08. Jun 2010, 18:19
konterpeitsche Excel Tabelle in Word kopieren
Keine neuen Beiträge Word Formate: Formate aus Tabelle in eine andere Tabellenspalte kopieren 0 MBMBMB 606 21. Jan 2009, 22:29
MBMBMB Formate aus Tabelle in eine andere Tabellenspalte kopieren
Keine neuen Beiträge Word Formate: Standart und Fett beim Kopieren vertauscht 4 LaGGGer 2035 25. Jun 2008, 07:52
LaGGGer Standart und Fett beim Kopieren vertauscht
Keine neuen Beiträge Word Formate: Referenz Querverweis nach Speichern nciht mehr vorhanden 0 Harry2300 1310 28. Aug 2007, 11:30
Harry2300 Referenz Querverweis nach Speichern nciht mehr vorhanden
Dieses Thema ist gesperrt, du kannst keine Beiträge editieren oder beantworten. Word VBA Programmierung (Makros): Makro um einzelne Zellen zu kopieren 2 Andi27 1006 26. Feb 2006, 13:01
Lisa Makro um einzelne Zellen zu kopieren
 

----> Diese Seite Freunden empfehlen <------ Impressum - Besuchen Sie auch: CSS Forum