Project o. Bibliothek nicht gefunden
Heinz
Im unteren Code bekomme am Firmen PC immer die Fehlermeldung "Project o. Bibliothek nicht gefunden"
bei "TextBoxÜ"
ZuHause läuft es einwandfrei.
Hätte bitte jemand eine Hilfe anzubieten?
Gruß
Heinz
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Not Intersect(Target, Range("A3:A154")) Is Nothing Then
Cancel = True
UserForm_Stunden.TextBoxName = Target
UserForm_Stunden.TextBoxHidden = Target.Row 'sichern der Zielzeile in einer versteckten _
textbox
UserForm_Stunden.TextBoxHidden1 = Target.Row 'sichern der Zielzeile in einer _
versteckten textbox
UserForm_Stunden.Show
TextBoxÜ = ""
TextBoxHidden1 = ""
TextBoxE = ""
TextBoxHidden = ""
End If
End Sub
Anzeige