Suche in Tabelle mit Datum

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Danke Horst! ..."Debuggen" meckert mich aber immer wieder an.
Darf ich Dir hier noch mal den gesamten Code vorstellen:


Private Sub CBSuchen_Click()
Dim rng As Range, rngU As Range
Dim sFirst As String
Dim lngI As Long
With ListBoxErgebnisse01
.ColumnWidths = "35;50;35;65;70;55;180;50;30;30;30;30;30;30;30"
With TextBoxSuchen01
If .Text = "" Or .Text = "" Then
MsgBox "Bitte geben Sie ein Suchwort ein!", 64, "Bitte ein Suchwort eingeben!"
.SetFocus
End If
End With
If Len(TextBoxSuchen01) > 0 Then
Set rng = Sheets("Tabelle1").Range("C6:K65536").Find(TextBoxSuchen01 & "*", LookIn:= _
xlValues, LookAt:=xlWhole)      '###Suchen in Range "C6:K65536"###
If Not rng Is Nothing Then
sFirst = rng.Address
Do
If rngU Is Nothing Then
Set rngU = rng.EntireRow
Else
Set rngU = Union(rngU, rng.EntireRow)
End If
Set rng = Sheets("Tabelle1").Range("C6:K65536").FindNext(rng)
Loop While Not rng Is Nothing And sFirst  rng.Address
Else
MsgBox "Suche ohne Ergebnis abgeschlossen!", 64, "Kein Treffer!"
.SetFocus
End If
End If
End With
If Not rngU Is Nothing Then
Sheets("Hidden").Range("A2:P65536").ClearContents
rngU.Copy Sheets("Hidden").Range("A2")
ListBoxErgebnisse01.RowSource = "Hidden!B2:P" & Sheets("Hidden").Cells(Rows.Count, 2).End(  _
_
xlUp).Row
End If
End Sub

###Suchen in Range "C6:K65536"### ...ist die entscheidende Zeile.
Danke! ...und viele Grüße!
Lenhard

Moin noch mal!!
Ich habe mittlerweile eine Lösung gefunden.
1. In meinem ursprüngliches Skript konnte ich die Suchen-Funktion nach Datum und Text mit einer TextBox (TextBox1) irgendwie nicht zusammen kriegen.
2. Ich habe dann einfach dieses Skript "gedoppelt" und daraus zwei normale "Privat Sub-Makros" im UserForm gemacht. Das eine sucht nach Text (und Zahlen), das andere nach einem Datum.
3. In das UserForm eine ausgeblendete TextBox2 integriert, welche automatisch TextBox1 kopiert, wenn in TextBox1 ein Datum steht. Und diese TextBox2 ist für das Makro2 (Datumssuche) zuständig.
4. Der auslösende CommandButton prüft nun, ob in TextBox1 Text oder Datum steht und ordnet es entsprechend Makro1 oder Makro2 zu.
Thats it! ...und ich bin mir sicher, dass hier im Forum nun viele sitzen, die einfach nur Schmunzeln, weil sie das Problem mit weniger Aufwand gelöst hätten!!
Warum schreibe ich das hier? Damit anderen, die ähnliche Schwierigkeiten haben evtl. so auch geholfen wird! ...oder irgend einer schrieb mal hier im Forum: Das Forum lebt von den Antworten die Lösungen bringen!!
In diesem Sinne!
Gruß
Lenhard

Beliebteste Forumthreads (12 Monate)

5
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

41 Forumthreads zu ähnlichen Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Suche in Tabelle mit Datum

5 Beiträge zum Forumthread Beiträge zu diesem Forumthread

41 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

5
Beiträge zum Forumthread

Beiträge zu diesem Forumthread