Live-Forum - Die aktuellen Beiträge
Datum
Titel
25.04.2024 23:47:55
Datum ausweisen, wenn definierte Summe erreicht ist
25.04.2024 21:40:53
Excel Datenquelle aus dem Web mit Anmeldung?
25.04.2024 21:21:16
Zellkommentar in UserForm anzeigen und bearbeiten
25.04.2024 21:13:13
Kalenderwochen addieren
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
420to424
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
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
420to424
420to424
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

MSG - Box

MSG - Box
28.04.2004 22:25:39
Micha
Hallo Leute,
finde es echt klasse, wenn ihr so schnell helfen könnte. Danke schon einmal...
Wie bekomme ich es hin, das beim aktivieren einer Tabelle ein Makro startet, das die Systemzeit ausließt und Entscheidungen treffen kann. Damit es für euch einfacher ist, was ich meine, hier ein Besipiel:
der nutzer macht seine tabelle zw. 09:00 und 11:00 Uhr, so soll ein Fenster erscheinen mit "Guten Morgen".
Geht das überhaupt?
Danke noch einmal...
Micha

5
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: MSG - Box
28.04.2004 22:36:20
PeterW
Hallo Micha,
geht es um eine spezielle Tabelle dann mach das mit Private Sub Worksheet_Activate() im Modul der Tabelle, geht es um alle Tabellen innerhalb einer Mappe dann benutze im Modul DieseArbeitsmappe Private Sub Workbook_SheetActivate(ByVal Sh As Object). Zusätzlich sollte der Code aufgerufen werden beim Öffnen mit Private Sub Workbook_Open() im Modul DieseArbeitsmappe. Den Code selbst kannst du in ein Standardmodul schreiben und ihn in den genannten Ereignisprozeduren aufrufen.
Gruß
Peter
AW: MSG - Box
28.04.2004 22:46:28
Volker Croll
Hallo Micha,
als Code in "Diese Arbeitsmappe":

Private Sub Workbook_Open()
If Time > CDate("09:00") And Time < CDate("11:00") Then
MsgBox ("Guten Morgen")
End If
End Sub

Gruss
Volker Croll
www.crolltools.de
Anzeige
Danke
28.04.2004 22:49:03
Micha
weil ich's gerade fertig habe...
28.04.2004 22:54:31
Josef Ehrensberger
Hallo Micha!
.... hier noch eine Variante.

' **************************************************************
' Modul: DieseArbeitsmappe Typ = Element der Mappe(Sheet, Workbook, ...)
' **************************************************************
Option Explicit

Private Sub Workbook_Open()
Dim strUser As String
Dim myTime As Date
strUser = Environ("Username")
myTime = Time
Select Case myTime
Case "00:00:00" To "06:00:00"
MsgBox "Hallo " & strUser & " !" & vbLf & "Du bist wohl ein Frühaufsteher?"
Case "06:00:00" To "11:00:00"
MsgBox "Guten Morgen " & strUser
Case "11:00:00" To "14:00:00"
MsgBox "Mahlzeit " & strUser
Case "14:00:00" To "17:00:00"
MsgBox "Guten Tag " & strUser
Case "17:00:00" To "21:00:00"
MsgBox "Guten Abend " & strUser
Case Else
MsgBox "Hallo " & strUser & " !" & vbLf & "Du bist wohl ein Nachtmensch?"
End Select
End Sub
Code eingefügt mit: Excel Code Jeanie
Gruß Sepp
Anzeige
AW: weil ich's gerade fertig habe...
29.04.2004 10:55:12
Franz W.
Hallo Sepp,
gefällt mir :-))), hab ich auch bei einem Bekannten rein...
Danke und Grüße
Franz

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige