Hallo
Ich möchte bei einer Kreuztabelle (Spalte A = Datum, Zeile 8 = Inventar-Nr.) ein UserForm einrichten, dass der Cursor beim Suchen der Invenar-Nr. gleich zur Richtigen Zelle (Datum = heute) springt.
Ich habe schon verschiedenes probiert und einige Foren sowie alles mögliche bei Google durchforstet. Leider kam ich nie zum gewünschten Ergebnis. Kann mir jemand weiterhelfen?
Was ich habe ist eine Schaltfläche mit dem ich das UserForm aufrufen kann
Sub Schaltfläche1_Klicken()
UserForm1.Show
End Sub
Und das Userform mit den Feldern für die Inventar-Nr., Suchen & Schliessen
Option Explicit
Private Sub cmdSchliessen_Click()
Unload Me
End Sub
Private Sub UserForm_Initialize()
With Me.cboInventar
.AddItem "2001"
.AddItem "2002"
.AddItem "2003"
.AddItem "2004"
.AddItem "2005"
.ListIndex = 0
End With
End Sub
Das funktoniert soweit...
Was ich jetzt also noch brauche, wäre die Funktion, dass nach dem Eintrag im UserForm und dem heutigen Datum gesucht wird, und dass der Cursor an die ensprechende Stelle gesetzt wird. Probiert habe ich unter anderem so:
Private Sub cmdSuchen_Click()
Dim rng As Range, Spalte As Range
Dim i As Integer, x As Integer
Dim Ergebnis As String
On Error Resume Next
Set rng = Columns(1).Find(what:=cboInventar.Value)
If rng Is Nothing Then
MsgBox "Inventar-Nr. wurde nicht gefunden!"
End If
Set Spalte = Rows(1).Find(what:=Date)
i = rng.Row
x = Spalte.Column
Cells(i, x).Select
End Sub
Aber wahrscheinlich bin ich damit ziemlich auf dem Holzweg. :-/
|