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"