Datum und Zeit finden

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hallo Steffen,
den Satz " Der Wert der aktuellen (so gefundenen Zeile) soll dann in die Variable "Zeile" kopiert werden" habe ich leider nicht kapiert (was ist ein "Wert der Zeile"?).
Vielleicht hilft Dir dieses Makro trotzdem weiter:


Sub Steffen()
Dim SuBe As Range, c As Range
Dim t1D As Date, t2Z As Date
Dim laRA As Long, laRB As Long
t1D = ActiveSheet.TextBox1.Text
t2Z = ActiveSheet.TextBox2.Text
laRA = Cells(Rows.Count, 1).End(xlUp).Row
laRB = Cells(Rows.Count, 2).End(xlUp).Row
Set SuBe = Range("A6:A" & laRA).Find(What:=t1D, _
After:=Range("A" & laRA), LookAt:=xlWhole)
If Not SuBe Is Nothing Then
For Each c In Range("B" & SuBe.Row & ":B" & laRB)
If c.Offset(0, -1).Value = t1D Then
If c.Value > t2Z Then
MsgBox "Zeile " & c.Row & ":  " & c.Text
Exit For
End If
Else
Exit For
End If
Next c
Set SuBe = Nothing
Else
MsgBox "Suchbegriff '" & t1D & "' nicht gefunden !", 64, _
"Dezenter Hinweis für " & Application.UserName & ":"
End If
End Sub

Viel Erfolg wünscht
WernerB.
P.S.: Dieses Forum lebt auch von den Rückmeldungen der Fragesteller an die Antworter !

Hallo Steffen,
vielen Dank für die Rückmeldung. Es freut mich, dass ich Dir helfen konnte.
Aufgrund Deiner "etwas unglücklichen Formulierung" war mir nicht klar, was Du als Ergebnis eigentlich haben wolltest: Den Zellinhalt der gefundenen Zelle, die Zeilennummer oder irgend etwas anderes (deshalb auch die MsgBox-Lösung).
Zu Deiner Frage/Anmerkung: Dieses "P.S." schreibe ich generell unter die meisten meiner Lösungsvorschläge im Forum, denn nichts ist frustrierender, als eine Lösung erarbeitet zu haben, von der man nie erfährt, ob sie so im Sinne des Fragestellers auch funktioniert und dann auch so verwendet wird. Damit warst also nicht speziell Du gemeint. Ich führe auch keine Listen mit Forums-Rückmeldern und Nichtrückmeldern, das ginge dann doch wohl etwas zu weit!
Mit "Rückmeldung" meine ich eine Rückmeldung im Forum; eine e-mail-Adresse gebe ich hier bewusst nicht an. Da stimme ich Dir voll zu - das würde ich auch als Belästigung für den Fragesteller und für den Antworter empfinden!
Soweit ich dies überblicke, sind Rückmeldungen per e-mail in diesem Forum auch nicht üblich.
Gruß
WernerB.

Beliebteste Forumthreads (12 Monate)

3
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

310 Forumthreads zu ähnlichen Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Datum und Zeit finden

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

310 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

3
Beiträge zum Forumthread

Beiträge zu diesem Forumthread