Live-Forum - Die aktuellen Beiträge
Datum
Titel
19.04.2024 12:58:59
Daten einfügen aus anderem Sheet
19.04.2024 12:23:24
Wenn-Formel anpassen
19.04.2024 12:09:19
Unique (Application.WorksheetFunction.Unique)
19.04.2024 11:51:37
Nächsten identischen Treffer suchen
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1144to1148
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
1144to1148
1144to1148
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

weitersuchen mit FindNext

weitersuchen mit FindNext
nico
Hallo habe folgendes problem an dem ich mir die zähne ausbeiße
ich habe eine userform als suchfunktion die auch soweit funktioniert. da in den tabellen aber die suche durchaus mehrere treffer erzielen kann benötige ich die funktion weitersuchen
für eure hilfe wäre ich dankbar da ich nicht weiß wo ich ansetzen soll
hier der code der suchfunktion
Private Sub CommandButton1_Click()
On Error GoTo errhdlr
Dim i As Integer
i = Sheets("Kostenauflistung").Cells.Find(TextBox1).Row
If TextBox1  "" Then
Label1 = Sheets("Kostenauflistung").Cells(i, 1)
Label2 = Sheets("Kostenauflistung").Cells(i, 1).Offset(0, 1)
Label3 = Sheets("Kostenauflistung").Cells(i, 1).Offset(0, 2)
Label8 = Sheets("Kostenauflistung").Cells(i, 1).Offset(0, 3)
Else
MsgBox "Keine Eingabe erfolgt..." & Chr(10) & "Bitte prüfen..."
End If
Exit Sub
errhdlr:
MsgBox "nichts gefunden..."
End Sub

besten dank für eure mühe im vorraus

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

Betreff
Benutzer
Anzeige
AW: weitersuchen mit FindNext
08.03.2010 21:16:29
Hajo_Zi
Hallo Nico,
Sub Find_mehrmals()
'* H. Ziplies                                    *
'* 24.11.08                                      *
'* erstellt von HajoZiplies@WEB.de              *
'* http://Hajo-Excel.de
Dim RaFound As Range
Dim FirstAddress As String
Dim Search As String
Dim LoLetzte As Long
Dim LoI As Long
Dim ByMldg As Byte
Search = Worksheets("Tabelle2").Range("A1")
With Worksheets("Tabelle1")
LoLetzte = IIf(IsEmpty(.Range("A65536")), .Range("A65536").End(xlUp).Row, 65536)
'   von Peter Haserodt
Set RaFound = .Range("A1:A" & LoLetzte).Find(Search, .Range("A" & LoLetzte), ,  _
xlWhole, , xlNext)
If RaFound Is Nothing Then Exit Sub  'falls nicht gefunden wird sub verlassen
If MsgBox("Gefunden in Zelle " & RaFound.Address(0, 0) & " ist dies richt richtige  _
Zelle !!!" _
, vbYesNo + vbQuestion, "Abfrage") = 6 Then
RaFound.Interior.ColorIndex = 3
Else
FirstAddress = RaFound.Address
Do
Set RaFound = .Range("A1:A" & LoLetzte).FindNext(RaFound)
If RaFound.Address = FirstAddress Then Exit Sub
If MsgBox("Gefunden in Zelle " & RaFound.Address(0, 0) & " ist dies richt  _
richtige Zelle !!!" _
, vbYesNo + vbQuestion, "Abfrage") = 6 Then
RaFound.Interior.ColorIndex = 3
Exit Do
End If
If RaFound.Row = LoLetzte Then Exit Do
LoI = LoI + 1
Loop
End If
End With
Set RaFound = Nothing
End Sub

Anzeige
AW: weitersuchen mit FindNext
09.03.2010 12:57:27
nico
Hallo
Besten dank für eure mühe aber es ist nicht genau das was ich suche. ich bräuchte nen 2 ten commandButten mit dem ich die funktion weitersuchen auslöse oder durch nochmaligen betätigen des commandbutten1 weitersuche. und da ich neuling im vba bin weiß ich nur das es mit findNext funktionieren soll aber ich habe keine ahnung wo ich in meiner funktion ansetzen soll. (leider)
Anzeige

Links zu Excel-Dialogen

TextBox UserForm

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige