Hallo zusammen,
mein Problem:
In einer Tabelle mit mehren Mengenspalten möchte ich bestimmte Zellwerte der betreffenden Spalten durch eine "1" ersetzen. Funktionier bei Ganzzahlen super, nur bei Dezimalzahlen will es partout nicht klappen.
Bsp.:
0,1 -> bleibt 0,1
aber 0 -> 1
bitte hier um kurze Hilfe. Danke euch.
Mein Code:
Sub equalizer()
Dim i As Long
Dim mng As Range
maxL = Cells(Rows.Count, 1).End(xlUp).Row
maxS = Cells(1, Columns.Count).End(xlToLeft).Column
Set mng = Range(Cells(1, 1), Cells(1, maxS))
For Each cell In mng
If InStr(1, cell, "Menge") Then
Cells.EntireColumn.Replace What:="0,1" And "0,01" And "0", Replacement:="1", _
LookAt:=xlWhole, SearchFormat:=False
End If
Next cell
End Sub
|