Hallo ihr Lieben!
Ich habe eine Userform mit der ich bei "Werkzeug ausser Haus" in eine Tabelle das zur Reparatur geschickte Werkzeug eintrage mit dem "Ausgangsdatum" und in derselben Zeile steht dann am Ende der Status "Werkzeug weg".
Wenn das Werkzeug von der Reparatur zurückkommt möchte ich per Userform in dieser Tabelle die passende Zeile mit dem Werkzeug finden, die den Status "Ware weg" hat.
Dabei wird auch ein "Eingangsdatum" notiert.
Problem: Das Werkzeug kann schon mal weggeschickt worden sein und kommt nicht wieder, ein neues Werkzeug hat aber dieselbe Bezeichnung. Von daher möchte ich den letzten Eintrag mit dem Werkzeug finden, dass den Status "Werkzeug weg" hat.
'Variable
Dim Treffer As String
Dim Finden As Range 'für Bereich der durchsucht werden soll
Dim Wert As String
Call AutoModusAus
'---------------------------------------------
'Extern an "DatenBank" schreiben
'---------------------------------------------
'Bank-Adresse aufrufen
Call BankInitialisieren
'-----ANFANG: Was soll übertragen werden-----------
'--------------SUCHEN UND FINDEN IN DATENBANK FUER W.-NAME & STATUS--------
Set Finden = Worksheets(c_wshtWUmlauf) _
.Columns(1).Find(what:=combo_WalzeWaehlen.Value)
If Finden.Value = "" Then 'Nur suchen, wenn Inhalt
MsgBox "Konnte Walze nicht zuordnen", vbCritical, "Zuordnungsfehler"
ElseIf Finden.Offset(0, 9).Value "WAus" Then
MsgBox "Konnte Walzen-Ausgang nicht feststellen", vbCritical, "Zuordnungsfehler"
Else
Treffer = Finden.Address
'Datum (heute, Walzen-Eingang) eintragen
Worksheets(c_wshtWUmlauf).Range(Treffer).Columns(5).Value = CDate(txt_Datum)
'Status in tabelle "Walzenumlauf" eintragen/ändern
Worksheets(c_wshtWUmlauf).Range(Treffer).Columns(10).Value = "WEin"
End If