Excel 2010 - ungleich Bedingung ?

Macoda · 9. Februar 2017

Hallo zusammen,

ich habe z.B. folgende Bezeichnungen:

K1287 101K256:1K179 30B19XY2197 oder R 13A 64:1

Das sind Bezeichnungen von Motoren mit Getriebe. In den Bezeichnungen ist die Übersetzung rauszulesen,

welche vor und nach dem Doppelpunkt zu sehen sind. z.B. 256:1 oder 64:1, kann auch mal ein Komma dabei sein, 64,3:1.

Wie man sieht, ist entweder ein Leerzeichen davor und/oder danach, oder ein Buchstabe, in diesem Fall ein K (können aber auch andere sein).

Nun versuche ich verzweifelt diese Getriebeübersetzung in eine eigene Spalte zu filtern und kopieren. Da sie nicht immer an der selben Stelle ist, ist das mit der "Text in Spalten" Funktion nicht machbar.

Ich habe in verschiedenen Foren auch gelesen das es wohl eine "ungleich Bedingung" gibt. Kann ich mit dieser ungleich Bedingung diese Übersetzung rausfiltern, oder gibt es da einfachere / andere Methoden ?

Vielen Dank im Voraus

Macoda

Claus Busch

Hallo,

dann probiere es so (bei mir funktioniert es damit mit deinen Daten):

Function Getriebe(myRng As Range) As String

Dim varStr As Variant, varGetr As Variant

Dim i As Integer

Dim str1  As String, str2 As StringvarStr = Split(myRng, " ")

For i = LBound(varStr) To UBound(varStr)

    If InStr(varStr(i), ":") Then

        varGetr = Split(Application.Trim(varStr(i)), ":")

        Exit For

    End If

NextIf IsNumeric(Replace(varGetr(0), ",", "")) Then

    str1 = varGetr(0)

Else

    For i = Len(varGetr(0)) To 1 Step -1

        If Asc(Mid(varGetr(0), i, 1)) > 57 Or Asc(Mid(varGetr(0), i, 1)) < 44 Then

            str1 = Right(varGetr(0), Len(varGetr(0)) - i)

            Exit For

        End If

    Next

End If

If IsNumeric(Replace(varGetr(1), ",", "")) Then

    str2 = varGetr(1)

Else

    For i = 1 To Len(varGetr(1))

        If Asc(Mid(varGetr(1), i, 1)) > 57 Or Asc(Mid(varGetr(1), i, 1)) < 44 Then

            str2 = Left(varGetr(1), i - 1)

            Exit For

        End If

    Next

End If

Getriebe = str1 & ":" & str2

End Function

Claus

13c7c04b-b89f-443f-a

Hallo,

ja, der komplette String steht in einem Feld. Aus diesem Feld möchte ich bei vielen Feldern die Übersetzung filtern und in einem separaten Feld eintragen.

13c7c04b-b89f-443f-a

Du bist der absolute Hammer, es funktioniert. Ich denke das ich evtl. doch noch einen VBA Kurs machen sollte. Das will ich auch mal können.

Ich weiss gar nicht wie ich dir danken soll,

Vielen vielen Dank,

lieben Gruß,

Macoda

Claus Busch

Hallo,

was davon steht in einer Zelle?

Ist der komplette String "K1287 101K256:1K179 30B19XY2197" in einer Zelle?

Claus

13c7c04b-b89f-443f-a

Hier ein kleiner Auszug der Ergebnisse:

