Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
972to976
972to976
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Mailadressen auslesen

Forumthread: Mailadressen auslesen

Mailadressen auslesen
06.05.2008 11:16:00
Tom
Hallo,
in Spalte C6:C30 stehen E-Mail-Adressen.
Ich möchte nun, dass diese alle in Zelle M1 kopiert werden, getrennt durch , und Leerzeichen
z.B. muster@uster.de, mann@uster.de, usw
Danke vorab
TOM

Anzeige

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Mailadressen auslesen
06.05.2008 11:33:38
Matthias
Hi

Sub Tom()
Dim x
For x = 6 To 30
Cells(1, 13) = Cells(1, 13) & Cells(x, 3) & ","
Next
End Sub


Userbild

AW: Mailadressen auslesen
06.05.2008 11:44:00
Tom
Perfekt. Vielen Dank!
TOM

Anzeige
AW: Mailadressen auslesen
06.05.2008 11:51:20
UweD
Hallo
per Makro..
- Prüft die mit Text gefüllten Zellen, ob ein @ enthalten ist und hängt diese in M1 an
- Texte ohne @ werden ignoriert
 
 C
6 
7 
8 
9muster@uster.de
10 
11 
12mann@uster.de
13 
14 
15Heinz@abc.de
16 
17 
18Wer@xyz.com
19 
20 
21Ich@dort.net
22 
23 
24IchnichtAThier.de
25 
26 
27 
28 
29 
30 
 


Sub AT()
Dim ZE
With ActiveSheet.Range("M1")
.ClearContents
For Each ZE In ActiveSheet.Range("C6:C30").SpecialCells(xlCellTypeConstants, 2) 'fix  _
eingestellter Bereich
'For Each ZE In Selection.SpecialCells(xlCellTypeConstants, 2) 'oder Bereich vorher  _
markieren
If InStr(1, ZE, "@") > 0 Then
If .Value  "" Then
.Value = .Value & ", " & ZE
Else
.Value = ZE
End If
End If
Next
End With
End Sub


Gruß UweD

Anzeige
AW: Mailadressen auslesen
06.05.2008 11:55:37
Erich
Hallo Tom,
na ja, dann noch zwei Varianten: 

Sub Tom2()
Dim lngZ As Long, strE As String
strE = Cells(6, 3)
For lngZ = 7 To 30
strE = strE & ", " & Cells(lngZ, 3)
Next
Cells(1, 13) = strE
End Sub
Sub Tom3()   ' wenn es viele Zeilen werden können
Dim lngZ As Long, strE As String, varA
varA = Application.Transpose(Range("C6:C30"))
strE = varA(1)
For lngZ = 2 To UBound(varA)
strE = strE & ", " & varA(lngZ)
Next
Cells(1, 13) = strE
End Sub

Rückmeldung wäre nett! - Grüße von Erich aus Kamp-Lintfort

Anzeige
;

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Anzeige