AW: Wert aus Zelle auslesen, dann vba ausführen
22.09.2005 11:37:52
Torge
Hallo René,
habe mal noch eine Frage.
Was muss ich denn bei "Call Modul/Sub...." weiter eintragen? Heißt dass, das ich in einem Modul dann diese Prozedur eingeben muss?
Ich möchte gern erreichen, dass wenn in Zelle A1 der Wert 2 steht nichts passiert, und bei 1 eben das Makro abläuft. Bei mir sollte es dann so sein, bei Zelle A1 = Wert1 die Datei soll ab einen bestimmten Datum nicht mehr zur Verfügung stehen. Bei A1 = Wert2 soll diese erst nach 2 Jahren Nutzung abgelaufen sein. Kannst Du mir einen Ansatz geben? Ich habe folgenden Code im Nezt bzw in Foren gefunden und möchte dies von den Bedingungen abhängig machen
Private Sub Workbook_Open()
Application.DisplayFullScreen = False
'True
Heute = Now
'Eingabehinweise:'
'Berechtigungsdatum, Verfalldatum eingeben'
'Berechtigungsdatum 10 Tage vor Verfalldatum'
'Prompt: Nutzungsberechtigung bis xx.xx (Verfalldatum)'
Berechtigungsdatum = #9/20/2009#
' Verfalldatum = #09/30/2009#
If Berechtigungsdatum > Heute Then
Else
Prompt = "Nutzungsberechtigung bis 20.09."
DialogArt = vbOKOnly
Antwort = MsgBox(Prompt, DialogArt)
End If
If Berechtigungsdatum > Heute Then
Else
Prompt = "Nutzungsberechtigung bis 22.09."
DialogArt = vbOKOnly
Antwort = MsgBox(Prompt, DialogArt)
End If
If Date >= CDate("30.09.2009") Then
MsgBox "Ihre Testphase ist abgelaufen," _
& vbCr & " und weg"
ActiveWorkbook.ChangeFileAccess xlReadOnly
Kill ActiveWorkbook.FullName
ThisWorkbook.Close False
End If
If Date >= "25.09.2009" Then
MsgBox "Ihre Testphase ist abgelaufen," _
& vbCr & "und zu"
ActiveWorkbook.Close savechanges:=False
End If
End Sub
Danke schon mal
Torge