Live-Forum - Die aktuellen Beiträge
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Gefundene Werte in Zeile 20 anzeigen

Forumthread: Gefundene Werte in Zeile 20 anzeigen

Gefundene Werte in Zeile 20 anzeigen
25.02.2004 09:49:33
Helga
Hallo und einen schönen guten Morgen!
Ich lasse über eine TextBox, die sich in einer UF befindet, eine Tabelle1 nach den eingegebenen Wert suchen.
Die suche beginnt in Zeile A30 bis F150 , nun möchte ich die gefundene Zeile
z.Bsp. Zeile 40 wurde der Wert gefunden, in der Zeile 20 anzeigen lassen.
Kann mir jemand bei dem Problem behilflich sein ?
Gruss Helga
Anzeige

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

Betreff
Datum
Anwender
Anzeige
AW: Gefundene Werte in Zeile 20 anzeigen
25.02.2004 12:24:09
Ulf
Wo ist der Code der Suchroutine?
Ulf
AW: Gefundene Werte in Zeile 20 anzeigen
25.02.2004 12:40:39
Helga
Sorry Ulf, den hatte ich total vergessen,
habe noch eine Zusatzfrage kann man auch den Code so ändern das es möglich ist nach dem finden , eine Routine einzubauen " Weiter suchen ".
Gruss Helga ( bin erst heute Abend wieder online )

Private Sub CommandButton1_Click()
Dim wks As String, fStr As String
Dim i As Integer
Dim myC As Range
wks = "Tabelle1"
fStr = Me.TextBox1
For Each myC In Worksheets(wks).Range("A30:C130")
If myC = fStr Then
MsgBox fStr & "  Gefunden"
Exit Sub
End If
Next
MsgBox fStr & " wurde nicht gefunden"
End Sub

Anzeige
AW: Gefundene Werte in Zeile 20 anzeigen
25.02.2004 13:33:24
Ulf
Option Explicit

Sub CommandButton1_Click()
Dim wks As String, fStr As String, msg As Integer, bolFound As Boolean, myC As Range
wks = "Tabelle1"
fStr = Me.TextBox1
For Each myC In Worksheets(wks).Range("A30:C130")
If myC = fStr Then
bolFound = True
msg = MsgBox(fStr & "  Gefunden in " & myC.Address(0, 0) & " weitersuchen? ", 36, "wills wissen...")
[a20] = fStr
If msg = vbNo Then Exit Sub
End If
Next
If Not bolFound Then MsgBox fStr & " wurde nicht gefunden!"
End Sub

Ulf
Anzeige
AW: Danke Dir Ulf für deine Hilfe o.T.
25.02.2004 22:43:50
Helga
:-)
;

Forumthreads zu verwandten Themen

Anzeige
Anzeige
Anzeige
Anzeige
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige