Makro um Werte kleiner als zu ersetzen

[ari-2001]

Hallo liebe Gemeinde,

mit dem Makro:

Dim letzteZeile As Long
 With ThisWorkbook.Sheets("Testblatt")
   letzteZeile = .Range("A" & Rows.Count).End(xlUp).Row
    .Range("C2:C" & letzteZeile).Replace "123", "", 1
End With
   


kann ich erfolgreich alle Werte, die genau "123" heißen durch ein "" ersetzen.

Wie kann ich denn damit Werte, die KLEINER siind als "123" ersetzen?

Geht das überhaupt mit der Range.Replace  Funktion?

Viele Grüße
Andreas

[Klaus-Dieter]

Hallo,

ungestestet: .Range("C2:C" & letzteZeile).Replace "<123", "", 1

[Fennek]

Hallo Andreas,

ein Wechsel der Interpretation zwischen "als Zahl" und "als Text" ist möglich, aber ohne eine gute Beispiel-Datei ist kein konkreter Vorschlag zu machen.

Zumindest die entscheidende Spalte muss dem Original entsprechen und für viele Variante zumindest ein Beispiel enthalten.

mfg

[RPP63]

Moin!
Warum nicht einfach per Formel?

	A	B
1	Werte
2	126	126
3	122
4	124	124
5	120
6	121
7	126	126
8	122
9	126	126
10	121
11	123	123
12	120
13	124	124
14	120
15	122
16	122
17	122
18	121
19	124	124
20	122
21	126	126

Zelle	Formel
B2	=WENN(A2<123;"";A2)

Genau so würde ich es auch per VBA manchen:

Sub Kleiner_Weg()
Dim i&
For i = 2 To Range("A2").End(xlDown).Row
  If Cells(i, 1) < 123 Then Cells(i, 1).ClearContents
Next
End Sub

Gruß Ralf

[EarlFred]

Eine Möglichkeit:

Code:

Dim letzteZeile As Long
With ThisWorkbook.Worksheets("Testblatt")
   letzteZeile = .Range("A" & .Rows.Count).End(xlUp).Row
   .Range("C2:C" & letzteZeile).Value = Evaluate("IF(C2:C" & letzteZeile & "<123,"""",C2:C" & letzteZeile & ")")
End With