VBA-Code Ablauf überspringen
03.04.2008 15:18:58
Toxma
kann jemand helfen?
Folgendes Problem:
Im aufgeführten Code sind mehrere select Case Anweisungen, hab hier nur eine rausgenommen. Frage: Kann man die Abhandlung der einzelnen Code-Ausführung überspringen. Beim ersten öffnen wird ein Datum in Tabelle 1 in Zelle C1 eingetragen. Nach Ablauf von 2 Tagen wird die Datei automatisch gelöscht. Nun soll aber, wenn wie gesagt in Zelle A5 etwas steht, dies nicht passieren, sondern dieser Abschnitt übersprungen werden.
Dachte ungefähr so, wenn in Tabelle 1 in der Zelle A5 ein Text oder eine Zahl eingetragen wurde, soll der Code-Bereich in dem die Zeitbeschränkung vorgegeben ist übersprungen werden alles andere danach ganz normal weiter Ablaufen (Einblenden der Tabellen). Hoffe habe es etwas verständlich erklärt. Hier der Code-Ausschnitt:
Select Case i
Case 1 'User A
If Sheets("Passwort").Range("D1").Value = " " Then
seriennumerEinlesen
ElseIf Sheets("Password").Range("D1").Value <> fs.drives("C").serialnumber Then
'MsgBox "Hallo"
Else: Sheets("Passwort").Range("D1").Value = fs.drives("C").serialnumber
'MsgBox "Berechtigt."
End If
'Usererkennung
Sheets("Passwort").Range("B1") = "A"
'Zeitbeschränkung---------------------------------------------------
Select Case ThisWorkbook.Sheets("Passwort").Range("C1")
Case ""
ThisWorkbook.Sheets("Passwort").Range("C1") = Date
Case Is < DateAdd("d", -2, Date)
' MsgBox "Sie sind nicht berechtigt diese Datei zu öffnen" _
' & vbCr & "bitte wenden Sie sich an den Programmersteller!"
' ActiveWorkbook.ChangeFileAccess xlReadOnly
' Kill ActiveWorkbook.FullName
' ThisWorkbook.Close False
' Exit Sub
Case Else
tage = 3 - (Date - ThisWorkbook.Sheets("Passwort").Range("C1"))
' MsgBox "Nutzergruppe 'A' erkannt, noch " & CStr(tage) & " Tage bis Ablauf der Nutzungsdauer für A"
'-------------------------------------------------------------------------
End Select
'Tabellen einblenden
Application.ActiveWorkbook.Sheets("Tabelle1").Visible = True
Application.ActiveWorkbook.Sheets("Tabelle2").Visible = True
Application.ActiveWorkbook.Sheets("Passwort").Visible = True
Application.ActiveWorkbook.Sheets("Tabelle3").Visible = True
Application.ActiveWorkbook.Sheets("Tabelle4").Visible = False
case 2
case 3
usw...... usw..
case 10
end select
Vielen Dank