---

Hallo Forum,
seit gestern (!) beschäftige ich mich zum ersten Mal mit VBA und VBA für ACAD.

Es sollte eigentlich ganz einfach sein...:
Formular mit buttons und einem ausgabefeld.
klickt man auf den 1.button, verschwindet das formular, man kann objekte auf der zeichenfläche wählen und dann erscheint die anzahl der objekte in einer textbox des formulars, dass dann auch wieder angezeigt wird.

Private Sub CommandButton1_Click()
Dim AcSSet As AcadSelectionSet
Public Objektanzahl As Long

On Error Resume Next

If TypeName(ThisDrawing.SelectionSets("Auswahl")) = "Nothing" Then
        ThisDrawing.SelectionSets.Add "Auswahl"
End If
 
Set AcSSet = ThisDrawing.SelectionSets("Auswahl")
AcSSet.Clear
UserForm1.Hide
AcSSet.SelectOnScreen
Objektanzahl = AcSSet.Count
Ausgabe.Value = Objektanzahl

UserForm1.Show

End Sub

so geht s leider nicht, denn die methode count ist fehlgeschlagen....... wo ist mein denkfehler??

vielen dank schonmal vor allem für antworten, die nicht ausschließlich von profis zu verstehen sind 

viele grüße
carambita

------------------

viele grüße
carambita

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Eigentlich sehe ich da keinen Fehler. Versuch mal die Variable von Long auf Variant zu setzten und schau mal ob es dann funktioniert.

------------------
Roland

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hi Carambita,

bist du sicher, dass es an der Count-Methode liegt? Lautete nicht die Fehlermeldung Invalid Attribute in Sub or Function? Du musst da eigentlich nur auf Hilfe klicken, dann kriegst du die Erklärung:

A Public or Private attribute appears within the body of a procedure definition.

Heisst: Innerhalb von Subs werden Variablen mit Dim deklariert, Public-Variablen müssen ausserhalb (also am Anfang) deklariert werden. Wenn ich aus dem Public Objektanzahl As Long ein Dim Objektanzahl As Long mache, dann funktioniert's doch. Es besteht übrigens auch keinerlei Anlass dazu, diese Variable öffentlich zu machen.

Warum erkennt VBA diesen Fehler eigentlich erst zur Laufzeit?

Gruß, Axel

------------------

Meine AutoLisp-Seiten
Meine private Homepage
Mein Angriff auf dein Zwerchfell
Mein Lexikon der Fotografie
Mein gereimtes Gesülze
Meine Überzeugung...

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Gut erkannt, darauf hab ich gar nicht geachtet.

------------------
Roland

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

wooooow!!

der fehler trat gar nicht auf, nur beim überwachungsfenster hat er gemault, dass die methode fehlgeschlagen ist. als ausgabe gabs immer nur "0".

aber du hattest vollkommen recht die definition der variablen als long innerhalb der procedur hat es gebracht.

wieder 10u s für deinen zukünftigen rolls royce

------------------

viele grüße
carambita

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP