Eingabefenster um Code zu ändern
24.08.2005 15:49:44
Eve
habe ein frage für diese code.
wie kann ich machen das ich in eine Inputbox
Zeit eingebe, und bei click auf OK, diese im code
geändert wird? (ich will nicht immer im code die zeit anpassen)
diese Zeile soll individuell geändert werden:
Zeit = TimeValue("00:15:00")
hier die ganze code:
Option Explicit
Public MyBar As CommandBar, Verzögerung As Date
Dim MyButton As CommandBarControl, Zeit As Date
Public
Sub Symbolleiste()
Zeit = TimeValue("00:15:00")
On Error Resume Next
Application.CommandBars("Zeit").Delete
Set MyBar = Application.CommandBars.Add("Zeit", msoBarFloating, Temporary:=True)
Set MyButton = MyBar.Controls.Add(msoControlButton)
With MyButton
.Caption = Right(Format(Zeit, "hh:mm:ss"), 5)
.OnAction = "nichts"
.Style = 2
.TooltipText = "Hier gibt's nichts zu klicken!"
End With
With MyBar
.Visible = True
.Protection = 27
End With
Countdown
End Sub
kann da wer helfen?
danke für all die Hilfe.
regards Eve