Live-Forum - Die aktuellen Beiträge
Datum
Titel
26.09.2025 18:34:36
Welches Datum gibt mein M-Code aus?
26.09.2025 10:29:46
Wert aus einer Zelle bei jeder Eingabe in neue Zelle
26.09.2025 08:51:00
Teilinhalt einer Zelle vergleichen
25.09.2025 23:04:12
Einen von drei möglichen Einträgen in einer Zeile suchen
Keine passende Antwort im Forumarchiv gefunden?
Stelle deine Frage im Live-Forum
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1600to1604
1600to1604
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Zelleninhalte anhand von Kriterienspalte ersetzen

Forumthread: Zelleninhalte anhand von Kriterienspalte ersetzen

Zelleninhalte anhand von Kriterienspalte ersetzen
15.01.2018 16:39:34
Kriterienspalte
Liebes Forum,
ich komme trotz langer Suche nicht weiter und hoffe, Ihr könnt mir eine Richtung nennen, in die ich weiterdenken kann. Ich denke, die Lösung für meine Aufgabe muss eigentlich relativ simpel sein - ich habe aber nur sehr bescheidene VBA Kenntnisse.
Mein Problem:
Ich habe eine umfangreiche, mehrspaltige Tabelle: Tabellenbereich A1:CZ17000. In jeder Zelle ist eine 6stellige ganze Zahl hinterlegt.
Aus dieser Tabelle möchte ich alle Werte ersetzen, die mit den Werten in einem weiteren Arbeitsblatt (nur eine Spalte A1:A220) identisch sind. Ersetzt werden sollen die Werte durch den immer gleichen Text (z.B. "##deleteValue##").
Das dürfte mit VBA doch eigentlich gar nicht so schwer sein - aber ICH kriegs nicht hin.
Vorab vielen Dank!
Anzeige

5
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Zelleninhalte anhand von Kriterienspalte ersetzen
15.01.2018 16:52:52
Kriterienspalte
Hallo Tobias,
so: 
Sub Makro1()
Dim loLetzte As Long, i As Long
With Worksheets("Tabelle1") 'Blattnamen anpassen
loLetzte = .Cells(.Rows.Count, 1).End(xlUp).Row
For i = 1 To loLetzte
Worksheets("Tabelle2").Cells.Replace What:=.Cells(i, 1).Value, Replacement:="## _
deleteValue##", LookAt:= _
xlPart, SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False
Next i
End With
End Sub
Tabelle1 (Name anpassen) ist die Tabelle, auf der sich deine zu ersetztenden Kriterien befinden
Tabelle2 (Name anpassen) ist die Tabelle, auf der die Daten ersetzt werden.
Gruß Werner
Anzeige
nochmal neu, weil...
15.01.2018 16:55:12
Werner
Hallo Tobias,
...ich nicht aufgepasst habe beim Code kopieren und mir die Forensoftware einen Zeilenumbruch rein gemacht hat. 
Sub Makro1()
Dim loLetzte As Long, i As Long
With Worksheets("Tabelle1") 'Blattnamen anpassen
loLetzte = .Cells(.Rows.Count, 1).End(xlUp).Row
For i = 1 To loLetzte
Worksheets("Tabelle2").Cells.Replace What:=.Cells(i, 1).Value, _
Replacement:="##deleteValue##", LookAt:=xlPart, SearchOrder:=xlByRows, _
MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False
Next i
End With
End Sub
Gruß Werner
Anzeige
AW: nochmal neu, weil...
16.01.2018 10:21:06
Tobias
Hallo Werner, hallo Chris,
Ihr seid GROẞARTIG! Vielen Dank für die schnelle Antwort.
Ich habe den Code noch in folgende zwei Zeilen gebettet:

Application.DisplayAlerts = False

Oben stehender code 

Application.DisplayAlerts = True
Excel gibt sonst für jede Reihe, in der nichts zum Ersetzen gefunden wird, eine Warnung aus, die man mit "ok" bestätigen muss.
Vielen Dank für Euer Engagement!
VIelen DAnk für Euer Engagement.
Anzeige
Gerne u. Danke für die Rückmeldung. o.w.T.
16.01.2018 10:36:39
Werner
AW: Zelleninhalte anhand von Kriterienspalte ersetzen
15.01.2018 16:55:20
Kriterienspalte
Hi
xlWhole statt xlParts ;)
Sub Makro1()
Dim lngZeile As Long
Dim WS1 As Worksheet: Set WS1 = Worksheets("Tabelle1")
Dim WS2 As Worksheet: Set WS2 = Worksheets("Tabelle2")
Application.ScreenUpdating = False
For lngZeile = 1 To WS2.Cells(Rows.Count, 1).End(xlUp).Row
WS1.Cells.Replace What:=WS2.Cells(lngZeile, 1), Replacement:="##deleteValue##", LookAt:= _
xlWhole, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False
Next lngZeile
End Sub
cu
Chris
Anzeige
;

Forumthreads zu verwandten Themen

Formel automatisch durch Wert ersetzen (vba)
Tanja

Hallo liebe Leute,
Ich hab in meiner excel-Mappe, in den Zellen: M2:M14 Formeln, die eine ganze Zahl als Ergebnis erzeugen.
So, und nun möchte ich das 1. Berechnungs-Ergebnis quasi "einfrieren".
Mein Problem: Ich möchte kein Makro per Hand auslösen müssen, sondern der Code soll voll...
07.08.2008 21:59:00
Thread-ID: 1000110
5 Beiträge
@ Tino - brauche Hilfe bei einer deiner Formeln
oblivion

Hallo, ich habe eine Frage an dich. Du hast mir die Formel erstellt in A16.
Ich habe die Datei mal hochgeladen und in Blatt "Beispiel" Spalte A etwas hereingeschrieben.
Danke für deine Hilfe.
Gruß Oblivion
https://www.herber.de/bbs/user/54685.zip
17.08.2008 21:06:00
Thread-ID: 1002466
4 Beiträge
Zeichenkette in einer Zellesuchen
Gordon

Moin,
ich habe in einer Zelle (A1) einen Namen plus ein Datum dazu stehen: "Max Mustermann (01.01.1900)"
Nun möchte ich überprüfen, ob diese Zeichenkette, also Name plus Datum, nochmals in der Zelle A2 steht.
In der Zelle A2 stehen mehrere dieser Zeichenketten. Diese sind in einer...
26.09.2008 12:54:00
Thread-ID: 1012601
4 Beiträge
Zeichen in Zelle automatisch kürzen
Andreas

Guten Tag,
ich habe Zellen mit jeweils 12 Stellen ausgefüllt (z.B. 000012345678) Davon hätte ich nun gerne automatisch die ersten 4 gelöscht (sodaß in diesem Beispiel dann in der Zelle nur 12345678 verbleibt)
Ist das mit Excel-Bordmitteln machbar?
Danke für Hilfe voarab,
Andreas...
09.10.2008 13:57:00
Thread-ID: 1015344
4 Beiträge
Txt - Text suchen und ersetzen VBA
Stevie

Hie zusammen,
ich hoffe mir kann hier jemand helfen, ich habe einen Code aus dem Internet (oder sogar von der Seite hier) und den muss ich leider ein bisschen anpassen. Der Code sucht in einer Textdatei nach einer bestimmten Zeichenfolge STxtA und ersetzt diesen Text durch STxtB. Soweit so...
30.10.2008 13:09:28
Thread-ID: 1020573
3 Beiträge
Anzeige
Was bedautet das ^ Zeichen in Formeln
Rocky

Hallo Excelfreunde,
bin jetzt des öffteren auf Formeln gestoßen die dieses Zeichen drin haben: ^
Was heißt das? und macht es?
Danke an alle
Gruß Rocky
25.11.2008 10:39:00
Thread-ID: 1027608
3 Beiträge
Anzeige
SummenArray via VBA od. Formel mit JokerZeichen
Andreas

Hallo Herber Fans,
seit gestern Abend beschäftigt mich ein Thema, welches an sich banal klingt. Ich habe es in der ursprünglichen Form aber leider nicht lösen können.
Es geht um SummeWenn, die mit 4 Kriterien arbeiten soll. An sich kein Problem. Diese Kriterien kommen aus einer DropDown...
11.12.2008 19:46:11
Thread-ID: 1032195
3 Beiträge
Eingaben in Zelle nach links versetzen
thorsten

Guren Morgen,
ich habe eine Datei angeführt:
https://www.herber.de/bbs/user/57594.xls
Hier habe ich folgendes Problem. In der Spalte A müsste ich alle Nummern um 2 Positionen nach rechts versertzt haben. Die Originaldatei hat 16.000 Zeilen - gibt es hierfür eine Formel?
Danke
13.12.2008 10:16:00
Thread-ID: 1032577
9 Beiträge
Anzeige
Anzahl der Zeichen in einer Zelle
Jan

Guten Morgen
Welcher Befehl zählt die Zeichen in einer Zelle?
Danke
Gruß Jan
07.01.2009 08:38:00
Thread-ID: 1037436
3 Beiträge
Anzeige
Nur bestimmte Zeichen in Zelle
wolle

Erstmal ein Hallo an Alle und alles gute in 2009!
Ich hätte folgende Frage:
Wie kann ich es machen, dass in Spalte B von Zelle B10 bis Zelle Bxx nur die Zeichen "J" "j" "N" "n" eingeben werden können und bei Eingabe eines anderen Zeichens ein kleines Popup erscheint, das den Bediener in...
09.01.2009 11:22:25
Thread-ID: 1038162
3 Beiträge
Suchen und >Ersetzen mit VBA macht komische Sachen
SteffenS

Hallo Zusammen,
mit dem Code:
WSZ.Cells.Replace What:="""", Replacement:="", LookAt:=xlPart, SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, ReplaceFormat:=False
ersetze ich " in allen Zellen.
Mache ich dies manuell so wird aus:
1348,52102" --> richtig 1348,...
11.01.2009 18:08:38
Thread-ID: 1038681
3 Beiträge
zählen bestimmter Zeichen in einer Zelle
Georg

Hallo Excel Welt,
wie kann ich die Anzahl bestimmter Zeichen (z.B. Kommas) in einer Zelle zählen?
Beispiel:
A2 = 12, 34, 2, 134
B2 = 3 (es sind drei Kommas in der Zelle A2) = dafür benötige ich die Lösung
Oder kann ich die Anzahl der (durch Kommas getrennten) Zahlen direkt...
21.01.2009 16:03:36
Thread-ID: 1042267
6 Beiträge
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken
Anzeige

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige