Live-Forum - Die aktuellen Beiträge
Datum
Titel
24.04.2024 20:38:58
Summe mit Bedingung, nur letzte Ergebnisse anzeigen
24.04.2024 19:29:30
Formel filter
24.04.2024 18:49:56
merge & select
24.04.2024 17:19:09
Formel mit Index-Funktion
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1632to1636
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1632to1636
1632to1636
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Wert finden und ersetzen

Wert finden und ersetzen
15.07.2018 09:58:07
Martin
Hallo,
ich versuche Texte aus einer bestimmten Spalte/Zeile ich die richtige zu bekommen.
Ich hab mal versucht es zu erklären und ein bild dazu findet ihr hier https://ibb.co/kus4j8.
IF in Spalte 2 (B) ZBS steht (Zeile 5) suche die Zeile in der Spalte 16 (J) mit der Nummer aus Spalte 1 (A) beginnt (Zeile 2) und Trage statt ZBS den wert aus Spalte 20 ein (Zeile 5).

6
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Wert finden und ersetzen
15.07.2018 18:59:15
AlterDresdner
Hallo Martin,
so sollte es gehen: 
Sub ZBS_Finden()
Dim erg As Range, zeile As Long
Dim zeilenr As Long, Nummer As String
With ActiveSheet
Set erg = .Range("B:B").Find(what:="ZBS", Lookat:=xlWhole)
If Not erg Is Nothing Then
Do
zeile = erg.Row
Nummer = .Cells(zeile, 1)
For zeilenr = 2 To .Cells(Rows.Count, 1).End(xlUp).Row
If InStr(1, .Cells(zeilenr, 10), Nummer) = 1 Then
.Cells(zeile, 2) = .Cells(zeilenr, 14)
Exit For
End If
Next zeilenr
Set erg = .Range("B:B").FindNext(erg)
Loop Until erg Is Nothing
End If
End With
End Sub

Gruß der (ebenfalls) Martin
Anzeige
AW: Wert finden und ersetzen
19.07.2018 18:15:46
Martin
Hi, schon mal vielen dank für den Code. In meinem Beispiel hat er wunderbar geklappt auch wenn ich nicht weiß wieso. Leider nicht in der richtigen Tabelle.
1. 
 If InStr(1, .Cells(zeilenr, 10), Nummer) = 1 Then

Wenn ich das richtig verstehe wird hier in Spalte 10 der Wert aus der Variable Nummer gesucht (Spalte 2 - Ende) aber die nummer steht doch in Spalte 16 oder hab ich da was falsch verstanden.
2. 
.Cells(zeile, 2) = .Cells(zeilenr, 14)

Hier wird die Celle kopiert. Wieso Spalte 14 und nicht 20?. Ich hab vergessen zusagen das ich _ den wert in Spalte 20 über einen Sverweis erhalte. Ich hab das mal so gelöst weiß aber nicht ob das richtig ist da ich noch ein Problem habe. 

.Cells(zeile, 2) = .Cells(zeilenr, 20).value
3.
Das andere Problem ist, das nicht sichergestellt ist das der Wert in der Tabelle ein zweites _ mal existiert. Und das macht aus 

Loop Until erg Is Nothing
eine endlos Schleife wenn ich das richtg verstehe.
Anzeige
AW: Wert finden und ersetzen
19.07.2018 21:56:27
AlterDresdner
Hallo Martin,
noch mal der Code mit etwas Kommentar.
Es ist unerheblich, welche Zahlen in Zeile 1 stehen, nur die Spalten sind entscheidend.
Falls die Zahlen in zeile 1 Deine richtigen Spalten darstellen sollten,
müsstest Du den Code entsprechend anpassen. Dass mit dem .Value ist korrekt.
Gruß der Martin 
Sub ZBS_Finden()
Dim erg As Range, zeile As Long
Dim zeilenr As Long, Nummer As String
With ActiveSheet
Set erg = .Range("B:B").Find(what:="ZBS", Lookat:=xlWhole, Searchdirection:=xlNext)
'erstes Suchen nach ZBS in Spalte B, beginnend in Zeile 1, abwärts
If Not erg Is Nothing Then 'wenn überhaupt vorhanden
Do
zeile = erg.Row
Nummer = .Cells(zeile, 1)
For zeilenr = 2 To .Cells(Rows.Count, 1).End(xlUp).Row
'Suche nach der Nummer in Spalte J (also 10)
If InStr(1, .Cells(zeilenr, 10), Nummer) = 1 Then
'Nummer gefunden
.Cells(zeile, 2) = .Cells(zeilenr, 14)
'aus Spalte N (also 14) Wert übernehmen
Exit For 'For zeilenr verlassen
End If
Next zeilenr
Set erg = .Range("B:B").FindNext(erg)
'Suche nach dem nächsten Auftreten von ZBS
'wenn nicht mehr da =>erg=Nothing
Loop Until erg Is Nothing
End If
End With
End Sub

