Hallo Leute,
Ich möchte in einer UserForm eine andere UserForm öffnen, die UserForm: "bes3" soll geöffnet werden...
Fehlercode: Laufzeitfehler 1004: Die Methode Range für das Objekt _Worksheet ist fehlgeschlagen.
Code:
Private Sub btn_w_Click()
Dim wks As Worksheet
Dim addnew As Range
Set wks = Tabelle2
...
...
If bes1.cb_malen = True Then
Unload Me
'With bes3
.Height = Application.Height
.Width = Application.Width
End With
bes3.Show
Exit Sub
End If
End Sub
Fehler tritt auf bei der markierten (')Zeile: With bes3
Der Code hatt schon mal genauso perfekt funktioniert aber hab in der Userform noch einiges ergänzt.
Bitte um Hilfe
LG Chris
|