PDA

Vollständige Version anzeigen : Textteile erkennen aus Zelle


ChrigeBS
24.04.2015, 14:35
Hallo Zusammen

mein Problem

ich habe eine Tabelle in der Spalte D steht ein unterschiedlicher Text
In die Spalte E möchte ich eine Zuweisung der Einträge

Alle Textinhalte mit *wartungsdrehen* , *wartungsschleifen*,*drehen* sollte dann in der Spalte E der Buchstabe B stehen

Ich habe diverse Wennformeln probiert ohne Erfolg.

Meine Gedanken wahrscheinlich viel zu weit ....

kann mir jemand auf die Sprünge helfen?

Testdatei beiliegend
Die Buchstaben im gelben Bereich sind von Hand als Beispiel



Besten Dank für Hilfe
Gruss Christian

Kimba06
24.04.2015, 15:10
Hallo Christian,
versuchs mal hier mit=WENN((FINDEN("Wartungsdrehen";D11));"B";"")
Die Formel dann noch entsprechend erweitern im False Teil die nächste Wenn((Finden usw.
Gruss Achim

aloys78
24.04.2015, 15:31
Hallo Christian,

eine andere Möglichkeit:
Option Explicit

Sub Suchen_Text()
Dim r As Long 'Zeilen#
Dim arrT() 'Array Suchtexte
Dim arrL() 'Array korrespondierende Ergebnis-Buchstaben
Dim a As Long 'Index für die Arrays
Dim rng As Range 'Ergebniszelle Find
Dim sw As Boolean 'Schalter

arrT = Array("Wartungsdrehen", "wartungsschleifen", "drehen", "wartung", "Z1-Wartung", "Klimawartung")
arrL = Array("B", "B", "B", "S", "S", "S")

For r = 3 To Cells(Rows.Count, "A").End(xlUp).Row
sw = False
For a = LBound(arrT) To UBound(arrT)
Set rng = Range("D" & r).Find(arrT(a), LookIn:=xlValues, LookAt:=xlPart)
If Not rng Is Nothing Then
sw = True
Range("E" & r) = arrL(a)
Exit For
End If
Next a
If sw = False Then
Range("E" & r) = "P"
End If
Next r
End Sub


Gruß
Aloys

ChrigeBS
25.04.2015, 08:53
Guten Morgen Zusammen

Ich danke euch für Eure Hilfe ich werde übers Weekend ausprobieren

vielen Dank

Gruss Christian

wünsche euch ein schönes Wochenende

ChrigeBS
27.04.2015, 06:45
Guten Morgen Alois

Ich habe den Code eingefügt und angepasst hatt super geklappt

Besten Dank

Gruss Christian