Seite 1 von 2
Zelle als Email-Adresse formatieren?
Verfasst: Do, 22.05.2008 11:20
von Grete
Hallo,
manchmal erkennt Openoffice automatisch eine Eingabe als Email, manchmal nicht, öfters wird die Länderkennung nach dem Punkt nicht mitformatiert - gibt es eine Funktion, per Hand eine Zelle als Emailadresse zu formatieren?
Danke und Grüße,
Grete
Re: Zelle als Email-Adresse formatieren?
Verfasst: Do, 22.05.2008 13:13
von pianoplayer
Versuch es doch mal mit "mailto:" vor der E-Mail-Adresse.
Re: Zelle als Email-Adresse formatieren?
Verfasst: Do, 22.05.2008 21:20
von Grete
ups, vergessen mich anzumelden
Re: Zelle als Email-Adresse formatieren?
Verfasst: Do, 22.05.2008 21:21
von turtle47
Hi Gast,
hier noch eine Möglichkeit:
Code: Alles auswählen
=HYPERLINK("mailto:Mailadresse@server.de";"Mail senden")
Hilft das weiter?
Jürgen
Re: Zelle als Email-Adresse formatieren?
Verfasst: Fr, 23.05.2008 12:12
von Grete
Das funktioniert, Danke. Allerdings ist es etwas mühsam, wenn man spaltenweise Emailadressen eingeben will. Ich hätte eigentlich eine Funktion erwartet ähnlich wie die der Formatierung als Währung oder Datum....
Re: Zelle als Email-Adresse formatieren?
Verfasst: Fr, 23.05.2008 15:00
von turtle47
Hallo Grete,
ich glaube ich habe jetzt herausgefunden warum der letzte Teil der Mailadresse "abgeschnitten ist.
Es passiert dann, wenn die Spalte zu schmal ist und der letzte Teil in die nächste Spalte reinragt.
Zumindest ist es mir eben wieder passiert.
Oder aber wenn die Mailadresse nicht vollstädig war und diese dann ergänzt wird.
1. Lösungsvorschlag
Ziehe die Spalte, wo die Mailadresse rein soll vorher breiter, um den gesamten Inhalt aufzunehmen.
2. Lösungsvorschlag
Du setzt folgendes Makro ein:
Code: Alles auswählen
Sub Hyperlink_Mail
odoc=thiscomponent
oSheet = oDoc.Sheets.getByName("Tabelle1")'Tabellenblattname
oCellCursor = oSheet.createCursor()
oCellCursor.GotoEndOfUsedArea(True)'letzte beschriebene Zeile suchen
letzte_Zeile = oCellCursor.getRangeAddress.EndRow
for z = 1 to letzte_Zeile +1
oCell = oSheet.getCellRangeByName("A" & z) 'Spalte A
sMail = oCell.String
if smail = "" then
oCell = oSheet.getCellRangeByName( "A" & z) 'Spalte A
oCell.String = "Keine Mailadresse vorhanden"
Goto NextMail
else
oCell = oSheet.getCellRangeByName( "A" & z)
oCell.formula = "=Hyperlink(""Mailto:" & sMail & """" & ";" & """"& sMail & """" & ")" 'Formel in Zelle schreiben
oCell.charcolor=RGB (0,0,205)
end if
NextMail:
next z
End Sub
In diesem Fall stehen die Mailadressen in Spalte "A". Diese Buchstaben kannst Du in dem Makro entsprechend Deiner
Tabelle anpassen.
Informationen zum Installieren und einbinden findest du hier:
http://www.ooowiki.de/MakrosInstallierenKapitel Quellcode..
http://www.ooowiki.de/MakrosMitEinemKlick
http://www.ooowiki.de/SchaltFl%C3%A4che
Als Anlage füge ich noch ein Tabellendokument an in dem Du Dir das mal ansehen kannst.
Jürgen
Edit: Sorry, da das Makro leider noch eine Macke hatte lade ich die aktuelle Version nochmals hoch!
Re: Zelle als Email-Adresse formatieren?
Verfasst: Sa, 24.05.2008 15:54
von Grete
Vielen Dank, das ist genau das, was ich gesucht habe, toll!
Re: Zelle als Email-Adresse formatieren?
Verfasst: So, 01.06.2008 15:57
von turtle47
Hallo Zusammen,
für alle die es interessiert habe ich die Handhabung des Makros etwas vereinfacht und eine Extension dafür erstellt.
Man braucht den Zellbereich zum Formatieren jetzt nur mit der Maus markieren
und nicht mehr im Code ändern.
Die Installation der Extension ist sehr einfach. Geht wie folgt vor:
1. Die Datei Mail2Format-1.0.0.zip runterladen
2. Falls OOo geöffnet bitte beenden.
3. Die Datei Mail2Format-1.0.0.
zip in Datei Mail2Format-1.0.0.
oxt umbenennen
4. Doppelklick auf die Datei Mail2Format-1.0.0.oxt
5. Installation der Extension mit Klick auf "OK" erlauben
6. Calc starten
Jetzt findet ihr in den Symbolleisten ein neues Symbol
- Mail.jpg (1.32 KiB) 5675 mal betrachtet
Markiert den Zellbereich mit den Mailadressen und startet das Makro zum Formatieren über das neue Symbol.
Maildressen mit fehlerhafter Syntax, leere Zellen und "normaler" Text und werden von der Formatierung automatisch ausgeschlossen!!
Das Formatieren von ganzen Spalten habe ich wegen der langen Laufzeit ausgeschlossen.
Viel Erfolg.
Jürgen
Die aktuelle Version gibt es
hier.
Re: Zelle als Email-Adresse formatieren?
Verfasst: So, 01.06.2008 21:17
von Grete
Klasse Jürgen, jetzt ist es echt perfekt, vielen Dank!
Grüße,
Grete
Re: Zelle als Email-Adresse formatieren?
Verfasst: Fr, 11.07.2008 07:37
von Urs
Der Script ist toll, vielen Dank.
Habe bei uns MA die Mailadresse mit "_" verwalten....die werden als Fehler ausgegeben.
Re: Zelle als Email-Adresse formatieren?
Verfasst: Fr, 11.07.2008 08:45
von turtle47
Hallo Urs,
vielen Dank für den Hinweis.
Sorry, aber ich wusste nicht das der Underscore in einer Mailadresse erlaubt ist.
Hier mal was auf die Schnelle.
Füge der in der
nach dem String
folgende beiden Zeilen ein
Damit sollte das Problem behoben sein.
Ich werde die Extension bei Gelegenheit mal anpassen.
Schöne Grüsse in die Schweiz.
Jürgen
Re: Zelle als Email-Adresse formatieren?
Verfasst: Fr, 11.07.2008 09:02
von Urs
Hallo Jürgen danke für die rasche Antwort.....
habe die von einem unseren MA gesammelten E-Mails geprüft.....
Underscore ist ein Sonderzeichen und deshalb definitv (noch) nicht erlaubt.
Sorry für die Umtriebe und Danke für die rasche Reaktion.
mit zerknirschten Grüssen Urs
Re: Zelle als Email-Adresse formatieren?
Verfasst: Fr, 11.07.2008 09:14
von turtle47
Guten Morgen Urs,
Urs hat geschrieben:Underscore ist ein Sonderzeichen und deshalb definitv (noch) nicht erlaubt.
Da muss ich Dich leider berichtigen.
Nach Deinem Hinweis habe ich mir bei meinem Provider 1&1 eine Mailadresse mit Underscore
eingerichtet und mit Erfolg getestet.
Urs hat geschrieben:mit zerknirschten Grüssen
Das kann man ja dann wohl vergessen
Ich wünsche Dir noch einen schönen Tag.
Jürgen
Re: Zelle als Email-Adresse formatieren?
Verfasst: Fr, 11.07.2008 12:02
von Urs
Habe alles versucht..aber auf meinem in der Firma installierten Linux-System komm ich nicht dazu die Datei zu mutieren.
Wäre also um eine kleine Anpassung in Deinem Download dankbar.
Gruss und "en guete" wie wir hier beim Mittagessen sagen.
Re: Zelle als Email-Adresse formatieren?
Verfasst: Fr, 11.07.2008 12:25
von turtle47
turtle47 hat geschrieben:Ich werde die Extension bei Gelegenheit mal anpassen.
Na gut, ich will es nicht auf die lange Bank schieben.
Hier die angepasste Extension.
Die kannst Du einfach über die Alte drüberbügeln.