Zelleninhalt zum Teil in eine ander Zelle übernehmen

Question

Hallo Leute,

ich habe ein kleines Problem in Excel 2007.
Ich habe eine Dartenbank mit Emailadreesen in typischen Aufbau.
Des weiteren ist von jedem Kunden eine oder mehrere zusätzlichen
Mailadressen hinterlegt.
In der Auswertung benötige ich die Domain in einer neuen Zelle, um zu sehen, über wieviel unteschiedlichen Netzbetreiber kommuniziert wird.


Zelle B2 steht zum Beispiel

klausBaerbel@gmx.de in der Zelle C2 soll stehen gmx

in der Spalte C soll nachher nur noch der Netzbetreiber (ohne de;com) stehen
in der Zelle B2 also alle Zeichen vor dem @

Vielleicht kann mir jemand helfen. Ich habe es über Funktion Links und rechts und Teil probiert , leider Funktioniert es nicht so richtig

Also vielen Dank für Eure Mühen

Answer 1

hi all ^^

ein Beispiel

gruss nighty

A1 Mustermann@Acor.de
B1 =TEIL(A1;1;FINDEN("@";A1)-1)
C1=TEIL(A1;FINDEN("@";A1)+1;FINDEN(".";A1)-FINDEN("@";A1)-1)

Answer 2

hi all ^^

oder auch als makro(entlastet das System deutlich bei größeren datenmengen)

gruss nighty

Sub Zerlegen()
Dim Lzeile As Long, Tzeilen As Long
Lzeile = ActiveSheet.Cells(Rows.Count, 1).End(xlUp).Row
ReDim QuellZelle(Lzeile, 1) As Variant
ReDim ZielZelle(Lzeile, 2) As Variant
QuellZelle = Range("A2:A" & Lzeile + 1)
For Tzeilen = 1 To Lzeile
If InStr(1, QuellZelle(Tzeilen, 1), "@") > 0 Then
ZielZelle(Tzeilen, 0) = Mid(QuellZelle(Tzeilen, 1), 1, InStr(1, QuellZelle(Tzeilen, 1), "@") - 1)
ZielZelle(Tzeilen, 1) = Mid(QuellZelle(Tzeilen, 1), InStr(1, QuellZelle(Tzeilen, 1), "@") + 1, InStr(1, QuellZelle(Tzeilen, 1), ".") - InStr(1, QuellZelle(Tzeilen, 1), "@") - 1)
End If
Next Tzeilen
Range("B1:C" & Lzeile) = ZielZelle()
End Sub