Anzeige
AW: Wert finden und ersetzen
20.07.2018 20:16:30
Martin
Hi,
ich hab es jetzt soweit hinbekommen. Ich hatte in Spalte 16 ein führendes Leerzeichen das ich nicht wusste somit wurde das Ergebnis immer 2 und nicht 1 ;-) das habe ich jetzt mit LTrim behoben.
es werden jetzt die werte übertragen wenn die die Nummer jedoch nicht gefunden wird (Punkt 3 meiner vorherigen Nachricht) ist erg niemals Nothing und ich habe eine endlos Schleife. Ich habe ca 1000 Zeilen, kann man das nicht begrenzen wenn die Nummer in den 1000 Zeilen nicht gefunden wird? Meinetwegen indem man den wert in Spalte 2 von ZBS in ZBS not found ändert.
Hier ist der Code: 
Sub Test()
Dim erg As Range, zeile As Long
Dim zeilenr As Long, Nummer As String
With ActiveSheet
Set erg = .Range("B:B").Find(what:="ZBS", Lookat:=xlWhole)
If Not erg Is Nothing Then
Do
zeile = erg.Row
Nummer = .Cells(zeile, 1)
For zeilenr = 7 To .Cells(Rows.Count, 1).End(xlUp).Row
If InStr(1, LTrim(.Cells(zeilenr, 16)), Nummer) = 1 Then
.Cells(zeile, 2).Font.Color = RGB(255, 0, 0)
.Cells(zeile, 2) = .Cells(zeilenr, 20)
'MsgBox "Zeile: " & zeile & "     Nummer: " & Nummer & " " & vbLf & "Ergebnis:" &  _
vbLf & "Zeile: " & zeilenr & " " & vbLf & "Nummer: " & InStr(1, LTrim(.Cells(zeilenr, 16)), Nummer) & " " & vbLf & "Erg = " & erg
Exit For
End If
Next zeilenr
Set erg = .Range("B:B").FindNext(erg)
'MsgBox erg
Loop Until erg Is Nothing
End If
End With
End Sub

Anzeige
AW: Wert finden und ersetzen
20.07.2018 22:08:51
AlterDresdner
Hallo Martin,
das hatte ich nicht bedacht, also: 
Sub ZBS_Finden()
Dim erg As Range, zeile As Long
Dim zeilenr As Long, Nummer As String
With ActiveSheet
Set erg = .Range("B:B").Find(what:="ZBS", Lookat:=xlWhole, Searchdirection:=xlNext)
'erstes Suchen nach ZBS in Spalte B, beginnend in Zeile 1, abwärts
If Not erg Is Nothing Then 'wenn überhaupt vorhanden
Do
zeile = erg.Row
Nummer = .Cells(zeile, 1)
For zeilenr = 2 To .Cells(Rows.Count, 1).End(xlUp).Row
'Suche nach der Nummer in Spalte J (also 10)
If InStr(1, .Cells(zeilenr, 10), Nummer) = 1 Then
'Nummer gefunden
.Cells(zeile, 2) = .Cells(zeilenr, 14)
'aus Spalte N (also 14) Wert übernehmen
GoTo Naechste 'For zeilenr verlassen
End If
Next zeilenr
MsgBox "Nummer " & Nummer & " nicht gefunden, ZBS geändert", _
vbInformation, "Nummer nicht gefunden"
.Cells(zeile, 2) = "ZBS not found"
Naechste: Set erg = .Range("B:B").FindNext(erg)
'Suche nach dem nächsten Auftreten von ZBS
'wenn nicht mer da =>erg=Nothing
Loop Until erg Is Nothing
End If
End With
End Sub

Gruß der Martin
Anzeige
AW: Wert finden und ersetzen
21.07.2018 01:06:28
Martin
Hallo Martin und vielen vielen dank. jetzt funktioniert alles wunderbar.
Gruß Martin

301 Forumthreads zu ähnlichen Themen

Suchen und Ersetzen schnelleres Makro
Susi

Hallo liebe Excel-Freunde,
ich habe folgendes kleines Makro.
Sub Suchen_Ersetzen() out = "15200" 'zu ersetzender String in = "43900" 'einzufügender String For Each cell In Selection If cell.HasFormula = True Then cell.Formula = Application.WorksheetFunction.Substitute(cell.Formula, ou...
20.10.2008 12:19:00
Thread-ID: 1017624
17 Beiträge
Anzeige
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
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
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
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
Anzeige

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige
Archiv - Verwandte Themen
Forumthread
Beiträge
16
2
2
5
1
3
18
2
4
6
4
5
2
5
5
3
7
6
5
4
3
2
1
5
17