ich möchte in mein Arbeitsblatt folgende Funktion einfügen:
nach dem Öffnen soll für z.B. 20 Sekunden
ein ActivX Feld mit Variablen Text eingeblendet werden.
Hat jemand für mich eine Lösung?
Einen schönen Sonntag
Siegfried
Option Explicit
Private Sub Workbook_Open()
Worksheets("Tabelle1").CommandButton1.Visible = True
Application.OnTime Now + CDate("00:00:20"), "Ausblenden"
End Sub
starte den VBA Editor (Alt+F11), Bild sollte zweigeteilt sein ansonsten Strg+R, gehe auf Deine Datei, rechte Maustaste, Einfügen Modul, Code ins rechte Fenster kopieren, VBA Editor schließen (Alt+F4, oder Kreuz rechts oben). Option Explicit
Sub Ausblenden()
Worksheets("Tabelle1").CommandButton1.Visible = False
End Sub
Private Sub Workbook_Open()
Worksheets("Tabelle1").CommandButton1.Visible = True
Application.OnTime Now + CDate("00:00:20"), "Ausblenden"
End Sub
aber es stellt sich nicht der gewünschte Vorgang ein,Option Explicit
Private Sub Workbook_Open()
With Worksheets("Tabelle1")
.Activate
.CommandButton1.Caption = Worksheets("Tabelle2").Range("K20") 'hier der Verweis auf K20
.CommandButton1.Visible = True
Application.OnTime Now + CDate("00:00:20"), "Ausblenden"
End With
End Sub
Gruß WernerPrivate Sub Workbook_Open()
With Worksheets("Berechnungsblatt")
.Activate
.CommandButton1.Caption = Worksheets("Formeln").Range("d436") 'hier der Verweis auf d436
.CommandButton1.Visible = True
Application.OnTime Now + CDate("00:00:20"), "Ausblenden"
End With
End Sub
Private Sub ComboBox1_Change()
ActiveCell.Select
End Sub
Private Sub ComboBox2_Change()
ActiveCell.Select
End Sub
Private Sub ComboBox3_Change()
ActiveCell.Select
End Sub
Private Sub ComboBox4_Change()
ActiveCell.Select
End Sub
Private Sub CommandButton1_Click()
End Sub
Private Sub Worksheet_Change(ByVal Target As Range)
Tabelle1.TextBox1.Visible = Cells(2, 12) = 1
End Sub
Private Sub Workbook_Open()
With Worksheets("Berechnungsblatt")
.Activate
.CommandButton1.Caption = Worksheets("Formeln").Range("d436") 'hier der Verweis auf d436
.CommandButton1.Visible = True
Application.OnTime Now + CDate("00:00:20"), "Ausblenden"
End With
End Sub
Sub Ausblenden()
Worksheets("Berechnungsblatt").CommandButton1.Visible = False
End Sub
Der gehört in ein allgemeines Modul.
Außerdem muß dein CommandButton im Tabellenblatt "Berechnungsblatt" sein und auch tatsächlich _
CommandButto1 heißen.
Wenn du es nicht hin bekommst, dann lad einfach mal deine Mappe hier hoch.
Gruß Werner
Sub Ausblenden()
Worksheets("Berechnungsblatt").CommandButton1.Visible = False
End Sub