title image


Smiley Re: Variabler Emailempfänger in VBA
Hallo,

pack die Adressen in ein Array und frage per Inputbox den Index ab.



Adresse(1) = Workbooks("Emailtest.xls").Sheets("Tabelle2").Range("A3").Value

Adresse(2)= = Workbooks("Emailtest.xls").Sheets("Tabelle2").Range("A6").Value

Adresse(3) = Workbooks("Emailtest.xls").Sheets("Tabelle2").Range("A9").Value

AdressNr=Inputbox("Adresse")

...

...

...

.To = Adresse(AdressNr)

...

...



Fehlerbehandlung musst du dir selbst bauen.
Gruß aus'm Pott
Udo

geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: