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

Gleiche Inhalte finden und ersetzen

Forumthread: Gleiche Inhalte finden und ersetzen

Gleiche Inhalte finden und ersetzen
23.05.2020 09:26:05
sam
Hallo zusammen,
ich möchte von einem Datenimport in einer Zeile gleiche Werte finden, und diese per VBA fortlaufen umbennenen. Es können max. 6 gleiche Werte vorkommen.
Die gefundenen Werte können von der Zeile her unterschiedlich sein, auch die Position der Spalten ist leider nicht immer gleiche.
Geht so etwas?
Anzeige

24
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Gleiche Inhalte finden und ersetzen
23.05.2020 09:32:38
Oberschlumpf
Hi,
bin ziemlich sicher, dass das geht.
Aber dazu müsstest du...
...per Upload eine Bsp-Datei mit Bsp-Daten zeigen
...dann genau bestimmen, welche Werte erst mal gleich sind und getauscht werden sollen
...mit welchen Werten sollen doppelte getauscht werden
Ciao
Thorsten
Anzeige
AW: Gleiche Inhalte finden und ersetzen
23.05.2020 09:44:13
sam
Hallo, die Beispieldatei ist hochgeladen.
https://www.herber.de/bbs/user/137685.xlsx
Hier soll zb. immer der Eintrag "Fr" fortlaufend ersetzt werden.
Der erste mit Fr1
Der zweite mit Fr2
usw.
Danke Lg.
AW: Gleiche Inhalte finden und ersetzen
23.05.2020 10:07:48
Matthias
Hi,
hier mal mit Formeln. VBA geht natürlich auch ;-)
Tabelle1

 BCDEFGHIJKLMNOP
5MoDiMiDoFrMoDiMiDoFrMoDiMiDoFr
6MoDiMiDoFr1MoDiMiDoFr2MoDiMiDoFr3

Formeln der Tabelle
ZelleFormel
B6=WENN(LINKS(B5;2)="Fr";B5&ZÄHLENWENN($B$5:B5;"Fr");B5)
C6=WENN(LINKS(C5;2)="Fr";C5&ZÄHLENWENN($B$5:C5;"Fr");C5)
D6=WENN(LINKS(D5;2)="Fr";D5&ZÄHLENWENN($B$5:D5;"Fr");D5)
E6=WENN(LINKS(E5;2)="Fr";E5&ZÄHLENWENN($B$5:E5;"Fr");E5)
F6=WENN(LINKS(F5;2)="Fr";F5&ZÄHLENWENN($B$5:F5;"Fr");F5)
G6=WENN(LINKS(G5;2)="Fr";G5&ZÄHLENWENN($B$5:G5;"Fr");G5)
H6=WENN(LINKS(H5;2)="Fr";H5&ZÄHLENWENN($B$5:H5;"Fr");H5)
I6=WENN(LINKS(I5;2)="Fr";I5&ZÄHLENWENN($B$5:I5;"Fr");I5)
J6=WENN(LINKS(J5;2)="Fr";J5&ZÄHLENWENN($B$5:J5;"Fr");J5)
K6=WENN(LINKS(K5;2)="Fr";K5&ZÄHLENWENN($B$5:K5;"Fr");K5)
L6=WENN(LINKS(L5;2)="Fr";L5&ZÄHLENWENN($B$5:L5;"Fr");L5)
M6=WENN(LINKS(M5;2)="Fr";M5&ZÄHLENWENN($B$5:M5;"Fr");M5)
N6=WENN(LINKS(N5;2)="Fr";N5&ZÄHLENWENN($B$5:N5;"Fr");N5)
O6=WENN(LINKS(O5;2)="Fr";O5&ZÄHLENWENN($B$5:O5;"Fr");O5)
P6=WENN(LINKS(P5;2)="Fr";P5&ZÄHLENWENN($B$5:P5;"Fr");P5)


Excel Tabellen im Web darstellen >> Excel Jeanie HTML 4.8
Gruß Matthias
Anzeige
AW: Gleiche Inhalte finden und ersetzen
23.05.2020 10:11:03
sam
Danke das würde funktionieren.
Allerdings würde ich dies gerne per VBA lösen können, die Daten immer wieder frisch importiert werden.
Lg.
AW: Gleiche Inhalte finden und ersetzen
23.05.2020 10:13:15
Hajo_Zi
es war ein XLSX DAtei, da können keine Makros drin sein.

halt Dich einfach raus, Du Forenclown
23.05.2020 10:19:00
Matthias
.
Anzeige
AW: halt Dich einfach raus, Du Forenclown
23.05.2020 13:32:52
sam
Danke
Nicht Du, sondern Hajo war gemeint !
23.05.2020 14:08:22
Helmut
dann eben VBA ... ;-)
23.05.2020 10:14:04
Matthias
Hi
Für Deine Bsp.Datei so:
Option Explicit Sub austausch() Dim x&, i& i = 1 For x = 2 To 16 If Cells(5, x) = "Fr" Then Cells(5, x) = "Fr" & i: i = i + 1 Next End Sub Gruß Matthias
Anzeige
Eine universelle VBA-Lösung
23.05.2020 10:16:10
Martin
Hallo Sam,
hier eine alternative VBA-Lösung:
Sub Durchnummerierung()
Dim dicCellValues As Object
Dim iLastCol As Long, i As Long
iLastCol = Cells(ActiveCell.Row, Cells.Columns.Count).End(xlToLeft).Column
Set dicCellValues = CreateObject("Scripting.Dictionary")
For i = 1 To iLastCol
With Cells(ActiveCell.Row, i)
If .Value  "" Then
If Not dicCellValues.exists(.Value) Then
dicCellValues.Add .Value, 1
Else
dicCellValues(.Value) = dicCellValues(.Value) + 1
End If
.Value = .Value & dicCellValues(.Value)
End If
End With
Next
Cells(1, 1).Resize(, iLastCol).EntireColumn.AutoFit
End Sub
Viele Grüße
Martin
Anzeige
ich bin nicht Sam! owT
23.05.2020 10:18:06
Matthias
Meine Antwort war aber an Sam gerichtet...
23.05.2020 10:21:27
Martin
...denn er hat den Beitrag aufgemacht und die Aufgabe gestellt. Also ist es richtig, dass du dich nicht angesprochen fühltst, Matthias
AW: Meine Antwort war aber an Sam gerichtet...
23.05.2020 10:30:10
Matthias
Hallo,
lernt endlich das Forum zu benutzen!
Du hast auf meinen Beitrag geantwortet.
Siehe Baumstruktur.
Diese Art sich in andere Zweige einzuklinken ist mir seit Jahren ein Dorn im Auge.
Gehe also im Forum auf "Von Heute"
Klicke den Beitrag vom Fragesteller an und antworte dort auf seine Frage.
Antworte aber bitte nicht auf meine Antwort an Sam.
Das ist nichts Persönliches gegen Dich!
Das möchte ich ausdrücklich erwähnen.
Gruß Matthias
Anzeige
Matthias, heul doch du Prinzessin....
23.05.2020 10:31:37
Oberschlumpf
anstatt selber zu heulen, ...
23.05.2020 10:58:55
Matthias
hättest Du ja eine Lösung anbieten können.
Hast Du aber nicht. Ich hab 2 Lösungen angeboten. Formel & VBA, und Du?
Stattdessen versuchst Du jetzt hier ne "Grüppchenbildung" zu organisieren? :(
Schon seltsam wie hier seit einiger Zeit einige wenige User ticken. Weiter so!
Nun geh selber heulen, Du Schlumpf.
Anzeige
Das hier ist doch kein Schw... messen, Matthias!
23.05.2020 11:17:21
Martin
Jetzt antworte ich mal auf deinem Niveau: Meine VBA-Lösung ist aber wesentlich besser als deine nur auf den Wochentag "Freitag" bezogene VBA-Lösung.
...aber ist das nicht absolutes Kindergartenniveau?!?!
Wollen wir nicht eigentlich anderen helfen und uns dabei selbst etwas üben? Ich bin immer gespannt, ob andere Forenmitglieder bessere Lösungen finden, auf die ich nicht gekommen wäre.
Viele Grüße
Martin
Anzeige
Freitag ist aber OK-Lt.Anfrage
23.05.2020 11:25:53
Helmut
Hier soll zb. immer der Eintrag "Fr" fortlaufend ersetzt werden.
Der erste mit Fr1
Der zweite mit Fr2
Gruß Helmut
Stimmt...
23.05.2020 11:36:26
Martin
...dann habe ich die Aufgabenstellung falsch verstanden und biete folgende Lösung an:
Sub Durchnummerierung()
Dim iLastCol As Long, i As Long
Dim iCounter As Long, strValue As String
iLastCol = Cells(ActiveCell.Row, Cells.Columns.Count).End(xlToLeft).Column
strValue = ActiveCell.Text
For i = 1 To iLastCol
With Cells(ActiveCell.Row, i)
If .Text = strValue Then
iCounter = iCounter + 1
.Value = .Value & iCounter
End If
End With
Next
Cells(1, 1).Resize(, iLastCol).EntireColumn.AutoFit
End Sub
...jetzt wird nur noch der Inhalt der markierten Zelle in der Zeile gesucht und durchnummeriert.
Viele Grüße
Martin
Anzeige
AW: Stimmt...
23.05.2020 13:31:43
sam
Hallo danke für die super Lösungen.
Wie kann ich diese jedoch setzen lassen, ohne die jeweiligen "Fr" auszuwählen?
Idealerweise wäre doch nur die entprechende Zeile zu markieren?
PS. Ich verstehen die Diskussion nicht. :(
LG
AW: Stimmt...
23.05.2020 13:56:11
Martin
Hallo Sam,
wenn wirklich ausschließlich die Freitage durchnummeriert werden sollen, dann wäre der Code für dich so besser:
Sub Durchnummerierung()
Dim iLastCol As Long, i As Long
Dim iCounter As Long
iLastCol = Cells(ActiveCell.Row, Cells.Columns.Count).End(xlToLeft).Column
strValue = ActiveCell.Text
For i = 1 To iLastCol
With Cells(ActiveCell.Row, i)
If .Text = "Fr" Then
iCounter = iCounter + 1
.Value = .Value & iCounter
End If
End With
Next
Columns(1).Resize(, iLastCol).AutoFit
End Sub
Mit der sinnlosen Diskussion hast du völlig Recht, eigentlich sollte man darauf überhaupt nicht eingehen.
Viele Grüße
Martin
Anzeige
Kindergarten ... , wer hat denn angefangen?
23.05.2020 11:36:16
Matthias
... war doch der Schlumpf
Ich habe Dir nur geschrieben Du solltest nicht auf meine Antwort antworten.
Schau Dir doch mal die Baumstruktur an.
Klicke auf "von heute". Dort siehst Du an wen Du geantwortet hast.
Meine VBA-Lösung ist aber wesentlich besser als deine nur auf den Wochentag "Freitag" bezogene VBA-Lösung.
Ich hatte explizit an Sam dazugeschrieben "für Deine Bsp.Datei"!
Ich halte mich an das was gefragt wird. Deinen Code habe ich nicht ausprobiert.
Zu sehr habe ich mich darüber geärgert, das Du an mich gepostet hast.
Zitat: Wollen wir nicht eigentlich anderen helfen
RICHTIG!
Dazu gehört aber auch das man sich nicht so gibt wie vorhin der Schlumpf.
Gruß Matthias
Anzeige
hach ja, immer sind die andern schuld
23.05.2020 13:11:44
Oberschlumpf
Matthias, warum hast du denn so ein Fass aufgemacht, dass man doch bitte an der ähh...richtigen Stelle...antworten soll?
Allein DAS find ich schon Kindergarten - von dir! :-P
Is doch egal, wer wann wo wieso antwortet...ich denke, wir alle - ja...gutschi gutschi-...du auch...tätschel...sind intelligent genug, dass wir auch falsch abgelegte Antworten richtig zuordnen könnten, oder? ;-)
So, Matthias, bist du nun schlauer als ich, und wirst auf dem Neviau nicht weiter antworten?
Ich bleibe neugierig :-)
Ciao
Thorsten
jep, weiß nicht mehr, wer das schrieb, aber wir wollen ja anderen helfen, die sich helfen lassen wollen ;-)
Anzeige
AW: Gleiche Inhalte finden und ersetzen
23.05.2020 13:35:54
GerdL
Moin 
Sub Unit()
Const Txt As String = "Fr"
Dim C As Range
Dim i As Integer
For Each C In Selection
If C.Value = Txt Then
i = i + 1
C.Value = Txt & i
End If
Next
End Sub

Gruß Gerd
AW: Gleiche Inhalte finden und ersetzen
23.05.2020 20:02:56
sam
Perfekt. Dankeschön.
;

Forumthreads zu verwandten Themen

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
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
Suchen und ersetzen
zink

Hallo,
in einer Spalte stehen untereinander mehrere Hundert Namenseinträge nach dem Muster:
>
Name und Vorname also in einer Zelle, getrennt durch ein Komma.
Ich möchte jetzt, dass nur der 1. Buchstabe des Vornamens mit einem Abkürzungspunkt in der Zelle steht, also
><...
26.01.2009 08:32:40
Thread-ID: 1043740
6 Beiträge
Anzeige
Suchen und Ersetzen durch
pitt_111@gmx.de

Hallo Excel Gemeinde,
brauche wieder Eure EErfahrung und Hilfe.
In angehängter Tabelle soll nach Werten gesucht werden und diese
sollen entsprechend durch 1 ersetzt werden.
https://www.herber.de/bbs/user/59198.xls
Das suchen und ersetzen soll sich aber nur auf das betreffen...
07.02.2009 09:50:37
Thread-ID: 1047999
2 Beiträge
Durchsuchen und in Zelle daneben ersetzen
Holger

Hallo,
irgendwie komme ich nicht weiter. Ich möchte mit einem Makro die Spalte "A1:A5000" nach der
Zeichenfolge "SV" durchsuchen und überall wo "SV" gefunden wird in der Zelle rechts daneben
(also in der gleiche Zeile in Spalte "B") das Datum "01.01.2008" eintragen.
Ein Ansat...
26.02.2009 12:25:07
Thread-ID: 1054317
4 Beiträge
Anzeige
Suchen und ersetzen ohne Neuanfang bei Zeile 1
Stefan

Hallo liebes Froum,
ich habe eine Spalte mit Werten, ca. 200 Zeilen. Die Werte bestehen aus 3ziffrigen Zahlen (010,011,100,271...). Diese Zahlen sollen durch andere 3ziffrige Zahlen ersetzt werden (z.B. 010 durch 001, 011 durch 004, 100 durch 200, 271 durch 355,...). Nun habe ich das Proble...
03.03.2009 11:26:38
Thread-ID: 1055879
19 Beiträge
Suchen und ersetzen per Makro...?
Horst

Hey !
Ich möchte Tabellenblätter kopieren und während oder nach dem kopieren des Tabellenblattes im kopierten Tabellenblatt eine Volltextsuche mit Textersetzung durchführen.
Kann mir jemand dazu einen Tipp geben?
Und gibt es zur Suche/Ersetzen eine bessere Variant als die aus der Ma...
02.04.2009 11:43:43
Thread-ID: 1066267
3 Beiträge
Anzeige
suchen und ersetzen
Detlef

Hallo alle zusammen,
ich habe mehrere Arbeitsblätter in denen ich immer den Inhalt einer Spalte überprüfe. Dabei wird der jeweilige Inhalt der Zelle mit dem Inhalt eines KorrekturArbeitsblattes verglichen. Wird der Zellinhalt gefunden, wird er ersetzt.
Im Moment mache ich das mit folgen...
04.06.2009 14:35:31
Thread-ID: 1079155
5 Beiträge
Marko zum Suchen und Ersetzen von Listenbegriffen
Listenbegriffen

Hallo Forum!
Ich verzweifele gerade (seit 2 Tagen) an einem Makro, das irgendwie nicht laufen will. Dabei klang es eigentlich relativ einfach.
Also, ich habe diverse Tabellenblätter, von denen das eine z.B. „BA2“ und ein anderes „Datenbank“ heißt. In „BA2“ stehen in Spalte A ab Zeile 5...
08.09.2009 11:56:07
Thread-ID: 1101193
7 Beiträge
Werte teilweise suchen und ersetzen
Ahmadian

Hallo zusammen,
ich möchte mit einem VBA-Code im z.B. Tabelle 1, Range("A1:B100") alle darin befindlichen "TO" durch ein "D" ersetzen.
Z.B.
In Zellen stehen: 18:00 - 06:00 TO (durch ein "D" die kompletten Zelleninhalte ersetzen).
Leere Zellen sollen leer bleiben.
Für eine...
08.09.2009 14:45:06
Thread-ID: 1101262
5 Beiträge
Wert suchen und ersetzen
VBAmateur

Hallo an alle,
bin noch Neuling in VBA und hier im Forum, und hoffe ich mache nicht zuviel falsch.
Ich habe ein Problem das ich auch nach vielen Stunden probieren mit meinen mageren Kenntnissen nicht lösen konnte. Hoffentlich kann mir jemand helfen.
Ich habe 10 Spalten von denen 3 i...
13.09.2009 15:45:57
Thread-ID: 1102420
6 Beiträge
Anzeige
Suchen und Ersetzen mit Ergebinsliste
Horst

Hey!
Ich möchte gerne Das Suchen und Ersetzen im Excel per VBA nachimplementieren.
Ich habe dann den VBA-Recorder angeschissen und dan kam dieses heraus:
------------------------------------------------------------------------
Cells.Replace What:="ABC", Replacement:="def", LookA...
24.09.2009 09:33:51
Thread-ID: 1105113
3 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Anzeige