VBA - Excel - iB-InformatikBoard.ch

garfield · Registriert seit: 01.09.2004

hallo zusammen

ich sollte in excel aus einem vornamen (zelle A1) und einem nachnamen (zelle B1) eine emailadresse generieren (vorname.nachname@domain.net).
die mailadresse sollte dann in der Spalte "C" stehen

dazu habe ich folgendes vba-script gefunden. dies sucht aber den vornamen aus "A1" und den Nachnamen aus "A2" und das resultat kommt auf der Zeile "10"

kann mir da vielleicht jemand weiterhelfen?

Code:

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 &lt;&gt; ""
AktuelleSpalte = LetzteSpalte
Vorname = Cells(1, AktuelleSpalte)
Nachname = Cells(2, AktuelleSpalte)
Cells(10, AktuelleSpalte).Select
ActiveCell.Value = (Vorname) & "." & (Nachname) & "@domain.net"
Email = Cells(10, AktuelleSpalte)
ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:= _
"mailto:" & Email & "", TextToDisplay:= _
Email
LetzteSpalte = AktuelleSpalte + 1
Wend
End Sub

**zer00** · 23.11.2005, 13:18

So gehts

<blockquote><pre>code:<hr>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(LetzteSpalte, 1).Value <> ""
AktuelleSpalte = LetzteSpalte
Vorname = Cells(AktuelleSpalte, 1)
Nachname = Cells(AktuelleSpalte, 2)
Cells(AktuelleSpalte, 3).Select
ActiveCell.Value = (Vorname) & "." & (Nachname) & "@domain.net"
Email = Cells(AktuelleSpalte, 3)
ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:= _
"mailto:" & Email & "", TextToDisplay:= _
Email
LetzteSpalte = AktuelleSpalte + 1
Wend
End Sub<hr></pre></blockquote> 

grz zer00

garfield · 25.11.2005, 12:40

DANKE!

**zer00** · 25.11.2005, 15:36

bidde

Ähnliche Themen
Thema	Autor	Forum	Antworten	Letzter Beitrag
PDF und Excel (VBA)	Päscu	Programmiersprachen Allgemein	1	02.10.2006 15:56
VBA - Tabellenname im Excel übergeben, dann damit weiterarbeiten	Päscu	Programmiersprachen Allgemein	6	30.08.2006 16:36
Excel -- Zeichen suchen und Text bis dahin kopieren (vba)	Päscu	Programmiersprachen Allgemein	7	21.08.2006 11:36
Programmieren mit VBA im Excel	jessy	Programmiersprachen Allgemein	8	12.06.2006 10:21
Euro Umrechner - vba in excel	icone	Programmiersprachen Allgemein	4	16.06.2004 00:20

Themen-Optionen
Druckbare Version zeigen Jemanden per E-Mail auf dieses Thema hinweisen