Hallo,
brauch mal wieder die Hilfe der Experten.
Ich habe mir eine Berechnung für meine Überstunden, Urlaubtage usw. geschrieben. Würde dies auch an meine Kollegen weitergeben. Die sollten aber beim ersten öffnen auf das Copyright hingewiesen werde.
Jetzt hab ich mir folgedenden Code ausgebrühtet:
Public &ltpre&gt
Sub test()
Dim reihe As Integer
Sheets(1).Range("A:A").Find(what:=Application.UserName, _
LookAt:=xlWhole, MatchCase:=False).Select
If ActiveCell = Application.UserName Then Exit Sub
Range("A65536").End(xlUp).Offset(1, 0).Select
ActiveCell = Application.UserName
UserForm1.Show
End Sub&lt/pre&gt
Nun kommt aber wenn nichts gefunden wird der Laufzeitfehler 91 - Objetkvariable oder With-Blockvariable nicht festgelegt.
In der Recherche hab ich zwar gefunden das ich es mit "on erroer resume next" umgehen kann.
Möchte aber doch gerne wissen was da falsch läuft.
Danke jetzt schon für eure Hilfe.
Gruß
Oswald