E-Mail Adressen in eine Zeile von Excel

**Tweaky**

Hi ,
ich habe eine Excel Tabelle mit Adressen und E-Mail-Adressen.
Nun will ich, dass alle E-Mail Adressen in eine Zelle auf einem anderem Register geschrieben werden

und zwar so:

Code

aaaaaaaaaaaa@web.de; bbbbbbbbbbbb@gmx.de; ccccccccccc@web.de

jedoch will ich nur die Adressen, wo in einer Zelle rechts davon ein "x" drinsteht.

ist dies möglich?
weiss nicht wie ich anfangen soll, bzw. wie ich in Excel Zellen oder Register auswähle

Könnt ihr mir helfen

Danke

**Xenobiologist**

Hi,

1. habe ich es leider noch nicht ganz verstanden und
2. verstehe ich nicht, warum du das automatisieren musst.

So long,

Mega

**Tweaky**

Hi,
ich habe eine Excel Tabelle, so in etwa

nun will ich die 3 E-Mail-Adressen mit dem "x" in eine Zelle schreiben lassen.

Ich habe Outlook Express und viele E-Mail-Adressen von der Schule.
Jedoch lohnt es sich nicht alle ins Adressbuch einzutragen.

Jedoch kann es sein, dass ich mehreren die gleiche E-Mail schreiben muss.
Dies könnte ich so erleichtern

snoozer

sry ich habs immer noch nicht kapiert.......schmeiß mal nen vorher nacher vergleich rein....dann check ichs vll xD echt sorry
der snoozer

Eddy_Erpel

Hi,
wer sucht der findet....
Das sollte dir weiterhelfen.

Gruss
eddy_erpel

**Tweaky**

snoozer

Vorgabe:
Excel Tabelle Register 1:

Code

____Spalte 1___________Spalte 2___Spalte 3
Peter Mustermann1 | aaaaaaaa@web.de | x
Peter Mustermann2 | gggggggg@web.de |
Peter Mustermann3 | bbbbbbbb@gmx.de | x
Peter Mustermann4 | cccccccc@web.de | x

Das soll AutoIt dann anlegen
Excel Tabelle Register 2:

Code

aaaaaaaaaaaa@web.de; bbbbbbbbbbbb@gmx.de; ccccccccccc@web.de

ExBerliner

hi,

konvertiere doch deine exceltapete in eine csv-datei.
diese textdatei liest du dann mit _filereadtoarray in autoit ein.
durch deinen markierungsfilter "fischt" du diese dann raus und baust deinen string entsprechend auf.

ich denke mal nicht, dass das ergebnis im anderen sheet von excel für dich von bedeutung ist ?

gruss exberliner
der immer noch auf mailbenachrichtung von forum wartet

b00ny

hi,
du solltest dir die excelCOM udf besorgen !
guggsu hiar:

http://www.autoitscript.com/forum/index.php?showtopic=34302&hl=_ExcelFindInRange&st=0

mit der kannste dann spalten oder zeilen mittels array "einlesen"
auch zwischen den arbeitsblätter wechseln....
das array musst du dann auf prüfen ob im element [XY] ein "x" steht... wenn ja
dieses array via "array to string" in eine zeile "konvertieren"
diese zeile kannst du dann wieder in excel eintragen ....sollte also möglich sein ...

is aber genauso gut mit excel macros (VBA) zu machen

schaut dort denn ca so aus ...

Dim i As Integer
Dim letzte As Long

For i = 7 To 2000 Step 1
If ActiveSheet.Cells(i, "hier zeile mit x bsp ""M"") > 0 Then
With Sheets("sheet name")
letzte = IIf(IsEmpty(.Range("A65536")), .Range("A65536").End(xlUp).Row + 1, 65536)
' ziel zelle = quell zelle
.Cells(letzte, "A") = Range("A" & i) '
.Cells(letzte, "B") = Range("B" & i) '
.Cells(letzte, "C") = Range("C" & i) '
.Cells(letzte, "D") = Range("D" & i) '
.Cells(letzte, "E") = Range("E" & i) '
.Cells(letzte, "G") = Range("H" & i) '
.Cells(letzte, "H") = Range("I" & i) '
.Cells(letzte, "I") = Range("J" & i) '
.Cells(letzte, "O") = Range("O" & i) '
End With
next i

mfg
b00ny