Clever-Excel-Forum

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

Hallo,

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

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

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

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

ari-2001

Klaus-Dieter

Fennek

RPP63

EarlFred