Live-Forum - Die aktuellen Beiträge
Datum
Titel
26.04.2024 12:46:38
Nutzereingaben Speichern und Laden
26.04.2024 11:49:48
VAB und Bedingte Formatierung nimmt die Farbe im Makro nicht
26.04.2024 11:38:46
Acrobat PDF Formularfelder mit Excel ausfüllen
26.04.2024 11:23:04
zählen wenn - aber nur die selektierten Zeilen
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1524to1528
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
1524to1528
1524to1528
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Suchen und Ersetzen ein Bereich mehrere Begriffe

Suchen und Ersetzen ein Bereich mehrere Begriffe
14.11.2016 08:51:40
Torsten
Hallo,
Ich habe in meiner Excel Tabelle einen Bereich z.b. W3 bis AC34,
in jedem dieser Zellen steht entweder yes oder no.
Num möchte ich in meinem VBA Code wenn jemand versehentlich dort ein "j", "ja" oder nur ein "y" einträgt dies automatisch in ein "yes" ändern.
Das gleiche bei "n" oder nein", dort soll es in ein "no" geändert werden.
Ich bin mir auch nicht sicher inwieweit die unterschiedlichen Schreibweisen von "nein" (NeIN, neIn, NEin) ein Rolle spielen können.
Es gibt in dieser Tabelle auch noch Bereiche in denen ich es genau andersherum ändern muß, deshalb kam ich ja auf die Idee das zu prüfen
Hat da jemand eine Ide für mich?
Ich habe zwar Grundkenntnisse in VBA allerdings hier scheitere ich, habe keine vernüftige Lösung bislang gefunden.
Vielen Dank im vorraus.

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

Betreff
Datum
Anwender
Anzeige
AW: Suchen und Ersetzen ein Bereich mehrere Begriffe
14.11.2016 09:05:55
ransi
Hallo,
Schau mal ob du dies brauchen kannst:
' **********************************************************************
' Modul: Tabelle1 Typ: Element der Mappe(Sheet, Workbook, ...)
' **********************************************************************

Option Explicit

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim zelle As Range
    Dim bolappEvnts
    On Error GoTo errorhandler
    bolappEvnts = Application.EnableEvents
    Application.EnableEvents = False
    For Each zelle In Intersect(Target, Range("W3:AC34"))
        Select Case LCase(zelle.Value)
            Case "j", "ja", "y"
                zelle.Value = "yes"
            Case "n", "nein"
                zelle.Value = "no"
        End Select
    Next
    errorhandler:
    Application.EnableEvents = bolappEvnts
End Sub


ransi
Anzeige
AW: Suchen und Ersetzen ein Bereich mehrere Begriffe
14.11.2016 09:07:42
Werner
Hallo Torsten,
warum verhinderst du nicht einfach Fehleingaben? Dann sparst du dir die nachträgliche Überprüfung ob richtige Eingaben gemacht wurden, bzw. die Änderung der Fehleingaben.
Ich würde da eine Gültigkeitsprüfung auf den entsprechenden Bereich legen.
Bereich markieren - Daten - Datenüberprüfung - Zulassen: Liste - Quelle: yes;no
Dann kannst du noch eine Eingabemeldung anlegen: Wird angezeigt wenn eine Zelle des Bereiches ausgewählt wird
Und eine entsprechende Fehlermeldung bei Flascheintrag kannst du auch noch anlegen.
Gruß Werner
AW: Suchen und Ersetzen ein Bereich mehrere Begriffe
14.11.2016 11:25:14
Torsten
Hallo ransi,
erst einmal vielen Dank für den Denkanstoß.
Ich brauche das jedoch nicht als Change Ereignis sonder in meinem bestehenden VBA Code (Modul) soll die Prüfung passieren.
Jetzt versuche ich diesen Teil:
For Each zelle In Intersect(Target, Range("W3:AC34"))
Select Case LCase(zelle.Value)
so umzubauen das er auch alle Zeilen durchsucht, bislang ohne Erfolg :-))
Den Bereich habe ich vorher definiert:
Dim rngzellenJN, rngBereichJN As Range
Dim bolappEvnts
Dim lonZeileJN As Long
lonZeileJN = ActiveSheet.Cells(Rows.Count, 1).End(xlUp).Row
Set rngBereichJN = Range("W3:AC" & lonZeileJN)
On Error GoTo errorhandler
bolappEvnts = Application.EnableEvents
Application.EnableEvents = False
For Each rngzellenJN In rngBereichJN(Range(rngBereichJN))
Select Case LCase(rngzellenJN.Value)
Case "j", "ja", "y"
rngzellenJN.Value = "yes"
Case "n", "nein"
rngzellenJN.Value = "no"
End Select
Next
errorhandler:
Application.EnableEvents = bolappEvnts
Anzeige
AW: Suchen und Ersetzen ein Bereich mehrere Begriffe
14.11.2016 11:34:54
Torsten
Ich glaube das ich es gefunden habe, Danke:
Dim rngzellenJN, rngBereichJN As Range
Dim bolappEvnts
Dim lonZeileJN As Long
lonZeileJN = ActiveSheet.Cells(Rows.Count, 1).End(xlUp).Row
Set rngBereichJN = Range("W3:AC" & lonZeileJN)
On Error GoTo errorhandler
bolappEvnts = Application.EnableEvents
Application.EnableEvents = False
For Each rngzellenJN In rngBereichJN
Select Case LCase(rngzellenJN.Value)
Case "j", "ja", "y"
rngzellenJN.Value = "yes"
Case "n", "nein"
rngzellenJN.Value = "no"
End Select
Next
errorhandler:
Application.EnableEvents = bolappEvnts
Anzeige

