Live-Forum - Die aktuellen Beiträge
Datum
Titel
15.04.2024 23:32:21
Darstellung im IMAGE sehr schlecht
15.04.2024 21:08:34
PDF mit Makro erstellen mehrere Sheets
15.04.2024 18:38:39
Arbeitszeiten Vorlage ergänzen
15.04.2024 17:34:30
Fehlende Zeilen automatisch nach Zeiten ergänzen
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
900to904
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
900to904
900to904
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Datum suchen mit VBA

Datum suchen mit VBA
02.09.2007 14:58:00
Anna
Hallo,
hier ein weiteres Problem:
ich habe eine UF erstellt, in der man den Namen des Mitarbeiters eintragen kann, der in der Tabelle dann gesucht und markiert wird. Das klappt auch wunderbar.
Nun wollte ich das selbe für ein Datum machen, welches in den Zellen A1:XX1 steht.
Diese Zellen ind als Datum formatiert.
Leider gibt er mir jedesmal die Meldung "Datum nicht gefunden"
Was habe ich falsch gemacht?
Hier ein mal der Quellcode
Dim zelles As Range
Dim bereichs As Range
Dim datum As String
datum = TextBox1.Text
Set bereichs = Sheets("Urlaubstage").Range("A1:E1")
bereichs.Select
Set zelles = bereichs.Find(datum, lookat:=xlWhole, LookIn:=xlValues)
If zelles Is Nothing Then
MsgBox "Datum nicht gefunden"
Else
MsgBox "Datum befindt sich in Zelle" & zelles.Address
End If
Vielen lieben Dank für Eure Hilfe
Anna

13
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Datum suchen mit VBA
02.09.2007 15:02:00
Knut
Versuchs mal so:
Dim zelles As Range
Dim bereichs As Range
Dim datum As Date
datum = TextBox1.Text
Set bereichs = Sheets("Urlaubstage").Range("A1:E1")
Set zelles = bereichs.Find(what:=datum, lookat:=xlWhole, LookIn:=xlValues)
If zelles Is Nothing Then
MsgBox "Datum nicht gefunden"
Else
MsgBox "Datum befindt sich in Zelle" & zelles.Address
End If

AW: Datum suchen mit VBA
02.09.2007 21:13:55
Anna
Vielen Dank,
aber leider gibt er mir wieder die Meldung "Datum nicht gefunden".................... :-(
Wenn ich an dieser Stelle ein Break setze und mit F8 weiterlaufe ist zelles nothing, also leer. Woran kann das liegen?
LG
Anna

Anzeige
AW: Datum suchen mit VBA
02.09.2007 22:02:18
Thomas
Hallo Anna
Das liegt meiner Meinung nach am Datumsformat.
ich denke Du musst den Wert aus Deiner Textbox (Text) in ein Datum umwandeln, und zwar genau das Format in den Zellen die Du untersuchen willst.
Zum Beispiel: datum=CDate(FormatDateTime(datum, vbShortDate)) ... entspricht 02.09.2007 ... usw. siehe Hilfe
Gruß Thomas

AW: Datum suchen mit VBA
02.09.2007 22:03:00
Knut
Ich habs nicht ausprobiert. Ich schaetze dein Problem ist folgendes : du hast in der Textbox ein Datum stehen. In der Zelle steht das Datum aber intern als Zahl - zum Beispiel: 3395. nun musst du zunaechst Textbox.value nach Datumsformat bringen, also damit das System weiß, dass du Datum suchst.
Schau Dir mal folgende Befehle an:
CDate, Format, Dateserial
Versuchs mal mit textbox1.value
zelles ist nothing weil nichts gfunden wurde ;-)
Leider hab ich jetzt keine Zeit mehr.
Gruß,
Knut

Anzeige
AW: Datum suchen mit VBA
02.09.2007 22:08:27
Josef
Hallo Anna,
wenn in der ersten Zeile ein "richtiges" Datum steht, dann funktioniert der Code.
Private Sub CommandButton1_Click()
Dim zelles As Range
Dim bereichs As Range
Dim datum As Date

datum = TextBox1.Text

Set bereichs = Sheets("Urlaubstage").Range("A1:E1")

Set zelles = bereichs.Find(what:=datum, lookat:=xlWhole, LookIn:=xlValues)

If zelles Is Nothing Then
    MsgBox "Datum nicht gefunden"
Else
    MsgBox "Datum befindt sich in Zelle" & zelles.Address
End If

End Sub

Gruß Sepp

Anzeige
AW: Datum suchen mit VBA
02.09.2007 22:37:00
Anna
Juhu...............
Es funktioniert. Ihr seit unbezahlbar.......................................
Vielen Dank
LG Anna

AW: Datum suchen mit VBA
02.09.2007 23:01:36
Anna
Oh, das nächste Problem.
Ich habe die den selben Suchlauf auch für die Mitarbeiter gemacht:
Mitarbeiter befindet sich in B12 und Datum in C1 (zum Beispiel)
Jetzt hatte ich die "super" Idee, dass das Programm sich die Zellen merkt und in die Schnittstelle der beiden "Urlaub" einträgt.
Geht das überhaupt?
LG Anna

AW: Datum suchen mit VBA
02.09.2007 23:04:52
Josef
Hallo Anna,
ja, das geht.
die Schnittstelle ergibt sich aus der Zeile des gefundenen Mitarbeiter und der Spalte des gefundenem Datums.

cells(Zeile, Spalte)= "Urlaub"


Es währe aber einfacher wenn du deinen gesamten Code posten würdest.

Gruß Sepp

Anzeige
AW: Datum suchen mit VBA
02.09.2007 23:27:30
Anna
Hallo Sepp,
leider funktioniert es nicht.... Er sagt dann immer typen unverträglich
Hier der gesamte Code

Private Sub CommandButton1_Click()
Dim zelle As Range
Dim bereich As Range
Dim begriff As String
Dim ZEILE As Range
Dim SPALTE As Range
Dim zelles As Range
Dim bereichs As Range
Dim datum As Date
begriff = ComboBox1.Text
If begriff = "" Then MsgBox " Bitte Mitarbeiter auswählen"
Set bereich = Sheets("Urlaubstage").Range("B3:B16")
Set zelle = bereich.Find(begriff, lookat:=xlWhole, LookIn:=xlValues)
If zelle Is Nothing Then
MsgBox "Mitarbeiter nicht gefunden"
Else
MsgBox "Mitarbeiter befindt sich in Zelle" & zelle.Address
End If
zelle.Select
datum = TextBox1.Value
datum = CDate(FormatDateTime(datum, vbShortDate))
Set bereichs = Sheets("Urlaubstage").Range("A1:AB1")
Set zelles = bereichs.Find(what:=datum, lookat:=xlWhole, LookIn:=xlValues)
If zelles Is Nothing Then
MsgBox "Datum nicht gefunden"
Else
MsgBox "Datum befindt sich in Zelle" & zelles.Address
End If
Cells(zelle, zelles) = "u"


Vielen Dank
LG Anna

Anzeige
AW: Datum suchen mit VBA
03.09.2007 06:38:00
Anna
Hallo Sepp,
leider funktioniert es nicht.... Er sagt dann immer typen unverträglich
Hier der gesamte Code

Private Sub CommandButton1_Click()
Dim zelle As Range
Dim bereich As Range
Dim begriff As String
Dim ZEILE As Range
Dim SPALTE As Range
Dim zelles As Range
Dim bereichs As Range
Dim datum As Date
begriff = ComboBox1.Text
If begriff = "" Then MsgBox " Bitte Mitarbeiter auswählen"
Set bereich = Sheets("Urlaubstage").Range("B3:B16")
Set zelle = bereich.Find(begriff, lookat:=xlWhole, LookIn:=xlValues)
If zelle Is Nothing Then
MsgBox "Mitarbeiter nicht gefunden"
Else
MsgBox "Mitarbeiter befindt sich in Zelle" & zelle.Address
End If
zelle.Select
datum = TextBox1.Value
datum = CDate(FormatDateTime(datum, vbShortDate))
Set bereichs = Sheets("Urlaubstage").Range("A1:AB1")
Set zelles = bereichs.Find(what:=datum, lookat:=xlWhole, LookIn:=xlValues)
If zelles Is Nothing Then
MsgBox "Datum nicht gefunden"
Else
MsgBox "Datum befindt sich in Zelle" & zelles.Address
End If
Cells(zelle, zelles) = "u"


Vielen Dank
LG Anna

Anzeige
AW: Datum suchen mit VBA
03.09.2007 07:47:38
Wuxinese
Hallo Anna,
probier mal den folgenden Code:

Private Sub CommandButton1_Click()
Dim zelle As Range
Dim bereich As Range
Dim begriff As String
Dim ZEILE As Double
Dim SPALTE As Double
Dim zelles As Range
Dim bereichs As Range
Dim datum As Date
begriff = ComboBox1.Text
If begriff = "" Then MsgBox " Bitte Mitarbeiter auswählen"
Set bereich = Sheets("Urlaubstage").Range("B3:B16")
Set zelle = bereich.Find(begriff, lookat:=xlWhole, LookIn:=xlValues)
If zelle Is Nothing Then
MsgBox "Mitarbeiter nicht gefunden"
exit sub
Else
MsgBox "Mitarbeiter befindt sich in Zelle" & zelle.Address
ZEILE = zelle.row
End If
zelle.Select
datum = TextBox1.Value
datum = CDate(FormatDateTime(datum, vbShortDate))
Set bereichs = Sheets("Urlaubstage").Range("A1:AB1")
Set zelles = bereichs.Find(what:=datum, lookat:=xlWhole, LookIn:=xlValues)
If zelles Is Nothing Then
MsgBox "Datum nicht gefunden"
exit sub
Else
MsgBox "Datum befindt sich in Zelle" & zelles.Address
SPALTE = zelles.column
End If
Cells(ZEILE, SPALTE) = "u"


Ich hoffe, ich hab da nix durcheinandergebracht, sollte so aber funktionieren...
Gruss
Rainer

