title image


Smiley Ein Denkanstoß...


Hallo!



Kopiere etwas in die Zwischenablage

starte: StarteNeueButton

Per OnTime wird immer wieder ein Makro gestartet,

der die Caption updatet...



StoppeTimer hält den Timer wieder an.



nicht elegant...



Gruß, Chrisir









Option Explicit



Dim strAlterWert    As String

Dim ctlControl      As CommandBarButton





Sub StarteNeuenButton()



    Dim MyData      As DataObject

    Dim strText     As String

    

    

    strText = ""

    Set MyData = New DataObject

    

    MyData.GetFromClipboard

    strText = MyData.GetText(1)



    If strText <> "" Then

        Set ctlControl = Application.CommandBars("Standard").Controls.Add

        ctlControl.Caption = Left(strText, 20)

        ctlControl.BeginGroup = True

        ctlControl.Style = msoButtonCaption

        strAlterWert = ctlControl.Caption

        

        StarteSchleifeTimer

    End If

        

End Sub



Sub StarteSchleifeTimer()

    

    Dim MyData      As DataObject

    Dim strText     As String

    

    

    Set MyData = New DataObject



    MyData.GetFromClipboard

    strText = MyData.GetText(1)

    

    If strText <> "" Then

        Application.OnTime When:=Now + TimeValue("00:00:03"), _

                           Name:="Modul1.StarteSchleifeTimer"

        

        ctlControl.Caption = Left(strText, 20)

        strAlterWert = ctlControl.Caption

    

    End If

    

End Sub



Sub StoppeTimer()



    Application.OnTime When:=Now + TimeValue("00:00:01"), _

                       Name:="Modul1.TueNichts1"

                           

End Sub



Sub TueNichts1()



End Sub







Code eingefügt mit Syntaxhighlighter 2.4





geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: