Email - Adresse in Excel

Dieses Thema im Forum "Office-Programme" wurde erstellt von Angel-HRO, 25. Juli 2002.

Status des Themas:
Es sind keine weiteren Antworten möglich.
  1. Angel-HRO

    Angel-HRO Megabyte

    Registriert seit:
    31. August 2000
    Beiträge:
    2.524
    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
     
  2. Angel-HRO

    Angel-HRO Megabyte

    Registriert seit:
    31. August 2000
    Beiträge:
    2.524
    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é
     
  3. Hinky05

    Hinky05 ROM

    Registriert seit:
    12. Mai 2002
    Beiträge:
    6
    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
     
  4. Angel-HRO

    Angel-HRO Megabyte

    Registriert seit:
    31. August 2000
    Beiträge:
    2.524
    Man könnte es evtl. noch als Link gestalten, so das sich dein mailprog öffnet, wenn du auf das Feld klickst
     
  5. Angel-HRO

    Angel-HRO Megabyte

    Registriert seit:
    31. August 2000
    Beiträge:
    2.524
    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é
     
  6. Angel-HRO

    Angel-HRO Megabyte

    Registriert seit:
    31. August 2000
    Beiträge:
    2.524
    Alles klar, ich melde mich, sollte nicht allzu lange dauern
     
  7. Hinky05

    Hinky05 ROM

    Registriert seit:
    12. Mai 2002
    Beiträge:
    6
    Ja alle haben den gleichen Suffix: "@lvf.bayern.de"
     
  8. Angel-HRO

    Angel-HRO Megabyte

    Registriert seit:
    31. August 2000
    Beiträge:
    2.524
    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?
     
  9. Hinky05

    Hinky05 ROM

    Registriert seit:
    12. Mai 2002
    Beiträge:
    6
    Nein.

    A1 = Henry
    A2 = Meier

    A10 = Henry.Meier@.........
     
  10. Angel-HRO

    Angel-HRO Megabyte

    Registriert seit:
    31. August 2000
    Beiträge:
    2.524
    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?
     
Status des Themas:
Es sind keine weiteren Antworten möglich.

Diese Seite empfehlen