Grrr - Laufzeitfehler 438
19.02.2018 13:05:31
Daniel
In einem grösseren Excel-Projekt habe ich eine einzelne Sub-Prozedur, die mir Sorge bereitet und deren Fehler ich bisher nicht eruieren konnte. Beim Ausführen erscheint die Meldung "Laufzeitfehler '438' - Das Objektiv unterstützt diese Eigenschaft oder Methode nicht. Die Prozedur ist ganz simpel uns es soll anhand einer in einer UserForm auf einer MultiPage platzierten ComboBox eine Auswahl getroffen werden können und anhand dieser Auswahl Zeilen ein- und ausgeblendet werden. Hier der Code:
Sub cboPhases_Change()
'Multipage 1 - Phasen eintragen
If cboPhases = "1" Then
Sheets("Übersicht & PhR").Rows("14:27").EntireRows.Hidden = False
Sheets("Übersicht & PhR").Rows("14:27").EntireRows.Hidden = True
lblPhase1.Visible = True
lblPhase2.Visible = False
lblPhase3.Visible = False
lblPhase4.Visible = False
txtPhase1StartDate.Visible = True
txtPhase1EndDate.Visible = True
txtPhase2StartDate.Visible = False
txtPhase2EndDate.Visible = False
txtPhase3StartDate.Visible = False
txtPhase3EndDate.Visible = False
txtPhase4StartDate.Visible = False
txtPhase4EndDate.Visible = False
Sheets("RawData").Range("I3:E20").ClearContents
End If
End Sub
Als Fehler ausgeschlossen werden kann was folgt:- Benennung ist richtig
- Tabellenblatt nicht gesperrt
- Die gleiche Code-Struktur funktioniert auf einer anderen MultiPage derselben UserForm einwandfrei
Was könnte der Fehler sein? Ist der Code fehlerhaft bzw ineffizient?