Office: (Office 2013) Formularobjekt als Parameter übergeben

Zurück zum Hauptthema:

Wenn ich jetzt diesen Prinzip hier verwende:
Code:

Bekomme ich einen Laufzeitfehler 13: Typen unverträglich.

Ich nutze hier "Microsoft Forms 2.0 Label" statt das normale Label.

Mein Vorhaben ist, dass ich die Spalten genauso breit machen möchte, wie der Inhalt ist.
Daher werden die Columns in Label temporär abgelegt um die Breite zu ermitteln.

Würde mich sehr freuen, wenn ihr mir da helfen könnt.

Bedanke mich im Voraus für eure Mühe.

MfG
Daniel

 

In Access stecken alle ActiveX-Steuerelemente noch einmal in einem Container, deswegen erhältst Du den Fehler 13. Code:

Der Aufruf erfolgt dann mit AutoColumnWidths Me.label9, Me.lstKeys oder mit Call AutoColumnWidths(Me.label9, Me.lstKeys) aus dem Formular.

 

Bekomme ich einen Laufzeitfehler 13: Typen unverträglich.
[/quote]

Zwischenzeitlich solltest du wissen, dass man dir ohne präzise Angaben nur schwer helfen kann.
Zum Beispiel, wo der Fehler auftritt. Sollen wir das raten?

LGM

 

Hallo Nouba,

wow danke allerdings scheitert es wegen Laufzeitfehler 13: Typen unverträglich am Kopf der IF Bedingung.

Da sind neue Begriffe für mich die ich zum 1. Mal sehe.
Kannst du sie mir erläutern?

Z.B.: Redim und welchen Sinn hat es die Fonts vom Listbox an die LabelObjekt zu übergeben?

Würde gerne den Sinn verstehen wollen.

 

Zwischenzeitlich solltest du wissen, dass man dir ohne präzise Angaben nur schwer helfen kann.
Zum Beispiel, wo der Fehler auftritt. Sollen wir das raten?

LGM[/quote]

Beim Funktionsaufruf hat es gescheitert. Nun habe ich den Code von Nouba übernommen und ausprobiert. Bekomme den gleichen Laufzeitfehler, allerdings an eine anderen Stelle.

Scheitert an diese Zeile:
Code:

 

Mein Fehler, deklariere SpaltenBreiten als Variant - da brauchst Du nichts hinzuzufügen, oder, damit es verständlicher erscheint, als SpaltenBreiten() As Variant.

Redim und Join sind in der VBA OL-Hilfe erklärt.

Wenn Dein Label eine andere Schriftart nebst Größe etc. wie das Listenfeld verwendet, verliert die Routine ihren Sinn. xxx hat eine andere Schriftweite als xxx.

 

Juhuuuu es funktioniert ...
Danke Nouba.

Ah okay jetzt bzw. inzwischen habe ich die Erklärung von Redim gelesen und verstanden.

Okay verstehe da hast du vollkommen recht was die Schriftart angeht.

Wie könnte ich denn die Linien in der Listbox deaktivieren bzw. sie als transparent setzen usw.?

 

Wie könnte ich das Label unsichtbar stellen?
Visible kennt der nicht

 

Um den Platzbedarf für Text zu ermitteln, gibt es die undokumentierte
Wizhook-Funktion TwipsFromFont
Die kann das auch für verschiedene Schriftarten und -typen recht gut.

Angewendet auf ein Recordset der Datenherkunft des Listenfeldes, würden
sich alle Probleme mit dem [Microsoft Forms 2.0 => warum das?] Label in Luft
auflösen.

 

Ob man die Linien im Listenfeld eliminieren kann, weiß ich nicht.
Das CustomControl kennt Visible als Eigenschaft.

 

Oh okay und wie könnte ich das ohne weiteres nutzen?

Microsoft Forms 2.0 habe ich genommen, da ich dachte das mein Vorhaben mit normalen Labels nicht möglich sei.

Aber wenn ihr für mein Vorhaben eine bessere Möglichkeit bietet, würde ich sehr erfreut drüber sein. Bin offen auf alles.

 

Bekomme Laufzeitfehler 438:
Objekt unterstützt diese Eigeschaft oder Methode nicht


Code:

Was mache ich da falsch?

 

cc.Visible=False oder Me.Label9.Visible = False - aber erst am Ende oder nach Beendigung der Prozedur, weil sonst AutoSize nicht mehr greift. Die einfachere Methode dürfte aber die von Marsu65 vorgeschlagene sein, und das Beispiel sagt doch eigentlich genügend zur Verwendung aus.

 

Okay habe dein Ratschlag befolgt und habe cc.Visible = False am ende der Funktion eingetragen.

Es hat geklappt aber dafür sind nun die Abstände der Spalten nicht richtig. Die sind total verzogen.


Okay nur wie kann ich mit Marsus Vorschlag vorgehen?
Inwiefern wäre es einfach?

 

Hallo!

Kurz ein Einwand zu Byref und Objekten:
Dass man diese als byref statt byval deklarieren soll, halte ich für einen Irrglauben.
Byref würde ich nur einsetzen, wenn ich in der Prozedur einen Wert zurück geben will oder wenn mich VBA beim Array-Parameter dazu zwingt.
Byval erzeugt zwar eine Kopie, allerdings nur von der Objektreferenz und nicht vom Objekt.

mfg
Josef