ich würde gerne eine Information aus einer Zelle extrahieren und suche dafür die passende Formel. Ich hätte gerne die E-Mail Adresse, allerdings ist die in den entsprechenden Zellen nicht immer an der gleichen Stelle, allerdings immer zwischen zwei ",".
das geht leider nicht. Es gibt unendlich viele Informationen in der Zelle, die mit Komma getrennt werden. Daher gebe es zu viele Spalten mit der E-Mail.
Public Function SuchAdresse(rng As Range) As String
Dim varArr As Variant
Dim intElement As Integer
Dim blnWeiter As Boolean
varArr = Split(rng, ",")
blnWeiter = True
intElement = 0
While intElement <= UBound(varArr, 1) And blnWeiter
If InStr(varArr(intElement), "@") > 0 Then
blnWeiter = False
SuchAdresse = varArr(intElement)
End If
intElement = intElement + 1
Wend
If blnWeiter Then
SuchAdresse = "nicht vorhanden"
End If
End Function
helmut
Für mich ist die Möglichkeit in Excel an Zellen und Bereichen Namen zu vergeben die wichtigste Funktionalität. Sie macht Formeln und den VBA-code verständlicher. Für Makros gilt die Regel: "Nur über benannte Bereiche auf den Inhalt der Zellen zugreifen."
Und wofür sind Regeln da? Um nachzudenken bevor man sie bricht.