Nach Benutzerdefinierter Formatierung filtern

[Heinz007]

Hallo an Alle, 

ich habe ein wirklich verzwicktes Problem. 

Ich habe eine große Liste, die unter anderem Gewichte beinhaltet.  Leider sind die gewichte einmal in Gramm und einmal in KG enthalten.
Ziel soll es sein, alles auf KG zu bringen. 
ich habe aber keine Möglichkeit gefunden, nach den Gramm zu filtern. Kennt ihr eine Möglichkeit? 

Hier noch die Formatierung der jeweiligen Zellen:

#.##0,000" KG";-#.##0,000" KG";#.##0,000" KG"

#.##0,000" G";-#.##0,000" G";#.##0,000" G"

ich hoffe einer von Euch kann mir bei meinem Problem helfen. 

Viele Grüße
Heinz

[Fennek]

Hallo,

VBA kann das "Cells.NumberFormat" abfragen und damit die Unterscheidung erkennen.

Kommt VBA infrage?

mfg

[Heinz007]

Vielen Dank für deine Antwort, Ja VBA kommt in Frage. 

Darf ich dich bitten, mit einen VBA Code zu schreiben? 

Das wäre wirklich super von Dir. 

Die Gewichte stehen alle in K und starten ab Zeile 3.

[Fennek]

Hallo,

als Startpunkt:

Code:

Sub Format_auslesen()

For i = 3 To Cells(Rows.Count, "K").End(xlUp).Row
    If InStr(1, Cells(i, "K").NumberFormat, " KG") > 0 Then Cells(i, "L") = "KG"
    If InStr(1, Cells(i, "K").NumberFormat, " G") > 0 Then Cells(i, "L") = "G"
Next i
End Sub

Anbei die Test-Datei.

mfg

[Heinz007]

Perfekt!
Vielen Dank! 

Hat auf anhieb funktioniert

Das hat mir sehr viel Arbeit erspart.