Wert suchen, Zeile ausgeben

Liebe VBA-Gemeinde,
ein neues Problem treibt mich mal wieder ins Forum.
Ich möchte in einer Userform in zwei Textboxen Uhrzeiten eingeben. Diese sollen an einen Code übergeben werden, welche in Tabelle1, Spalte C diese Werte sucht und die Zeile ausgibt. Diese beiden Zeilenangaben will ich nutzen um alle dazwischenliegenden Zeilen zu Kopieren und in ein neues Tabellenblatt einzufügen.
Das ist mein bisheriger Code:

Private Sub CommandButton1_Click()
Dim i As Date
Dim k As Date
Dim rng As Range
Dim zeile1 As Long
Dim zeile2 As Long
i = TextBox1.Value
k = TextBox2.Value
Debug.Print i
Set rng = Worksheets("Tabelle1").Range("C:C").Find(i)
If rng Is Nothing Then
MsgBox "Wert " & i & " nicht gefunden!"
Else
zeile1 = rng.Row
End If
Debug.Print zeile1
Set rng = Worksheets("Tabelle1").Range("C:C").Find(k)
If rng Is Nothing Then
MsgBox "Wert " & k & " nicht gefunden!"
Else
zeile2 = rng.Row
End If

Die gesuchten Werte werden soweit an i und k übergeben. Ich habe noch ein Problem, dass er jedoch die Zeilenwerte ausgibt. Ich denke sehr stark, dass dies mit meiner Datumsangabe im Sheet zu tun hat! Derzeit sieht diese wie folgt aus hh:mm:ss, in der Zelle steht jedoch exemplarisch die Formel =B3+$A$1. Schreibe ich wirklich eine Zeit wie 22:56:08 und suche danach, wird diese auch gefunden. Wie schaffe ich es, meine Uhrzeit so einzurichten, dass diese auch gefunden wird? Die Zeiten werden als Datensätze so geliefert und werden von einem anderen Makro von mir bearbeitet, nicht, dass jemand denkt, dass ich diese händisch eingeben würde...
Vielen lieben Dank!
Horst.

Hi
kommt jetzt darauf an, was tatsächlich in den Zellen steht:
- Text, der wie Datum aussieht
- Datum + Uhrzeit, aber Zahlenformat hh:mm:ss
- Uhrzeit
man muss wissen, daß Datum-Uhrzeit im prinzp auch nur normale Zahlen sind, wobei das Datum durch die Ganzahlen und die Uhrzeit durch die Nachkommastellen dargestellt werden.
mit .FIND nach nach Datum/Uhrzeit zu suchen ist nicht ganz leicht, weil hier die Problematiken Echter Wert vs Formatierte Darstellung in Deutscher oder Englischer Schreibweise sich zu einem komplexen Logikknäul verwirren.
wenn echte Datums- oder Zeitwerte in den Zellen stehen, dann ist es besser, den Textwert aus der Textbox in die entsprechende Double-Zahl zu wandlen und in der Exceltabelle die Zeilennummer mit Worksheetfunction.Match (entspricht der Vergleichs-Funktion) zu ermitteln.
das hätte gegenüber .FIND auch den Vorteil, daß auch bei nicht exakter Eingabe ein Wert gefunden wird (in dem Fall dann der nächstkleinere).

dim i as double
dim Zeile1 as long
i = CDbl(Cdate(Textbox1.Text))
On Error Resume next
Zeile1 = Worksheetfunction.Match(i, Worksheets("Tabelle1").Range("C:C"), 0)
On Error Goto 0
If Zeile1 = 0 then
Msgbox Textbox1.Text & " nicht gefunden."
Else
Debug.Print Zeile1
end if

gruß Daniel

Forumthread: Wert suchen, Zeile ausgeben

8
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Forumthreads zu verwandten Themen

Infobox / Tutorial

Wert suchen und Zeile ausgeben in Excel VBA

Schritt-für-Schritt-Anleitung

Häufige Fehler und Lösungen

Alternative Methoden

Praktische Beispiele

Tipps für Profis

FAQ: Häufige Fragen

Beliebteste Forumthreads (12 Monate)