Wert bei Aufruf der Datei setzten

Informationen und Beispiele zu den hier genannten Dialog-Elementen:
Label MsgBox
Bild

Betrifft: Wert bei Aufruf der Datei setzten
von: Christoph
Geschrieben am: 22.03.2005 15:45:37
Hallo
ich hab mal wieder eine Frage.
Wie kann ich beim Start oder Aufruf der DAtei einen Wert setzten:
wenn dokument geöffnet wird, dann setzte Label1.caption = 1
Gruß Chris

Bild

Betrifft: AW: Wert bei Aufruf der Datei setzten
von: leo
Geschrieben am: 22.03.2005 15:49:06
meinst du so etwas wie einen besucherzähler?
Bild

Betrifft: AW: Wert bei Aufruf der Datei setzten
von: Christoph
Geschrieben am: 22.03.2005 15:50:36
Sowas ind er Art, nur der Zähler soll jedes mal wenn die DAtei geöffnet wird wieder auf 1 zurückgesetzt werden
Bild

Betrifft: AW: Wert bei Aufruf der Datei setzten
von: leo
Geschrieben am: 22.03.2005 15:56:51
versuch es mal damit:
, code reinkopieren, vielleicht ist es schon die lösung
Option Explicit
Private shBesucherZaehler As Worksheet
Private rngLetzterTag As Range
Private dtmLetzterTag As Date
Private dtmHeute As Date

Private Sub Workbook_Open()
    On Error GoTo Err_In_Workbook_Open
    Set shBesucherZaehler = ThisWorkbook.Worksheets("BesucherZaehler")
    dtmHeute = VBA.Date
    dtmLetzterTag = 0
    Set rngLetzterTag = shBesucherZaehler.Columns("a").Find(What:="*", _
                                                           SearchDirection:=xlNext, _
                                                           SearchOrder:=xlByRows)
    With rngLetzterTag
        If (VBA.IsDate(.Value) = True) Then
            dtmLetzterTag = .Value
        End If
        If (dtmHeute <> dtmLetzterTag) Then
            .Offset(rowoffset:=1, columnoffset:=0).Value = dtmHeute
            .Offset(rowoffset:=1, columnoffset:=1).Value = 1
        Else
            .Offset(rowoffset:=0, columnoffset:=1).Value = _
            .Offset(rowoffset:=0, columnoffset:=1).Value + 1
        End If
    End With
    ThisWorkbook.Save
    Exit Sub
Err_In_Workbook_Open:
    MsgBox "Error in Proc Workbook_Open, Description : " & vbCrLf & Err.Description, vbCritical, "Error"
End Sub


Bild

Betrifft: AW: Wert bei Aufruf der Datei setzten
von: Christoph
Geschrieben am: 22.03.2005 16:08:19
Gut danke ich werds ausprobieren, vielleicht funktionierts ja
ab ich könnte mir vorstellen, dass einen einfachen befehl für eine bedingung mit Öffnen gibt.
Trotzdem mal danke
Gruß Chris
Bild

Betrifft: AW: Wert bei Aufruf der Datei setzten
von: leo
Geschrieben am: 22.03.2005 16:11:06
den gibt es bestimmt, dummerweise habe ich kaum ein plan von VBA. den code habe ich auch nur aus dem forum.
viel glück
 Bild

Beiträge aus den Excel-Beispielen zum Thema "Wert bei Aufruf der Datei setzten"