[table][tr][td]R IE2-50 13A 50:1[/td][td]50:1[/td][/tr][tr][td]R IE2-400 4757 13A 16:1[/td][td]16:1[/td][/tr][tr][td]R IE2-50 13A 201:1[/td][td]201:1[/td][/tr][tr][td]R IE2-400 4757 13A 64:1[/td][td]64:1[/td][/tr][tr][td]R IE2-400 13AK158:1[/td][td]158:[/td][/tr][tr][td]R IE2-400 13AK1024:1[/td][td]1024:[/td][/tr][tr][td]R19 IE2-400 ZX4126 141 246:1#[/td][td]:[/td][/tr][tr][td]R19 IE2-400 ZY4126 141 246:1#[/td][td]:[/td][/tr][tr][td]R IE2-50 13AK16:1[/td][td]16:[/td][/tr][tr][td]R IE2-400 13A 16:1[/td][td]16:1[/td][/tr][tr][td]R IE2-400 13AK256:1[/td][td]256:[/td][/tr][tr][td]R IE2-400 13A 256:1[/td][td]256:1[/td][/tr][tr][td]R IE2-50 13AK256:1 5545[/td][td]256:[/td][/tr][tr][td]R IE2-400 13A 158:1[/td][td]158:1[/td][/tr][tr][td]54-123 141 14:1 K179 30B18F[/td][td]14:1[/td][/tr][tr][td]R IE2-400 5722 13AK1024:1[/td][td]1024:[/td][/tr][tr][td]141 592:1 2629[/td][td]592:1[/td][/tr][tr][td]141 415:1 2111-2254[/td][td]415:1[/td][/tr][tr][td]R 13A 16:1[/td][td]16:1[/td][/tr][tr][td]R 13A 16:1[/td][td]16:1[/td][/tr][tr][td]R 13A 50:1[/td][td]50:1[/td][/tr][tr][td]R 13A 50:1[/td][td]50:1[/td][/tr][tr][td]R 13AK1024:1[/td][td]1024:[/td][/tr][tr][td]R 13AK64:1[/td][td]64:[/td][/tr][tr][td]R 13AK50:1[/td][td]50:[/td][/tr][tr][td]R 13A 1024:1[/td][td]1024:1[/td][/tr][tr][td]R 13AK50:1[/td][td]50:[/td][/tr][tr][td]R 13AK256:1[/td][td]256:[/td][/tr][tr][td]R 13AK256:1[/td][td]256:[/td][/tr][/table]

So sieht das bis jetzt aus

Hi,

willkommen im Windows Forum!

Excel 2010 - ungleich Bedingung ? - Similar Threads - Excel 2010 ungleich	Forum	Datum
Excel/ Zähler mit Bedingung Excel/ Zähler mit Bedingung: Hallo!ich habe folgende Aufgabenstellung bei der ich nicht wirklich weiterkomme. Ich habe eine Tabelle mit Datum und Uhrzeit alle 15 min ein Eintrag. Ich brauche nun einen Zähler in einer...	Microsoft Office	27. Januar 2022
Excel Solver Nebenbedingung ungleich null Excel Solver Nebenbedingung ungleich null: Liebe Community,ich würde gerne den Excel Solver anwenden, bei der meine änderbaren Variablen die einzige Bedingung ungleich null erfüllen müssen. Leider steht diese nicht zur Verfügung. Könnt Ihr...	Microsoft Office	11. November 2021
Excel: Spalte verketten mit Bedingung Excel: Spalte verketten mit Bedingung: Hallo, Ich suche eine Formel, um bestimmte Inhalte von Zellen, die direkt übereinander stehen, zu verknüpfen, wenn in der einer Zelle der gleichen Zeile ein bestimmter Text steht. Am Ende...	Microsoft Office	1. Mai 2020
[Excel 2016] Datenübertrag - Bedingung. [Excel 2016] Datenübertrag - Bedingung.: Hallo. Ich bräuchte mal fachmännischen Rat. Ich habe eine Tabelle mit zwei Blättern. Ich vergleiche bspw. Zelle A1 von Blatt 1 mit Spalte A aus Blatt 2. Wenn A1/Blatt 1 in Spalte A/Blatt 2...	Microsoft Office	22. Mai 2019
Excel 2016 Max mit Bedingungen Excel 2016 Max mit Bedingungen: Hallo zusammen, ich habe ein Problem und in den letzten zwei Stunden alles ausprobiert, aber irgendwie hat leider nichts funktioniert. Ich habe folgende zwei Tabellen: A B D E F G H I J K L 1...	Microsoft Office	16. April 2018
Ungleiche Synchronisierung Ungleiche Synchronisierung: Hallo! Seit der Umstellung auf die Exchange-Konten habe ich diverse Probleme mit der Synchroniseirung zwischen meinen Geräten. Teilweise sind emails, welche ich auf dem iPad gelöscht habe noch...	Outlook.com	11. März 2017
Excel WENN Formel mit 3 Bedingungen Excel WENN Formel mit 3 Bedingungen: Hallo ihr Lieben, ich habe eine Excel Tabelle, bei der in Spalte "F" Vornamen von Personen stehen und in Spalte "G" das Geschlecht durch Nummern definiert ist (0=männlich, 1=weiblich und...	Microsoft Office	22. Februar 2017

Excel 2010 - ungleich Bedingung ?