Live-Forum - Die aktuellen Beiträge
Datum
Titel
20.04.2024 08:56:18
Textbox in Tabellenblatt ohne Bestätigung in Zelle eintragen
20.04.2024 07:57:54
Tablle fürs E-Auto - Preis wenn kürzer als 60 Min Ladezeit
20.04.2024 00:49:19
Excel Sheet in einen Excel Kalender einfügen
20.04.2024 00:08:11
In Ordner nur das Speichern von Dateien erlauben
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1560to1564
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
1560to1564
1560to1564
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

suchen und ersetzen

suchen und ersetzen
25.05.2017 18:25:26
Guesa
Hallo Forum
hier im Forum habe ich einen Code gefunden den ich in meiner Vereinsliste mit eingebaut habe.
Soweit läuft das ganze auch, zumindest bei Heirat, nur jetzt habe ich, aufgrund einer Scheidung :-) :-(, festgestellt, dass der Code wohl die zweite Suchangabe (Vorname) nicht berücksichtigt. Durch die Angaben im Formular soll wenn nötig in der Namensliste direkt eine entsprechende Änderung erfolgen. Könnte mir jemand helfen das dieses funktioniert. Lade mal eine kleine Beispieldatei mit hoch.
Schon mal vorab ein Dankeschön für eure Hilfe und noch einen schönen Vatertag
Gruß, Guesa
https://www.herber.de/bbs/user/113789.xlsm

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: suchen und ersetzen
26.05.2017 08:42:28
ChrisL
Hi
Die Suche müsstest du einschränken, weil sonst werden die Such-/Ersatzwerte in F1:G2 überschrieben. Folgend ein Code für Ersatz in Spalte B:C.
Sub t()
Dim strWhat1 As String, strWhat2 As String
Dim strRepl1 As String, strRepl2 As String
Dim rngFind As Range
Application.ScreenUpdating = False
With Worksheets("Namenliste")
If WorksheetFunction.CountBlank(.Range("F1:G2")) > 0 Then
MsgBox "nicht alle Felder gefüllt"
Exit Sub
End If
strWhat1 = .Range("F1")
strWhat2 = .Range("G1")
strRepl1 = .Range("F2")
strRepl2 = .Range("G2")
Set rngFind = .Range("B1")
Do While WorksheetFunction.CountIfs(.Columns(2), strWhat1, .Columns(3), strWhat2) > 0
Set rngFind = .Columns(2).Find(What:=strWhat1, After:=rngFind, LookIn:=xlFormulas, _
LookAt:=xlWhole, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
MatchCase:=False, SearchFormat:=False)
If rngFind.Offset(0, 1) = strWhat2 Then
rngFind = strRepl1
rngFind.Offset(0, 1) = strRepl2
End If
Loop
End With
End Sub

Übrigens, eine eindeutige Vereinsmitgliedernummer würde für solche Aufgaben helfen.
cu
Chris
Anzeige
AW: suchen und ersetzen
26.05.2017 09:13:28
Guesa
Hallo Chris
Danke für Deine Super Hilfe, klappt wunderbar. Ich sitze seit heute morgen wieder dran und suche nach einer Lösung. Hast mir jede Menge Zeit erspart. Mit der Mitgliedsnummer ist natürlich ein guter Tipp, wüsste jetzt aber auch nicht wie ich das umsetzen sollte, sooo lange beschäftige ich mich noch nicht mit VBA. Wenn du so nett wärst und natürlich die Zeit dafür hast könntest du mir vielleicht dafür einen Beispiel-Code nennen?
Gruß, Guesa
AW: suchen und ersetzen
26.05.2017 09:54:15
ChrisL
Hi
Danke für die Rückmeldung.
Eine Nummer hilft einfach bei der eindeutigen Identifizierung (könnte ja auch mal sein, dass zwei Leute zufällig den gleichen Namen haben z.B. Peter Müller).
Ein Codebeispiel kann ich nicht nennen, da ich die Anwendung und Vereinsstruktur nicht kenne. Zum Beispiel für eine Verwaltung der Vereinsbeiträge könnte ich mir vorstellen, dass es unterschiedliche Beiträge gibt für Einzelpersonen, Familien, Paare, Gönner (passiv Mitglieder). Also eine Liste mit Nummern und Ausprägungen z.B.
Nr. 1, Familie Müller, Ausprägung Familie, Beitrag 10, Status aktiv
Nr. 2, Peter Müller, Ausprägung Einzelperson, Beitrag 5, Status aktiv
Nr. 3, Ursi und Peter Müller, Ausprägung Paar, Beitrag 8, Status aktiv
usw.
Beispiel Mutation:
Nr. 1, Familie Müller, Ausprägung Familie, Beitrag 10, Status aktiv
Nr. 2, Peter Müller, Ausprägung Einzelperson, Beitrag 5, Status aktiv
Nr. 3, Ursi und Peter Müller, Ausprägung Paar, Beitrag 8, Status inaktiv
Nr. 4, Ursi Müller, Ausprägung Einzelperson, Beitrag 5, Status aktiv
Nr. 5, Peter Müller, Ausprägung Einzelperson, Beitrag 5, Status aktiv
Solche Listen kannst du dann mit anderen Listen abgleichen z.B. Kassenbuch. Dank der Schlüsselnummer entfällt die Suche über mehrere Spalten.
Die genaue Strukturierung hängt von der Verwendung ab.
cu
Chris
Anzeige
AW: suchen und ersetzen
26.05.2017 14:13:29
Guesa
Hallo Chris
Danke für die Anstubser, werde ich mir merken.
Gruß, Guesa

321 Forumthreads zu ähnlichen Themen

In Spalte nach Anzahl eines Begriffs suchen?
Lauren

Hall Leute!
ich will nach einem Begriff, in meinem Fall nach "SUMs" in der Spalte C suchen und wissen wie oft es in der Spalte vorkommt.
Bei Berechnungen funktioniert es mit ZÄHLENWENN ohne Probleme aber wie erhalte ich die "absolute" Zahl?
Vielen Dank für Eure Hilfe!
Grüße
...
19.08.2008 11:08:23
Thread-ID: 1002846
5 Beiträge
Anzeige
Häufigkeit einer Uhrzeit aus einer Spalte
wolfgang

Hallo Leute
Ich habe eine Spalte mit einer menge Uhrzeiten und möchte die Häufigkeit einer Uhrzeit ( wie oft ist eine eintrag vorhanden)zum Beispiel zwischen 08:00 und 17:00!! Ich weiß das für euch sicher ein leichtes ist jemanden wie mir zu helfen!
Schon jetzt besten Dank für eure Mühe...
02.09.2008 15:11:51
Thread-ID: 1006816
2 Beiträge
von Datum bis Datum suchen und Werte in die Spalte
Datum

Hallo liebe Excel-Könner,
ich habe folgendes Problem und finde keine Lösung.
Ich habe in Spalte A von 2006 bis heute Datum stehen, über eine UserForm möche ich in zwei TextBoxen von bis Datum eintragen und in Spalte B in diesem Bereich den WertX.
Ich hoffe Ihr könnt mir helfen!
...
07.09.2008 09:31:20
Thread-ID: 1007931
8 Beiträge
Anzeige
Berechnen von Werten in einer Spalte
Werten

Folgendes Problem:
In der Spalte A möchte ich wissen, wieviel unterschiedliche Werte es gibt.
Wer kann mir helfen.
Danke
Alex
05.10.2008 12:52:00
Thread-ID: 1014231
5 Beiträge
Filtern, gefilterte Daten benutzen, Suchen und Aus
Merle


Hallo alle zusammen,
ich habe ein mittelschweres Problem. Und zwar habe ich hier ein Beispiel:
https://www.herber.de/bbs/user/55986.xls
In 'Tabelle1' sind ganz viele verschiedene Waren (C17:57) hinterlegt. Ich möchte nun, wenn ich eine dieser Waren rausfilter z.B H025, dass da...
13.10.2008 15:48:00
Thread-ID: 1016087
3 Beiträge
Gleiche Eintäge in einer Spalte nacheinander finde
Malcolm_p

Hallo zusammen!
Wenn ich einen bestimmten Eintrag - per VBA - in einer Spalte finden möchte verwende ich der Regel den folgenden Code:
Dim NameSP As Range
Set NameSP = Sheets("Konten").Rows(1).Find( _
What:=Textbox1, _
Lookat:=xlWhole, _
LookIn:=xlValues)
Dim Erfdat...
15.10.2008 23:08:59
Thread-ID: 1016705
5 Beiträge
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
Doppelte Einträge in einer Spalte farbig markieren
Robert

Hallo,
ich hab eine Tabelle mit riesigem Datenbestand. Mein Problem ist nun, dass doppelte Eintrage, die in einer Spalte vorkommen, farbig markiert werden sollten - und das gleiche bei jeder weiteren Spalte mit Inhalt.
Sollten in einer Spalte doppelte Einträge vorhanden sein, müsste die...
27.10.2008 19:09:00
Thread-ID: 1019713
11 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
4
8
1
7
5
4
2
4
16
10
2
3
6
8
4
2
3
4
2
15
10
5
1
5
3