Microsoft Excel

Herbers Excel/VBA-Archiv

Zelleninhalt nach einem bestimmten Wort dursuchen

Betrifft: Zelleninhalt nach einem bestimmten Wort dursuchen von: j.r.
Geschrieben am: 30.07.2014 15:36:23

Hallo zusammen,

ich habe folgendes Problem:

Ich habe ein Spalte "A", in denen die unterschiedlichsten Email-Addressen enthalten sind wie bspw. vorname.nachname@firmename.de. Ich möchte die einzelnen Zeilen der Spalte nach den Firmennamen durchsuchen. Sofern in einer Zelle ein bestimmter Firmenname enthalten ist, so soll der Firmenname in eine bestimmte Zelle kopiert werden.

Vielen Dank im Voraus.

  

Betrifft: AW: Zelleninhalt nach einem bestimmten Wort dursuchen von: yummi
Geschrieben am: 30.07.2014 15:42:20

Hallo j.r.

Durchlaufe die Zeilen und überprüfe ob Instr(1,Zellinhalt,gesuchter Name,vbTextCompare) <> 0
dann hast du gefunden was Du suchst.

Gruß
yummi


  

Betrifft: AW: Zelleninhalt nach einem bestimmten Wort dursuchen von: j.r.
Geschrieben am: 30.07.2014 15:47:27

Vielen Dank für die schnelle Antwort,

da meine VBA-Kenntnisse eher mau sind, wollte ich fragen ob Du mir einen Code aufschreiben könntest.

Vielen Dank

Gruß
j.r.


  

Betrifft: AW: Zelleninhalt nach einem bestimmten Wort dursuchen von: j.r.
Geschrieben am: 30.07.2014 15:50:24

Damit funktioniert es nicht:

'Schleife zur Suche nach Firmennamen

Dim j As Integer
Dim k As Integer

k = 5

For j = 2 To 10

If InStr(1, staufen, "staufen", vbTextCompare) <> 0 Then

Wb2.Sheets(1).Range("A" & k).Value = "Staufen"

End If

k = k + 1

Next j


  

Betrifft: AW: Zelleninhalt nach einem bestimmten Wort dursuchen von: yummi
Geschrieben am: 30.07.2014 16:03:53

Hallo j.r

hier mal ein Beispiel wie du Spalte A nach dem Wort was in C1 steht durchsuchst und wenn gefunden dann in Spalte E kopierst

Sub suche()
Dim letztezeile as long
Dim i As Long
Dim j As Long

'Hier wir die letzte Zeile der Spalte A ermittelt
letztezeile = ActiveSheet.Cells(Rows.Count, 1).End(xlUp).Row

j = 1
For i = 1 To letztezeile
    'durchsuche Spalte A nach dem Wort was in C1 steht
    If InStr(1, ActiveSheet.Cells(i, 1).Value, ActiveSheet.Cells(1, 3).Value, vbTextCompare) <>  _
0 Then
        'schreibe Inhalt der Zelle nach Spalte E
        ActiveSheet.Cells(j, 5).Value = ActiveSheet.Cells(i, 1).Value
        j = j + 1
    End If
Next i
End Sub
Gruß
yummi


  

Betrifft: AW: Zelleninhalt nach einem bestimmten Wort dursuchen von: j.r.
Geschrieben am: 30.07.2014 16:19:34

HAllo yummi,

super vielen Dank!!

Gruß
Jens


 

Beiträge aus den Excel-Beispielen zum Thema "Zelleninhalt nach einem bestimmten Wort dursuchen"