Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
1032to1036
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

CommandButton.Caption

CommandButton.Caption
11.12.2008 16:58:00
Gunter
Hallo Zusammen,
in einer Tabelle siehe auch hier https://www.herber.de/bbs/user/57561.xls
habe ich einen CommandButton1. Diesen habe ich mit folgendem Code belegt:
Public b As String

Private Sub CommandButton1_Click()
b = CommandButton1.Caption
CommandButton1.Caption = Date
End Sub



Private Sub CommandButton1_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
CommandButton1.Caption = b
End Sub


Beim ersten klick wird b noch mit dem aktuellen Caption von CB1 belegt. Sobald ich aber CB1 doppelt klicke passiert nichts, da der erste klick vom doppel klick gleich den Wert wieder ändert.
Was kann ich tun.
Für zweckdienliche Hinweise herzlichen Dank.
Gruss
Gunter

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: CommandButton.Caption
11.12.2008 17:02:00
Rudi
Hallo,

Was kann ich tun.


Nichts.
Vergiss den Doppelklick. Der ist bei Commandbuttons Unsinn, da wie du bemerkt hast, bereits der erste Klick ausgewertet wird.
Gruß
Rudi

AW: CommandButton.Caption
11.12.2008 17:12:00
Gunter
Hallo Rudi,
das ist zu dumm, denn wenn jemand den falsch CB drückt und das Datum wieder zurükstellen will, geht das nicht.
Gruss
Gunter
AW: CommandButton.Caption
11.12.2008 18:38:00
Nepumuk
Hallo Gunter,
versuch es mal so:
    Private Static Sub CommandButton1_Click()
    Dim strCaption As String
    Dim blnDone As Boolean
    If Not blnDone Then
        strCaption = CommandButton1.Caption
        CommandButton1.Caption = Date
    Else
        CommandButton1.Caption = strCaption
    End If
    blnDone = Not blnDone
End Sub

Gruß
Nepumuk
Anzeige
AW: CommandButton.Caption
11.12.2008 18:57:00
gp
Hallo Nepumuk,
das ist super, herzlichen Dank.
Gruss
Gunter

299 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige