Laufzeitfehler 424 Objekt erforderlich
15.02.2004 14:53:49
Michael Rapp
ich brauche einen Tipp zu einer Fehlermeldung, die immer wieder bei meiner Userform auftritt.
Mit der Userform kann man eine beliebige Zellenauswahl oder den Druckbereich als JPG Datei speichern. Mit dem Aufruf Application.InputBox öffnet sich ein Fenster mit Zellbereich, der auch eine Eingabe mit der Maus erlaubt. Nach dem Selektieren deiner Zellauswahl kommt folgende Fehlermeldung: Laufzeitfehler 424 Objekt erforderlich.
Das Optionsfeld ist mit folgendem Code gestaltet:
Option Explicit
Public strChoice As String
Public objChoiceArea As Object
Private Sub cmd_Selection_Click()
Dim strAnswer As String
Dim intLegalSelection As Integer
SelectionStart:
strChoice = ActiveSheet.PageSetup.PrintArea
Set objChoiceArea = Application.InputBox(prompt:="Bitte markieren Sie den gewünschten Bereich mit der Maus"), _Default:=strChoice, Type:=8)
' Hier tritt die Fehlermeldung auf
If Not TypeName(objChoiceArea) = "Range" Then
If TypeName(objChoiceArea) Like "*Chart*" Then
intLegalSelection = 1
GoTo Test
Else
intLegalSelection = 3
GoTo Test
End If
End If
' Check that the current range has only one area - the copypicture
' method will not work if it is a multiple selection
If Not objChoiceArea.Areas.Count = 1 Then
intLegalSelection = 3
Else
intLegalSelection = 2
End If
Test:
Select Case intLegalSelection
Case 1
Exit Sub
Case 2
Exit Sub
Case 3
strAnswer = MsgBox("Bitte einen zusammenhängenden Bereich auswählen", vbYesNo)
If strAnswer = vbNo Then Unload Me
If strAnswer = vbYes Then GoTo SelectionStart
End Select
End Sub
Danke für Eure Hilfe
Michael