23 Forumthreads zu ähnlichen Themen

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
Zwischenablage nach mehrere Begriffe durchsuchen
Mexsalem

Hallo,
ich hab da mal wieder ein Problem....
Vom Anwender wird aus einer anderen Anwendung etwas markiert und per STRG+C in die Zwischenablage kopiert. Es handelt sich um Text und Zahlenreihen.
Ich möchte vor dem Einfügen in Excel sicherstellen, dass der Inhalt der Zwischenablage be...
08.11.2012 15:44:22
Thread-ID: 1285886
5 Beiträge
Suchen und ersetzen mit Werten aus Tabelle
Marc

Hallo,
ich möchte gerne Tabellenspalten mit Suchen und ersetzen bearbeiten. Dafür habe ich mir ein Makro aufgezeichnet:
Sheets("Kopiervorlage").Select
Columns("A:A").Select
Selection.Replace What:="XXXX", Replacement:="YYYY", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCas...
06.06.2013 15:10:01
Thread-ID: 1316560
5 Beiträge
Anzeige
"Suchen und ersetzen" nur in Werten
Manni
Hallo,
in der Suchfunktion kann man in den Optionen einstellen, ob man in Werten oder in Formeln suchen will.
Bei "Suchen und ersetzen" finde ich diese Option aber nicht mehr. Dort kann man nur "in Formeln" einstellen.
Hintergrund:
Ich will in VBA in einem Blatt alle Zeichen "&" dur...
11.02.2016 09:35:16
Thread-ID: 1474673
3 Beiträge
VBA Mehrere Werte ersetzen
Sarah

Hallo,
ich habe zwei Tabellen, wobei ich bei einer Werte durch Inhalt der zweiten Tabelle ersetzen möchte. Aber erstmal zum Aufbau..
Die Zeilen von Tabelle 1 sehen wie folgt aus:
Person A ; Person B ; Person C
Person D ; Person A ; Person E
Person B ; Person E ; Person F
...
17.08.2016 14:22:56
Thread-ID: 1509785
2 Beiträge
Mehrere Wörter suchen und Zeile löschen
Sabrina

Hallo zusammen,
ich habe in der Spalte G Codierungen stehen. Jetzt möchte ich Zeilen löschen, in denen eines der zu suchenden WÖRTER drinsteht.
Ich habe auch schon ansatzweise das richtige Makro gefunden, aber es sucht nur nach einem Wort:
Code: Alles auswählen
Sub Unnoetige_Ze...
21.10.2016 16:14:18
Thread-ID: 1521088
5 Beiträge
Mehrere Werte aus 2 Tabellen suchen und ersetzen
Paul Ottenjann

Hallo Excel-Experten,benötige als Excel-Neuling dringend Hilfe zu folgendem Problem:Ich habe in einer Excel-Datei 2 Tabellenblätter ("Bestandsdaten" und "Trägerschlüssel").
Auf der Tabelle "Bestandsdaten" sind 1300 Zeilen mit unterschiedlichen Spalten, unter anderem mit der Spalte "W"
(T...
26.08.2002 11:19:38
Thread-ID: 152658
2 Beiträge
Nach mehreren Wörtern suchen / WENN ISTFEHLER
Sven

Hallo zusammen,
ich habe in einer Spalte verschiedene Firmennamen und private Namen stehen.
Nun möchte ich herausfinden in welcher Spalte z.B. GmbH, GbR oder KG enthalten ist.
Mittels
=WENN(ISTFEHLER(FINDEN("GmbH";A1));"Falsch";"Wahr")
konnte ich dieses schon ganz gut lösen...
09.06.2018 10:44:47
Thread-ID: 1628031
4 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
6
4
4
4
3
2
1
4
1
3
6
3
8
3
1
2
2
1
3
3
3
5
12