Makrofehler
04.03.2005 13:19:27
RolandSch
ich hab ein kleines Problem !
Mittels eines Makros soll eine Tabelle autoausgefüllt werden.
In einer anderen Version hat es funktioniert, hier kommt immer die Fehlermeldung des Debugger.
Er weist hin auf: Select Case UCase(c.Offset(0, -8))
Steht ich da im Wald und seh den Baum nicht ?
-----------------------------------
Sub Ausfüllen()
'If MarkierungVorh = True Then
Eingabe = MsgBox("sollen die Dienstzeiten wirklich überschrieben werden?", vbYesNo, "Sicherheitsabfrage")
If Eingabe = vbYes Then
End If
Eingabe = MsgBox("Dieser Vorgang kann nicht rückgängig gemacht werden !", vbYesNo, "letzter Warnhinweis")
If Eingabe = vbYes Then
Range("D17:D47") = #7:30:00 AM#
Range("E17:E47") = #12:00:00 PM#
Range("F17:F47") = #12:30:00 PM#
Dim c As Range
For Each c In Range("G17:G47")
-> Select Case UCase(c.Offset(0, -8))
Case "FR"
c = #2:30:00 PM#
Case "SA", "SO", "WF", "WE", "OP", "OS", "PF", "SV", ""
Range(c.Offset(0, -2), c) = ""
Case Else
c = #4:00:00 PM#
End Select
Next c
End If
End Sub