Ich habe 100 E-Mailadressen in einer Zelle stehen.
Wie kann ich Sie trennen?
Ich möchte das die E-Mail Adressen untereinander stehen!
Je Zelle eine E-Mailadresse untereinanader!
Danke!
Gruß
Rolf St.
Sub Liste()
Const Trennzeichen = " " 'das Trennzeichen
Const Zelle = "A1" 'die Zelle in der die Adr. stehen
Const AbZeile = 5 'Liste ab Zeile [abZeile]
Const Spalte = 3 'Liste in Spalte [Spalte]
Dim li, z As Integer
li = Split(Range("A1"), Trennzeichen)
For z = 0 To UBound(li)
Cells(z + AbZeile, Spalte) = li(z)
Next z
End Sub
Problemstellung
Wie kann ich alle Formeln eines Tabellenblattes mit den jeweils zugehörigen Zelladressen als Textdatei speichern?
Problemstellung
Wie kann ich Werte aus Spalte A an die in Spalte B stehenden Zieladressen übertragen und dabei berücksichtigen, daß - wenn sich an der Zieladresse bereits ein Wert befindet, dieser zu dem neuen Wert hinzuaddiert wird.
Problemstellung
Wie kann ich aus einer Adressliste die Adressen einer Liste vorgegebener PLZ filtern und vom Ergebnis maximal 10 Stück pro PLZ auflisten lassen?
Problemstellung
Die Namen aus Spalte A sollen so sortiert werden, dass bei der Ausgabe die Namen WERNER, DANIELA, ANGELA, JOACHIM, ROSI, HARALD immer am Anfang stehen.
Problemstellung
In einem neuen Tabellenblatt sollen die Hyperlinks mit der Angabe, ob die Datei bzw. die Webseite existiert, gelistet werden.
Problemstellung
Es soll verhindert werden, dass die Excel-Autoformatierung einen Email-Hyperlink aus einem Eintrag mit dem Zeichen @ macht. Statt einem @ ist ein µ einzugeben. Die Umwandlung erfolgt später.
Problemstellung
Die Hyperlink-Addressen aus Spalte A sollen in einen Kommentar in Zelle B1 eingefügt werden.
Problemstellung
Auf Schaltflächenklick sollen alle mit Hyperlink verbundenen Bilder der ausgewählten Zellen geöffnet werden