Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
748to752
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
748to752
748to752
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

String auslesen

String auslesen
28.03.2006 09:15:07
Caro
Guten morgen,
ich habe folgendes Problem:
In Spalte H von Tabelle stehen bei mir Emailadressen. Bei diesen soll die Domain ausgelesen werden und in Tabelle 2 Spalte 1 geschrieben werden und dass soll mit jeder vorhandenen emailadresse in der Tabelle 1 gemacht werden.
Beispiel:
Tabelle1 Zeile H2: müller@irgendwas.de
Tabelle2 Zeile A1: irgendwas.de
Ich habe jetzt schon ziemlich viel getestet und mein problem besteht vor allem darin, den String auszulesen, dass nur die Domain bleibt und eine Schleife zu programmieren, die das mit jeder einzelnen gefüllten Zelle in Tabelle 1 Spalte H macht.
LG
Caro

6
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: String auslesen
28.03.2006 09:38:33
Mac4
Hallo Caro,
machs doch per Formel:
=TEIL(Tabelle1!A1;FINDEN("@";Tabelle1!A1)+1;99)
Marc
AW: String auslesen
28.03.2006 09:40:38
luschi
Hallo Caro,
mit Excel--Mitteln geht das so:
in B4 steht die E-Mail-Adresse, die Formel lautet:
=RECHTS(B4;LÄNGE(B4)-FINDEN("@";B4))
Gruß von Luschi
aus klein-Paris
AW: String auslesen
28.03.2006 09:44:59
Caro
leider kann cih des nicht mit einer formel machen.
das ganze müsste per vba gelöst werden, hat ne ganz einfachen grund: ich bin auszubildende und ich soll mich für meine firma in vba einlernen. tja, und da belibt mir nix anderes übrige als gestellte anforderungen zu erfüllen ;)
also, wie gesagt,ich bräcuhte einen lösungsansatz in vba...
danke
Anzeige
AW: String auslesen
28.03.2006 09:50:21
Heiko
Hallo Caro,
na dann war meine Arbeit ja doch nicht umsonst:

Sub DomainA()
Dim lngI As Long, lngN As Long
Dim wks1 As Worksheet, wks2 As Worksheet
' TabellenNamen bei Bedarf anpassen.
Set wks1 = Worksheets("Tabelle1")
Set wks2 = Worksheets("Tabelle2")
lngN = 1
For lngI = 2 To wks1.Cells(Rows.Count, 8).End(xlUp).Row
wks2.Cells(lngN, 2) = Right(wks1.Cells(lngI, 8).Text, _
Len(wks1.Cells(lngI, 8).Text) - InStr(1, wks1.Cells(lngI, 8), "@"))
lngN = lngN + 1
Next lngI
End Sub

Gruß Heiko
PS: Rückmeldung wäre nett !
AW: String auslesen
28.03.2006 09:54:45
Caro
Hallo Heiko,
deine arbeit war in keinem Fall umsonst.
Danke schön, klappt sehr gut (mit ein paar kleinen änderungen).
LG
caro
Anzeige
AW: String auslesen
28.03.2006 09:52:09
Peter
Hallo Caro,
so sollte es gehen:
Public

Sub Nur_Domain()
Dim WkSh_Q    As Worksheet
Dim WkSh_Z    As Worksheet
Dim lZeile_Q  As Long
Dim lZeile_Z  As Long
Dim iPosit    As Integer
Set WkSh_Q = Worksheets("Tabelle1")
Set WkSh_Z = Worksheets("Tabelle2")
lZeile_Z = 1
For lZeile_Q = 1 To WkSh_Q.Range("H65536").End(xlUp).Row
If Not IsEmpty(WkSh_Q.Range("H" & lZeile_Q).Value) Then
iPosit = InStr(WkSh_Q.Range("H" & lZeile_Q).Value, "@")
If iPosit > 0 Then
WkSh_Z.Range("A" & lZeile_Z).Value = Mid( _
WkSh_Q.Range("H" & lZeile_Q), (iPosit + 1), Len( _
WkSh_Q.Range("H" & lZeile_Q).Value) - iPosit)
Else
WkSh_Z.Range("A" & lZeile_Z).Value = _
WkSh_Q.Range("H" & lZeile_Q)
End If
lZeile_Z = lZeile_Z + 1
End If
Next lZeile_Q
End Sub

Viele Grüße Peter
Eine kurze Nachricht, ob es läuft, wäre nett - danke.
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige