Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
872to876
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
872to876
872to876
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Begriffe in Zellen finden und getrennt analysieren

Begriffe in Zellen finden und getrennt analysieren
29.05.2007 13:15:37
Darren
Folgende Daten habe ich.
In der Spalte „V“ habe ich Unmengen von Daten wie z.B.:
Messdaten., abgerundet., kennzeichen., folgen., usw…
Es kommen noch mehr Begriffen vor und die variieren von Fall zu Fall.
Mein Ziel ist, dass ich der Inhalt, also die Begriffe in dieser Spalte, Zeile für Zeile zu überprüfen, ob diese mit einer Legende übereinstimmen.
z.B. wenn in der Zeile „V3“ der Begriff „Messdaten“ und „folgen“ gefunden wird, dann soll er den Zelleninhalt löschen und ersetzen durch MF.
z.B. wenn aber Darren gefunden wird, dann soll er dafür ein D dort eintragen usw…
Das sind nur Beispiele. Es ist weiter komplexer.
Wie kann ich aus der Variable begriff = Range("V3").value nach diesen inhalten durchsuchen?
Oder muss es anders aufgebaut werden?
Ich versuchte es mit :
Schluesselbegriff = „*“ + „abgerundet“ + “*“
If Begriff = schluesselbegriff
Dann ersetzen durch AB
End If
Aber das geht nicht. Leider kann ich das Programm nicht beibringen, wie er die verschiedenen Wörter in einer Zelle analysieren kann und feststellen ob diese vorkommen.
Bitte um Hilfe! Ich hoffe es ist verständlich?!

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Begriffe in Zellen finden und getrennt analysieren
29.05.2007 13:51:00
Christian
Hallo Darren,
Ich hab mal so etwas ähnliches mit Hintergrundfarben gemacht.

Sub Makro1()
' Makro1 Makro
' Makro am 25.08.2005 von Christian aufgezeichnet
For Each Zelle In ActiveSheet.UsedRange.Cells
If Zelle.Interior.ColorIndex = 6 Then Zelle.Interior.ColorIndex = 48
Next Zelle
' Tastenkombination: Strg+Umschalt+T
End Sub


Du läßt jede einzelne Zelle durchsuchen und ersetzt dort wo er was gefunden hat.
Gruß Christian

AW: Begriffe in Zellen finden und getrennt analysieren
29.05.2007 13:51:00
Rudi
Hallo,
Schluesselbegriff = „*“ & „abgerundet“ & “*“
If Begriff Like schluesselbegriff Then
Gruß
Rudi
Eine Kuh macht Muh, viele Kühe machen Mühe

Anzeige
AW: Begriffe in Zellen finden und getrennt analysieren
29.05.2007 14:03:00
Darren
Hi,
es geht nicht.
In der Variable begriff, die ja den Inhalt der Zelle beinhaltet z.B.(ferrari., audi., gm., vw.,) soll der herausfinden ob z.B der Begriff audi enthalten ist.
Ich hatte schon mit "+" und "&" und "*" versucht, macht er aber nciht.
Ist die Fragestullung klar? Also, ganz wichti!: in einer Zelle können mehere Begriffe auftauchen und von diesen 3-6 Begriffen will ich wissen, ob mein Gesuchtes wort enthalten ist. Mit right und left kann ich es ja nciht machen, da ich nicht weiß ob es vorkommt und an welcher stelle des Satzen innerhalb EINER Zelle!
Hilfe!
Grüße
Darren

Anzeige
AW: Begriffe in Zellen finden und getrennt analysieren
29.05.2007 14:24:00
mpb
Hallo Darren,
Rudis Ansatz ist schon in Ordnung. Angenommen, in Zelle A1 steht der String "ferrari., audi., gm., vw.", und Du möchtest überprüfen, ob der Teilstring "audi" vorkommt:

Sub Teilstring_finden()
Dim Such As String
Such = "*audi*"
If Range("A1") Like Such Then
MsgBox "Gefunden"
End If
End Sub


Gruß
Martin

301 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige