Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
1332to1336
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Me.Controls.Add

Me.Controls.Add
21.10.2013 16:04:57
Alex
Hallo zusammen!
Ich hoffe ihr könnt mir weiterhelfen. Irgendwie will das neue Office den Befehl Me.Controls.Add nicht ausführen.
Dim weitereKst As MSForms.CheckBox
For j = 2 To i
Set weitereKst = Me.Controls.Add("Forms.CheckBox.1")
With weitereKst
.Left = 0
.Top = w + 20
.Width = 220
.Caption = Cells(j, 1)
End With
Ich bekomme den Fehler (.Controls wird markiert):
Methode oder Datenobjekt nicht gefunden
In einer alten Excel-Version hat das noch funktioniert.
Grüße
Alex

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
Auf was bezieht sich Me. ? (owT)
22.10.2013 17:29:22
EtoPHG

AW: Auf was bezieht sich Me. ? (owT)
24.10.2013 11:04:36
Alex
me sollte sich auf die Userform die geöffnet wird beziehen.
Hab ich vergessen zu kopieren.
Hier mal der ganze Code:
Private Sub KSTdel_Click()
Dim i As Integer
Dim j As Integer
Dim weitereKst As MSForms.CheckBox
Dim KstNr As MSForms.Label
Dim w As Long
w = 0
i = Worksheets("Datenbank").Range("A:A").Cells(Rows.Count, 1).End(xlUp).Row
MsgBox i
KSTdelUF.Show
KSTdelUF.Height = i * 20
For j = 2 To i
Set weitereKst = KSTdelUF.Controls.Add("Forms.CheckBox.1")
With weitereKst
.Left = 0
.Top = w
.Width = 220
.Caption = Worksheets("Datenbank").Cells(j, 1)
End With
w = w + 20
Next
End Sub
Ich habe me hier mit KSTdelUf (Name der Userform) ersetzt, nur funktioniert der Code dann teilweise nicht. Manchmal gibt eine komplett leere Userform zurück. Hab den Grund mal irgendwo gelesen, dass man dann eben me nehmen soll, aber dann kann ich .controls.add nicht verwenden.

Anzeige
AW: Auf was bezieht sich Me. ? (owT)
25.10.2013 08:59:25
EtoPHG
Hallo Alex,
Me bezieht sich immer auf die Codeklasse, sprich:
In DieserArbeitsmappe: auf das Workbook
In Module(n) : auf nichts, d.h. hier ist Me nicht anwendbar!
In TabelleX : auf das Worksheet
In Formulare(n) : auf die UserForm
Wenn du weiterhin Probleme hast: Lade eine Beispielmappe hoch!
Gruess Hansueli

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige
Archiv - Verwandte Themen
Forumthread
Beiträge