AW: Das Frame ist breiter als das UForm
10.10.2011 09:10:18
Sibylle
Hallo Matthias,
besten Dank für Deine Hilfen.
X Versuche führten bisher noch nicht zum Ziel.
Im Tabellenblatt wird der Wert in H16 ermittelt.
In das Tabellenblatt wurde ein Befehlsschaltflächensteuerelement aufgezogen.
Es erhielt von Excel den Namen CommandButton1 und in der Bearbeitungsleiste wurde eingetragen
=EINBETTEN("Forms.CommandButton.1";"").
WICHTIG VIELLEICHT:
Im VBA-Projekt unter Tabelle1 Worksheet erscheint kein Code für diesen CommandButton1
und es sind nur Eigenschaften für das Tabellenblatt einzustellen.
Im VBA-Projekt wurde eine Userform eingefügt, ein Frame aufgezogen, in diesen Frame label1 und label2 aufgezogen, unter dem Frame eine Befehlsschaltfläche mit Namen CommandButton1.
Der Code für label1 lautet:
Private Sub Label1_Click()
'Bei Caption wurde der Text Der Endbetrag lautet eingetragen
End Sub
Code für Label2
Private Sub UserForm_Activate()
Labels2.Caption = Format(Range("H166"), "#,##0.00 ")
End Sub
Code für den CommandButton1 in der Userform
Private Sub CommandButton1_Click()
UnloadMe
End Sub
Als Versuch wurde zu guter letzt ins Worksheet folgender Code eingetragen
Private Sub CommandButton1()
UserForm1.Show
End Sub
Nun sollte man meinen dass es läuft, aber offensichtlich habe ich etwas übersehen.
Was mag das nur sein? Ein Klick auf den Button im Tabellenblatt bewirkt nichts, während es in Deinem Beispiel perfekt funktioniert.
Ich bin sehr gespannt ob Du mit diesen Angaben meinen Fehler finden wirst.
Gruß
Sibylle
