AW: Date in VBA Problem
17.11.2004 00:33:01
Drazen
Hi
habe vergessen die Frage noch offen zu lassen, also hier mal mein ganzer Code, alles beim Workbook_open Erreignis:
Private Sub Workbook_Open()
Dim Pfad As String
Dim wb1 As Workbook
Dim ws1 As Worksheet
Set wb1 = ThisWorkbook
Set ws1 = wb1.Worksheets("Timer")
Application.ScreenUpdating = False 'ausschalten der Bildschirmaktualisierung
'Sheets("Timer").Visible = True
Sheets("Timer").Visible = xlVeryHidden 'Vorteil sie können nicht über "Format" -> "Blatt einblenden" eingeblendet werden
If ws1.Cells(1, 1).Value = "" Then 'eintrag des starttages der Frist beim ersten Start
ws1.Cells(1, 1).Value = Date
ws1.Cells(1, 2).Value = 30
ws1.Cells(1, 3).Value = "DEMO"
End If
'Test ob die Frist rum ist
If ws1.Cells(1, 2).Value = "free" Then 'bei Besitz einer unbegrenzt gültigen Version (string ist egal bedeutung ist wichtig)
ElseIf ws1.Cells(1, 1).Value + ws1.Cells(1, 2).Value < Date Then 'wenn startdatum+Frist schon vergangen sind
Application.ScreenUpdating = True
MsgBox "KRAJ POKUSNOG PERIODA" & vbLf & vbLf & _
"Pokusna verzija Vaeg Kontex-a je istekla." & vbLf & _
"Ukoliko elite i dalje koristiti ovu aplikaciju" & vbLf & _
"obratite se vlasniku autorskog prava za autorizaciju.", vbInformation
Application.DisplayAlerts = False
wb1.Close
End If
Application.ScreenUpdating = True 'ausschalten der Bildschirmaktualisierung
Sheets("BAZA PODATAKA").Visible = xlVeryHidden
Sheets("RADNA DOZVOLA").Visible = xlVeryHidden
Sheets("PODA").Visible = xlVeryHidden
Sheets("INAKTIV").Visible = xlVeryHidden
Sheets("NAMENSLISTA 2. STRANA").Visible = xlVeryHidden
Sheets("AAMT").Visible = xlVeryHidden
Sheets("FUNKCIJA").Visible = xlVeryHidden
Sheets("QUITTUNG").Visible = xlVeryHidden
Sheets("NAMENSLISTA 1. STRANA").Visible = xlVeryHidden
Sheets("FIRMA").Visible = xlVeryHidden
Application.Visible = False
frm_START.Show
End Sub
hab mich schon echt dusselig gesucht, auch mit Date als Variablen geht es nicht, was mach ich nur falsch, muss ich bei meinem anderen Laptop(Excel2000) noch was draufinstallieren?
Grüsse Drazen