Hallo Leute,
in einer Spalte habe ich nach gewissen Kriterien die Werte umgewandelt. Von 00 bis 09 läuft alles super, aber ich z.B. "KM" umwandeln möchte, kriege ich "K03" aus. Oder bei "ML" kommt "306" raus. Stimmt die Angabe nicht, oder was kann das Problem sein?
Vielen Dank.
Mfg Christian
in einer Spalte habe ich nach gewissen Kriterien die Werte umgewandelt. Von 00 bis 09 läuft alles super, aber ich z.B. "KM" umwandeln möchte, kriege ich "K03" aus. Oder bei "ML" kommt "306" raus. Stimmt die Angabe nicht, oder was kann das Problem sein?
Quellcode
- Private Sub CommandButton2_Click()
- Dim arrSuchen(), arrErsetzen(), intI As Integer
- arrSuchen = Array("MM", "ST", "KG", "M", "M3", "M2", "L", "P", "T", "G", "KM", "KWH", "ML", "KT", "H", "BL")
- arrErsetzen = Array("00", "01", "02", "03", "04", "05", "06", "07", "08", "09", "10", "11", "12", "13", "15", "16")
- For intI = 0 To UBound(arrSuchen)
- Range("S15:S15000").Replace What:=arrSuchen(intI), Replacement:=arrErsetzen(intI), LookAt:=xlPart, SearchOrder:=xlByRows, MatchCase:=True
- Next
- End Sub
Vielen Dank.
Mfg Christian