Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
2016to2020
2016to2020
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Anzeige
Inhaltsverzeichnis

Bestimmte Werte in einer Spalte ersetzten

Forumthread: Bestimmte Werte in einer Spalte ersetzten

Bestimmte Werte in einer Spalte ersetzten
23.09.2025 10:59:06
Addi
Hallo Zusammen, ich möchte in ein bestehendes Makro gerne folgendes hinterlegen:

In Spalte "H" einer umfangreichen Tabelle stehen Werte (Zahlen). Bestimmte Zahlen aus diese Spalte möchte ich durch den Buchstaben "S" ersetzen.
Welche Zahlen ich ersetzen möchte, müsste ich auch in dem Makro hinterlegen.

Könnt Ihr mir hierbei weiterhelfen?

Vielen Dank und Gruß, Addi
Anzeige

8
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Könnt Ihr mir hierbei weiterhelfen?
23.09.2025 11:16:56
Addi
Hallo Ralf,

vielen Dank für die Info...ich habe zuvor schon recherchiert und mir auch schon diese Hilfe angeschaut...

Worksheets("Sheet1").Columns("A").Replace _
What:="SIN", Replacement:="COS", _
SearchOrder:=xlByColumns, MatchCase:=True

Dieses Coding macht genau das was ich mir vorstelle, nur das das "SIN" bei mir variabel ist. Die variabelen Werte, z.B. "12345", "34567" und "56789" möchte ich fix im Coding hinterlegen und dann mit einbinden....dabei tue ich mir schwer.

D.h. ich möchte in meinem Fall alle Felder mit "12345", "34567", "56789" in ein "S" umwandeln.

Viele Grüße, Adrian
Anzeige
AW: Könnt Ihr mir hierbei weiterhelfen?
23.09.2025 11:28:11
RPP63
Du schreibst "z.B.".
Wenn Du unbedingt "hart codieren" willst, kannst Du das so machen, wie es @MCO vorgeschlagen hat.
Ich würde die zu ersetzenden Werte hingegen in einen Zellbereich schreiben und diesen im Makro abklappern.
Pseudocode: 
Sub Ersetzen_aus_Range()

Dim rng As Range, Zelle As Range

Set rng = Tabelle1.Range("X1:X10")

For Each Zelle In rng

  Range("H:H").Replace Zelle.Value, "S", xlWhole

Next

End Sub
Anzeige
AW: Bestimmte Werte in einer Spalte ersetzten
23.09.2025 11:12:55
MCO
Moin!

Probier mal, ob du das so einbauen kannst: 

Sub auswerte()

dim rng as range

dim Zahlen_zum_ersetzen as variant

dim i as long



Set Rng = Range("H:H")



Zahlen_zum_ersetzen = Array(2, 4, 6, 8, 10)



For i = 0 To UBound(Zahlen_zum_ersetzen)

    Rng.Replace Zahlen_zum_ersetzen(i), "S"

Next i

End Sub


Gruß. MCO
Anzeige
AW: Bestimmte Werte in einer Spalte ersetzten
23.09.2025 15:24:32
Addi
Hallo MCO,
ich muss den Beitrag doch nochmal öffnen, da ist noch eine Unschärfe drin....
Ich habe es wie folgt bei mir hinterlegt:

Dim rng As Range
Dim rplc As Variant
Dim i As Long

Set rng = Range("G:G")

rplc = Array(32, 3079, 3204)

For i = 0 To UBound(rplc)
rng.replace rplc(i), "S"
Next i

In diesem Fall habe ich beispielsweise in der Spalte G Werte wie z.B. 3200 oder 329 stehen...diese werden nun wie folgt angepasst: S00 und S9.
Kann man dies noch ändern, das nur die eindeutigen Zellen angepackt werden?

Vielen Dank und Gruß, Addi
Anzeige
AW: Bestimmte Werte in einer Spalte ersetzten
23.09.2025 15:35:53
daniel
Hi 
rng.replace rplc(i), "S", xlwhole

bei suchen und ersetzen sollte man in VBA die Parameter immer möglichst vollständig angeben.
unterlässt man das, werden die zuletzt gemachten Einstellungen verwendet und da kann man sich nicht sicher sein, was der Anwender zuletzt gemacht hat.
Daher sollte man zumindest die Parameter LookAt und LookIn (bei .Find) immer mit angeben.
Gruß Daniel
Anzeige
AW: Bestimmte Werte in einer Spalte ersetzten
23.09.2025 16:10:38
Addi
Hi Daniel,

vielen Danke - jetzt ist es perfekt... :-)

VG Addi
AW: Bestimmte Werte in einer Spalte ersetzten
23.09.2025 12:42:59
Addi
Hallo Ihr Zwei,
vielen Dank für Eure schnelle und kompetente Hilfe.
Ich konnte dies erfolgreich bei mir umsetzen!!
Viele Grüße, Addi
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Live-Forum - Die aktuellen Beiträge
Datum
Titel
14.05.2026 13:31:09
Zeichen ausblenden
14.05.2026 09:50:42
Makro für MacOs
13.05.2026 19:14:18
Gleichheitszeichen
13.05.2026 14:24:56
VBA Projekt Passwort automatisch eingeben
13.05.2026 08:49:41
Reale Berechnung ohne Nachkommawerte
Keine passende Antwort im Forumarchiv gefunden?
Stelle deine Frage im Live-Forum