Dropdown zurücksetzen
24.06.2004 19:16:17
Rico
ich bräuchte mal Hilfe zu 2 kleinen Problemchen.
In dem unteren Code habe ich ein kleines Dropdown-Feld. In der ersten Zelle steht "Bitte wählen..." und dann kommt meine Liste. Wählt man nun aus der Liste den 2. Wert (Handymeldungen), öffnet sich eine neue Excel-Tabelle. Wenn man diese wieder schließt, sieht man wieder meine normale Startseite mit dem Dropdown-Feld.
Allerdings steht in dem Feld immer noch der Eintrag "Handymeldungen". Kann jemand den Code so vervollständigen, dass nach dem Öffnen der neuen Tabelle im Dropdown-Feld wieder "Bitte wählen...", also der 1. Wert da steht?
Sub tools()
Dim wnd
Sheets("Checkseite").Select
Range("C3").Select
wnd = ActiveCell
Sheets("home").Select
If wnd = 2 Then
Workbooks.Open FileName:= _
"\\DEBAU-WIFS01\DE-BAU-H-001\Hyper AH\Dokumente\Handymeldungen AP.xls"
Sheets("Startseite").Select
ElseIf wnd = 3 Then
Sheets("Tabelle6").Select
ElseIf wnd = 4 Then
Sheets("Tabelle4").Select
Else
Sheets("Home").Select
Range("A1").Select
MsgBox "Bitte treffe eine Auswahl"
End If
End Sub
Und meine 2. Frage ist vielleicht noch einfacher. Ich komme nur nicht dahinter. :-)
Gibt es einen Code, der in dem Steuerelement "Textfeld" das aktuelle Datum und die aktuelle Uhrzeit anzeigt?
Für Eure Hilfe bin ich wie immer sehr sehr dankbar.
Gruß
Rico
Anzeige