Teilzelleninhalte abfragen

Hallo Leute
Ich habe eine Excel Datei mit folgenden Zelleninhalten

Pos 109d RPS450-0510 TL M DC1
Pos 111c RPS450-0060 C
Pos 111d RPS450-0030 C
Pos 111a RPS450-0120 C
Pos 128 RPS450-0170 TL
Pos 133a RPS450-1020 TL
Ich möchte den Zelleninhalt über eine IF Schleife nach folgenden Inhalt

  1. = -0030 And = -0060
  2. = -0120 And = -0170
  3. > 0170
    abfragen
    Ist die erste If Schleife erfüllt führe ich eine Aktion aus usw.
    Meine Frage ist:
    Wie kann ich den Teilinhalt einer Zelle z.B -0030 auf = oder
    -0170 auf > abfragen?
    Vielen Dank für eure Hilfe im vorraus.

mfg Werner

Hi
Hier mal der wichtigste Teil
=TEIL(A1;FINDEN("-";A1);5)
in die Wennformel entsprechend einbauen

Gruss

M@x

Nachfrage

Ist die erste If Schleife erfüllt führe ich eine Aktion aus
usw.

Hallo Werner,

„IF Schleife“ klingt nach Vba, bin mir aber nicht 100%ig sicher, vielleicht hast du ja engl. Excel und benutzt das Wort „Schleife“ nicht nach meiner Sichtweise :smile:

Suchst du eine Vba-Code Lösung oder eine Excel-Formel-Lösung?

Gruß
Reinhard

Hallo Richard

Ich suche nach eine VBA Lösung.

1 „Gefällt mir“

Ich suche nach eine VBA Lösung.

Hallo Werner,

erster, ungetesteter Versuch:

Sub tt()
Dim Zei As Long, Teil() As String
With Worksheets("Tabelle1")
 For Zei = 1 To .Cells(Rows.Count, 1).End(xlUp).Row
 Teil = Split(.Cells(Zei, 1).Value, "-")
 Select Case CInt(Left(Teil(1), InStr(Teil(1), " ") - 1))
 Case 30, 60
 Call Makro1
 Case 120, 170
 Call Makro2
 Case Is \> 170
 Call Makro3
 Case Else
 MsgBox "unklar"
 End Select
 Next Zei
End With
End Sub

Gruß
Reinhard

Hallo Reinhard

Vielen Dank für deine Hilfe. An anderer Stelle im Netz habe ich folgende Lösung gefunden. Sie passt genau für mich.

Textauszug = Mid(Textauszug, InStr(Textauszug, „-“) + 1, 4)

Werner

Hallo M@x,

Ich folgendes gemacht.

In der Zelle B52 steht

Pos 322 a RPS450-0030IT

Mit der Formel wird ich den Wert 0030 auswerten.

=WENN(TEIL(B52;FINDEN("-";B52)+1;4)