Live-Forum - Die aktuellen Beiträge
Datum
Titel
16.10.2025 00:15:51
Passwort im Herbersforum ändern
15.10.2025 16:22:17
Datum ist nicht Datum :(
15.10.2025 15:02:20
Blockpfeile mit Makro gehen nicht mehr nach freigabe
15.10.2025 13:51:13
VBA - Fortschrittsbalken unabhängig von Zellen
Keine passende Antwort im Forumarchiv gefunden?
Stelle deine Frage im Live-Forum
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
872to876
872to876
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Suche in Tabelle mit Datum

Forumthread: Suche in Tabelle mit Datum

Suche in Tabelle mit Datum
01.06.2007 22:47:51
Lenhard
Moin!
Ich komme nicht weiter und brauche Eure Hilfe. Ich hatte dieses Problem bereits vor kurzem hier vorgestellt, bin aber leider noch nicht weiter gekommen.
Der Grundtenor ist ist folgender Forum-Beitrag:
https://www.herber.de/forum/archiv/868to872/t869768.htm
Eine Basis-Datei zum Verständnis wäre (von Josef, hier im Forum):
https://www.herber.de/bbs/user/42480.xls
PROBLEM: Eine Suche findet Begriffe die aus Buchstaben und Zahlen bestehen. Aber wenn via einem Datum gesucht wird, geht's nicht mehr?
Das Suchwort oder Datum wird in eine TextBox eingegeben.
Kann mir jemand helfen? ...mein VBA-Verständnis ist noch zu bescheiden. Ich drehe mich im Kreis, bei meinen eigenen Überlegungen und "Versuchen"
Viele Grüße aus dem hohen Norden
Lenhard
PS ...das eine TextBox eigentlich nur mit Text in Verbindung zu bringen ist, weis ich. Ich weis aber auch, dass man das betreffende Format immer irgendwie auch über eine TextBox vermitteln kann... Nur hier komme ich wirklich nicht weiter.

Anzeige

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

Betreff
Datum
Anwender
Anzeige
AW: Suche in Tabelle mit Datum
01.06.2007 23:11:24
Horst
Hi,
zunächst mal musst du sicher stellen, dass die Eingabe ein gültiges Datum ist.
.Find(What:=CDate(Textbox1), LookIn:=xlFormulas)
mfg Horst

AW: Suche in Tabelle mit Datum
01.06.2007 23:29:00
Lenhard
JA WAHNSINN!! Horst! Ich habe folgendes gemacht:
Aus...
Set rng = Sheets("Tabelle1").Range("C6:K65536").Find(TextBoxSuchen01 & "*", LookIn:=xlValues, LookAt:=xlWhole)
...habe ich Versuchsweise Deinen Vorschlag so integriert...
Set rng = Sheets("Tabelle1").Range("C6:K65536").Find(What:=CDate(TextBoxSuchen01), LookIn:=xlFormulas) 'Suchen in Range "C6:K65536"
und nun wird ein Eintrag auch via Datum gefunden!!!!!
Aber wie könnte ich die Suche so gestalten, das via Datum, Text und Zahlen gefunden wird?
Aber erst mal: Vielen Dank!! ...ich habe schon seit Tagen darüber gegrübelt!! Und war der Lösung, wenn ich Deinen Vorschlag sehe, sehr nahe. Hat aber (..noch) nicht gereicht.
Gruß
Lenhard

Anzeige
AW: Suche in Tabelle mit Datum
01.06.2007 23:47:15
Horst
Hi,
so ungefähr?
If IsDate(TextBoxSuchen01) Then
Set rng = Sheets("Tabelle1").Range("C6:K65536").Find(What:=CDate(TextBoxSuchen01), LookIn:=xlFormulas)
Else
Set rng = Sheets("Tabelle1").Range("C6:K65536").Find(What:=TextBoxSuchen01, LookIn:=xlValues)
End If
mfg Horst

Anzeige
AW: Suche in Tabelle mit Datum
02.06.2007 00:09:00
Lenhard
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

Anzeige
AW: Suche in Tabelle mit Datum
03.06.2007 13:21:00
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
Anzeige
;

Forumthreads zu verwandten Themen

Liste mit verschiedenen Datumsformaten
Mike

Hi Ihr,
hoffe, Ihr könnt mir auch hierbei helfen... ? ;-)
Situation:
Ich erhalte momentan täglich eine Liste mit unterschiedlichen Zeit / Datumsformaten in Spalte E (aufgrund der Daten aus verschiedenen Ländern).
Die Liste enthält aktuell folgende Formate:
- MM/TT/JJJJ h...
19.04.2010 21:46:53
Thread-ID: 1152690
4 Beiträge
Einzeldaten aus Liste mit Anfangs- und Enddatum
Mathias

Hallo zusammen,
ich habe eine Liste mit mehreren Tausend Einträgen, bei denen jeweils ein Anfangs- und Enddatum vorliegt. Ich benötige nun eine neue Liste, in der jedes Datum einzeln ausgegeben wird. Am Besten ich beschreibe es mal anhand eines Beispiels:
Der Eintrag
Kunde A; 1.1.20...
04.05.2010 09:42:37
Thread-ID: 1155253
4 Beiträge
Anzeige
Daten in zweiter Tabelle mit Datum sichern
Fritz_W


