Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
508to512
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
508to512
508to512
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
nach Teiltexten suchen AUSSCHALTEN im Makro
28.10.2004 14:48:29
Claudia
Hallo liebe Helfer,
ich habe mal vor einiger Zeit hier ein Makro gefunden, welches für meine Bedürfnisse sehr gut war. Aber leider habe ich nicht bedacht, dass auch nach Teiltexten gesucht wird.
Kann mir jemand helfen, dass das Programm nur nach den tatsächlichen Eingaben sucht und in Spalte P das erforderliche „Z“ macht?
Wenn in meiner Tabelle in Spalte A z.B. folgende Nummern stehen
3990
1990
2990
990
und ich aber nur die Nr. 990 mit einem Z versehen möchte, so macht das Programm zur Zeit überall ein „Z“ wo ein Textteil mit 990 vorkommt.
Für mich ist es sehr wichtig nur bei der tatsächlichen Zahl oder dem Text ein „Z“ zu bekommen.
Wer kann mir helfen, denn meine Kenntnisse in VBA lassen arg zu wünschen übrig.

Die Datei https://www.herber.de/bbs/user/12745.xls wurde aus Datenschutzgründen gelöscht

Vielen Dank im Voraus
Gruß
Claudia

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: nach Teiltexten suchen AUSSCHALTEN im Makro
Reinhard
Hi Claudia,
probiers mal so:
Option Explicit

Sub Manuell_Historie()
Call Erste_Leerzelle
Call TextSuchen
End Sub


Sub Erste_Leerzelle()
Dim zeile As Long
zeile = Sheets("Archiv").Cells(65536, 1).End(xlUp).Row 'letzte volle Zelle in A
If zeile = 1 And Sheets("Archiv").Cells(1, 1) = "" Then zeile = 0
Sheets("Archiv").Cells(zeile + 1, 1).Value = "Historie:"
End Sub


Sub TextSuchen()
Dim lstrText As String, lrZelle As Range, n As Long
lstrText = InputBox("Geben Sie bitte den zu suchenden Text ein." & "............")
If lstrText = "" Then Exit Sub
For n = 1 To Sheets("Archiv").Cells(65536, 1).End(xlUp).Row
Sheets("Archiv").Cells(n, 15).Value = ""
If Sheets("Archiv").Cells(n, 1) = lstrText Then Sheets("Archiv").Cells(n, 15) = "Z"
Next n
End Sub

Gruß
Reinhard
Anzeige
AW: nach Teiltexten suchen AUSSCHALTEN im Makro
Josef
Hallo Claudia!
Schau mal.
https://www.herber.de/bbs/user/12746.xls
Du kannst jetzt zur Suche übrigens auch Wildcards verwenden (z.B. "39*" such nach allen Strings die mit 39 beginnen).
Gruß Sepp
Danke Euch zwei
28.10.2004 15:25:51
Claudia
Hallo Reinhard,
hallo Josef,
vielen Dank für Eure Mühen und Hilfe. Beide Ergebnisse sind super.
Ihr habt mir sehr geholfen.
Gruß
Claudia

310 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige