Wert suchen, Zeile ausgeben
13.05.2013 10:24:39
Horst
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
Vielen lieben Dank!
Horst.