Email - Adresse in Excel

Hallo

Habe folgendes Problem:
Wie erzeuge ich eine Funktion in Excel u/o VBA, die mir aus zwei Feldern den Vor- und Zunamen ausliest (z.B. A1 und A2) und in Zelle A10 die email - Adresse als Hyperlink bildet (@.......... soll durch verketten hinzugefügt werden).

Schon im Voraus herzlichen Dank

 

Klar, hab ich fertig. Das ganze wird noch um die Variable Email erweitert und 2 zusätzliche Zeilen:

Sub MailAddy()
Dim Vorname As String
Dim Nachname As String
Dim Email As String
Dim AktuelleSpalte As Integer
Dim LetzteSpalte As Integer

Cells(1, 1).Select
LetzteSpalte = 1
While Cells(1, LetzteSpalte).Value <> ""
AktuelleSpalte = LetzteSpalte
Vorname = Cells(1, AktuelleSpalte)
Nachname = Cells(2, AktuelleSpalte)
Cells(10, AktuelleSpalte).Select
ActiveCell.Value = (Vorname) & "." & (Nachname) & "@lvf.bayern.de"
Email = Cells(10, AktuelleSpalte)
ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:= _
"mailto:" & Email & "", TextToDisplay:= _
Email
LetzteSpalte = AktuelleSpalte + 1
Wend
End Sub

Hoffe, dir geholfen zu haben
Gruß
André

 

Hallo André

So habe ich es mir vorgestellt. Mit dem Link wärs natürlich hervorragend. Wenn Du dafür noch ne Lösung hättest?!?

Ansonsten herzlichen Dank

Thomas

 

Man könnte es evtl. noch als Link gestalten, so das sich dein mailprog öffnet, wenn du auf das Feld klickst

 

Hi Thomas. Dein Makro steht anfolgend. Vorraussetzung:
Vorname in (Spalte), 1
Nachname in (Spalte), 2
Adresse geht nach (Spalte, 10)
Kannst ja sonst noch anpassen

Sub MailAddy()
Dim Vorname As String
Dim Nachname As String
Dim AktuelleSpalte As Integer
Dim LetzteSpalte As Integer

Cells(1, 1).Select
LetzteSpalte = 1
While Cells(1, LetzteSpalte).Value <> ""
AktuelleSpalte = LetzteSpalte
Vorname = Cells(1, AktuelleSpalte)
Nachname = Cells(2, AktuelleSpalte)
Cells(10, AktuelleSpalte).Select
ActiveCell.Value = (Vorname) & "." & (Nachname) & "@lvf.bayern.de"
LetzteSpalte = AktuelleSpalte + 1
Wend
End Sub

Meld dich mal, ob du es dir so vorstellst, oder was man noch ändern könnte.

Gruß
André

 

Alles klar, ich melde mich, sollte nicht allzu lange dauern

 

Ja alle haben den gleichen Suffix: "@lvf.bayern.de"

 

Dann brauchst du aber noch A3 mit dem Suffix. (t-online, aol, etc)
Wenn man eine nicht komplette Adresse einträgt, meckert er rum (war jedenfalls bei Excel97 so). Stellst du dir das so vor?
Oder hast du einen gesamten Suffix? Sprich alle in der Tabelle haben den selben. Wenn ja, wie lautet der?

 

Nein.

A1 = Henry
A2 = Meier

A10 = Henry.Meier@.........

 

Ich werd dir gerne helfen, aber so werde ich daraus nicht schlau.
Wie soll denn die E-Mail Adresse aussehen?
So?
A1: Henry
A2:Meyer
-> A10 :Henry@meyer.de?
Woraus soll denn die Adresse bestehen?