Ich habe im Codebereich eines Worksheets folgenden Code, der auch funktioniert. Beim Anklicken der Combobox auf dem Worksheet füllt sich die Auswahlliste und der ausgewählte Eintrag wird nach Verlassen der Box angezeigt:
Private Sub cmbAzArtObj_DropButtonClick()
Dim wksaz As Worksheet
Set wksaz = Worksheets("Aufmaßzettel")
With cmbAzArtObj
.List = Array("", "Autohaus", "Feuerwehr", "Garagenhof", "Gartengrundstück", _
"Grünfläche", "Industriegrundstück", "Kindergarten", "Krankenhaus", "Lagerhalle", _
"Polizei", "Reihenhaus", "Schule", "Tankstelle", "Wohn- und Geschäftshaus", "Wohnhaus") _
_
_
End With
End Sub
Nun möchte ich diesen Code aus dem Tabellenblatt in ein Modul verschieben. Das ganze sieht dann so aus:Code Worksheet:
Private Sub cmbAzArtObj_DropButtonClick()
Call AzArtObj
End Sub
Code Modul
Sub AzArtObj()
Dim wksaz As Worksheet
Set wksaz = Worksheets("Aufmaßzettel")
With cmbAzArtObj
.List = Array("", "Autohaus", "Feuerwehr", "Garagenhof", "Gartengrundstück", _
"Grünfläche", "Industriegrundstück", "Kindergarten", "Krankenhaus", "Lagerhalle", _
"Polizei", "Reihenhaus", "Schule", "Tankstelle", "Wohn- und Geschäftshaus", "Wohnhaus")
End With
End Sub
Jetzt bekomme ich die Fehlermeldung: Variable nicht definiert und es wird hinter With das cmbAzArtObj markiert.
Kann mir bitte jemand auf die Sprünge helfen, wie ich diesen Fehler weg bekomme?
Für die Mühe schon mal im Voraus dankend
Gruß Bernd