Anzeige
AW: Datum suchen mit VBA
03.09.2007 10:21:52
Anna
Juhu,
Super, es funktioniert............
Vielen Dank

AW: Datum suchen mit VBA
02.09.2007 23:02:14
Anna
Oh, das nächste Problem.
Ich habe die den selben Suchlauf auch für die Mitarbeiter gemacht:
Mitarbeiter befindet sich in B12 und Datum in C1 (zum Beispiel)
Jetzt hatte ich die "super" Idee, dass das Programm sich die Zellen merkt und in die Schnittstelle der beiden "Urlaub" einträgt.
Geht das überhaupt?
LG Anna

97 Forumthreads zu ähnlichen Themen

mit Find (VBA) nach Datum suchen
Werner

Hi!
Ich habe folgendes Problem:
Ich habe eine Spalte mit Datumseinträgen (z.B.:13.04.1953, 17.12.1970, ...)
Suche ich mit
ThisWorkbook.Worksheets("AUSWAHL").Columns("E:E").Find(What:="17")
bekomme ich ein Ergebnis
ThisWorkbook.Worksheets("AUSWAHL").Columns("E:E").Find(W...
13.08.2008 23:54:00
Thread-ID: 1001685
8 Beiträge
Anzeige
Tabellenblätter nach Datum durchsuchen
Markus

Hallo zusammen,
ich habe angefügte Datei erstellt.
Jetzt möchte ich das sich das Blatt "Tabelle1" aus den anderen Blättern mit Daten füllt.
Und zwar soll beispielsweise nach dem Datum in Tabelle1 in A4 in den anderen Blättern gesucht werden. Das Datum steht auf den anderen Blättern...
25.09.2009 10:24:50
Thread-ID: 1105395
2 Beiträge
Suchen das nächste zurückligende Datum
edie

Hallo zusammen,
ich suche eine Möglichkeit, per VBA wenn’s geht, das annähernd nächste zurückliegende Datum aus einer Datumsreihe zu suchen bzw. finden und das Datum und die entsprechend Werte zu kopieren.
Hier im Beispiel: Wenn in Zelle F1 der Tabelle 2 das Datum 16.01.2010 steht, dann...
28.02.2010 16:23:33
Thread-ID: 1142113
8 Beiträge
Anzeige
Spalte nach Datum durchsuchen u danach Filtern
Marta

Hey Leute,
stehe vor meinem nächsten Problem. Nur leider fällt mir im Moment gar kein Lösungsweg ein, nicht einmal Ansatzweise.
Also das Szenario sieht folgendermaßen aus:
Ich habe eine Spalte mit verschiedenen Datumsangaben ab August 2009. Diese Spalte wird jeden Monat mit dem aktu...
03.08.2010 14:32:53
Thread-ID: 1170220
9 Beiträge
Suchen nach Datei
Karsten

Hallo...
ich möchte über Excel nach einer bestimmten Datei suchen.
in A1 steht der Pfad (z.B. C:\)
in A2 möchte ich den Suchtext eingeben (z.B. Schnee)
in A3 und darunter sollen alle Suchergebnisse aufgelistet werden, welche in diesem Zusammenhang gefunden wurden (z.B. Schneeba...
22.12.2010 21:23:16
Thread-ID: 1192594
8 Beiträge
Code Hilfe Bild suchen nach Datei
amintire

Hallo liebe Excel Freunde,
benötige eine Code Hilfe. Soweit funktioniert das ganze auch.
Wenn ich SpinButton betätige zeigt er mir die Bilder an die im Laufwerk abgelegt sind,
würde aber gerne auch nach einem Bild im Laufwerk suchen können,
wenn ich den Pfad eingebe er mir sozu...
08.04.2011 10:32:19
Thread-ID: 1209577
12 Beiträge
Verzeichnis + Dateien nach Zellinhalt durchsuchen
Patrick

Hallo,
ich benötige bitte eure Hilfe.
Folgendes Problem treibt mich um:
Ich möchte ein festes Verzeichnis (c:\test - enthält nur xls.-Dateien) durchsuchen.
Und zwar möchte ich das bei allen enthaltenen Dateien überprüft wird, ob auf dem
Worksheet "Daten" in der Zelle G6 "DE"...
10.05.2011 14:57:44
Thread-ID: 1213837
4 Beiträge
Nachdatum suchen und in entsprechende Tabelle kopi
Choppy_76

Hallo zusammen,
Ich habe eine Tabelle mit 6 Spalten. In Spalte A wird automatisch immer das heutige Datum eingetragen wenn sich in Spalte B was ändert. Nun sollen die Eingaben ab Zeile 2 der Spalte A,B,C,D,E,F soweit die Zellen befüllt sind, der Tabelle Eingabe nach jeden öffnen anhand von...
09.08.2011 09:01:54
Thread-ID: 1225325
14 Beiträge
Anzeige

Links zu Excel-Dialogen

ComboBox CommandButton

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige
Archiv - Verwandte Themen
Forumthread
Beiträge
7
6
1
7
1
8
7
11
3
13
2
3
2
1
18
2
2
1
3
4
1
3
2
4
9