Hallo Forumsbesucher,
per Makroaufzeichnung habe ich bisher Daten aus der 'Tabelle1' in die Tabelle 'Ergebnisse' übertragen (kopiert und unformatiert in Tabelle 'Ergebnisse' eingefügt).
Inhalt aus 'Tabelle1 O3' nach 'Ergebnisse B3'
Zellinhalt aus 'Tabelle B4:D19 ' nach 'Ergebni...
22.02.2012 06:50:10
Thread-ID: 1251789
29 Beiträge
Tabellenblatt per Makro in CSV mit Datum
Luca-Darius

Hallo, ein Tabellenblatt per Makro als CSV-Datei abzuspeichern habe ich noch hinbekommen. Ich möchte aber hinter dem Dateinamen noch das aktuelle Datum abspeichern und bekomme es leider nicht hin. Die richtige Syntax dafür fehlt mir leider!
Könnt ihr helfen - Danke!
21.01.2013 11:17:30
Thread-ID: 1295190
3 Beiträge
Anzeige
Tabelleblatt mit Datum
Kai

Hi,
ich habe mehrere Tabellenblätter (Mo, Di, Mi, Do, Fr, Sa, So), wo geplant wird. Wann, welches Fahrzeug wohin fährt.
In einem Tabellenblatt (Tarif (12.05.2015)) habe ich den Tarif stehen. Jetzt kann es sein das der Tarif sich in der Woche ändert.
Wie kann ich aus dem Tabellenblat...
13.05.2015 14:11:11
Thread-ID: 1426159
2 Beiträge
Topt 10 Liste mit Details nach wählbarem Datum
Stephan

Guten Tag,
ich bin mir sicher, dass es eine Lösung für mein Problem gibt.
Folgendes; ich habe eine Tabelle (siehe Anhang), die ein Teil einer riesen Erfassungsdatenbank ist.
Aufgrund derer möchte ich eine Grafik generieren, respektive zuerst eine Tabelle, die mir vom Datum heute das...
08.07.2015 14:12:03
Thread-ID: 1435285
8 Beiträge
Tabellenblatt kopieren mit weiterer Datumsfunktion
Stefan

Hallo!
Ich habe folgendes Problem.
Ich habe eine Tabelle diese soll 52 Tabellenblätter haben mit KW1 und KW2 usw.
Das hätte ich bereits durch ein Makro gelöst und funktioniert super. KW steht für _ Kalenderwoche Sub KW() Dim i For i = 2 To 53 Sheets(1).Copy After:=Sheets(Sheets....
11.10.2015 23:16:17
Thread-ID: 1451803
3 Beiträge
Tabellenblatt kopieren mit weiterer Datumsfunktion
Stefan

Hallo!
Ich habe bereits einen Beitrag geschrieben, aber auf diesen kann ich leider nicht mehr antworten siehe Link darunter und ich hoffe es kann mir die Funktion jemand noch weiter anpassen.
https://www.herber.de/forum/archiv/1448to1452/t1451803.htm
Das Problem ist das es von Sepp...
18.10.2015 15:28:16
Thread-ID: 1452909
7 Beiträge
Änderungsdatum zusätzlich mit auflisten...
Florian

Hi Zusammen,
folgendes Problem:
Ich habe hier ein Makro, das mir aus dem Ordner ("Z:\ablage\AV\....") alle Namen der Excel Dateien und der jeweiligen Arbeitsblätter auflistet. Jetzt würde ich aber gerne das Makro so erweitern, das es mir noch zusätzlich das letzte Änderungsdatum der Exc...
12.01.2017 16:54:27
Thread-ID: 1534707
5 Beiträge
indirekt Zugriff auf Tabellen mit Datum
olga

Hallo,
ich habe Tabellen mit Datum angelegt.
z.B. 14.11.2016; 15.11.2016
Wie kann ich auf die einzelen Tabellen zugreifen?
=INDIREKT("'"&A$3&"'!B1") Fehler, Bezug
https://www.herber.de/bbs/user/111395.xlsm
Danke!
Gruß
Olga
12.02.2017 12:20:11
Thread-ID: 1540962
3 Beiträge
Tabelle mit festen Namen+Speicherdatum abspeichern
Andi


Hallo, habe ein kleines Problem mit dem Code. Wollte ihn erweitern, so das noch ein weiteres Sheets zusätzlich mit dem Speicherdatum als .xlsx gleich mit in dem ausgewählten Ordner gespeichert wird. Das Blatt befindet sich mit in der geöffneten Arbeitsmappe.
Sub Speichern_in_PDF_XLSX...
14.03.2017 20:59:29
Thread-ID: 1547436
2 Beiträge
Anzeige
ListenFeld mit Datum, Userform aktualisieren
Lea

Hi ,
ich habe ein Problem: bei Auswahl des Listenfeldes mit Datum füllen sich die Textboxen korrekt, aber die USERFORM aktualisiert sich nicht bei erneuten Datumsauswahl, so dass "alte", vorangegangene Daten sichtbar bleiben. Bei Speichern ist es dann fatal....
Ich möchte alserreiche...
13.10.2017 10:48:45
Thread-ID: 1585690
3 Beiträge
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken
Anzeige

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
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