Office: WS Tabelle

Hallo Leute,

ich hab ein RIESEN Problem.. und zwar soll das IF so Funktionieren:


If WsTabelle.Weekday(Cells(i, 1), 2) < 6 Then

Sprich: Die Tabelle die in der Variable WsTabelle gerade aktiv ist in DER TABELLE soll der Weekday in Cells(i,1),2) gecheckt werden.

Aber das

If WsTabelle.Weekday lässt er nicht zu.. hoff es ist verständlich was ich meine und hoff mir kann jmd helfen.. unten der komplette VBA Code

Danke im Vorraus :)


Private Sub CommandButton6_Click()
pw = InputBox("Bitte geben Sie zur Bestätigung 'LÖSCHEN12345%' ein." & vbLf & vbLf & _
"!!VORSICHT!!" & vbLf & vbLf & _
"ALLE DATEN WERDEN GELÖSCHT!")
If pw = "LÖSCHEN12345%" Then
Dim a As String
a = MsgBox("Sind Sie sicher, dass Sie alle Daten löschen möchten?", vbYesNo, "")
If a = vbYes Then
For Each WsTabelle In Sheets
Select Case WsTabelle.Name
Case "Rechner", "(c) me", "Administration", "Daten", "Passwörter", "Benutzer"
' Blattschutz wird nicht aufgehoben für diese beiden
Case Else
' für alle anderen wird Blattschutz aufgehoben
WsTabelle.Unprotect Worksheets("Passwörter").Range("C1")
For i = 2 To 31
If Weekday(Cells(i, 1), 2) < 6 Then
WsTabelle.Range("A" & i & ":K" & i).Interior.ColorIndex = 42
WsTabelle.Range("A" & i & ":C" & i).Font.FontStyle = "Bold"
WsTabelle.Range("I" & i & ":J" & i).Font.FontStyle = "Bold"
End If
If Weekday(Cells(i, 1), 2) < 6 Then
WsTabelle.Range("A" & i & ":K" & i).Interior.ColorIndex = 16
WsTabelle.Range("A" & i & ":K" & i).Font.FontStyle = "Standard"
WsTabelle.Range("C" & i & ":C" & i).ClearContents
WsTabelle.Range("D" & i & ":D" & i).ClearContents
WsTabelle.Range("E" & i & ":E" & i).ClearContents
WsTabelle.Range("F" & i & ":F" & i).ClearContents
WsTabelle.Range("G" & i & ":G" & i).ClearContents
WsTabelle.Range("H" & i & ":H" & i).ClearContents
WsTabelle.Range("I" & i & ":I" & i).ClearContents
WsTabelle.Range("J" & i & ":J" & i).ClearContents
WsTabelle.Range("K" & i & ":K" & i).ClearContents

End If
If Weekday(Cells(i, 1), 2) < 6 Then
Range("A" & i & ":K" & i).Interior.ColorIndex = 1
End If
Next i
Dim LöschBereich As String
Dim LöschBereich1 As String
Dim LöschBereich2 As String
Dim LöschBereich3 As String
Dim LöschBereich4 As String

LöschBereich = "D2:D31"
LöschBereich1 = "E2:E31"
LöschBereich2 = "F2:F31"
LöschBereich3 = "M2:Q31"
LöschBereich4 = "E42:H72"

WsTabelle.Range(LöschBereich).ClearContents
WsTabelle.Range(LöschBereich1).ClearContents
WsTabelle.Range(LöschBereich2).ClearContents
WsTabelle.Range(LöschBereich3).ClearContents
WsTabelle.Range(LöschBereich4).ClearContents

End Select
Next WsTabelle
Call Stempellöschen
Call sperren
MsgBox ("Alle Daten wurden gelöscht")
End If
Else
If StrPtr(pw) = 0 Then
MsgBox ("Es wurde abgebrochen!" & vbLf & vbLf & "Es wurde nichts gelöscht")
Else
MsgBox "Der Bestätigungscode war falsch" & vbLf & vbLf & _
"Es wurde nichts gelöscht"
End If
End If
End Sub

 

Hallo!

Weekday ist ja auch kein Objekt einer Tabelle, sondern eine Funktion!

If Weekday(WsTabelle.Cells(i, 1), 2) < 6 Then

 

ahhhh cool.. so einfach kanns sein - bist ein schatzi ^^ hehe