Hallo zusammen!
Ich brauche mal Eure Hilfe!
Ich habe eine Tabelle wo ich bestimmt Zeilen für einen Ausdruck ausblenden möchte und diese Seite dann ausdrucken kann.
Allerdings bekomme ich immer folgende Fehlermeldung:
Laufzeitfehler '1004':
Die Hidden-Eigenscjaft des Range-Objektes kann nicht festgelegt werden.
Code ist folgender:
Option Explicit
Private Sub CommandButton1_Click()
With Me
.Rows("3:44").Hidden = True
.Rows("52:55").Hidden = True
.Rows("59:74").Hidden = True
.Rows("79:94").Hidden = True
.Rows("99:114").Hidden = True
.Parent.Sheets(Array("Mo", "Di")).PrintPreview
End With
End Sub
Private Sub CommandButton2_Click()
Rows("2:172").Select
Range("N2").Activate
Selection.EntireRow.Hidden = False
Range("A1:A2").Select
End Sub
Private Sub Worksheet_Change(ByVal Target As Range)
Dim tmp, i As Integer, sum As Double
If Target.Count = 1 Then
On Error GoTo ErrExit
Application.EnableEvents = False
If Target <> "" Then
Select Case Target.Column
Case 3 To 12, 14 'C:L, N
Select Case Target.Row
Case 6 To 7
tmp = Split(Target, ",")
For i = 0 To UBound(tmp)
If IsNumeric(tmp(i)) Then
sum = sum + tmp(i)
Else
Select Case UCase(Trim(tmp(i)))
Case "H": sum = sum + 0.45
Case "D": sum = sum + 0.53
Case "T": sum = sum + 0.66
Case "M": sum = sum + 0.66
End Select
End If
Next
Target = sum
End Select
End Select
End If
If Target.Column = 3 Then Target.Formula = "=" & Replace(Target.Value, ",", ".") & "*.9-K6"
If Target.Column = 4 Then Target = Target * 0.9
End If
ErrExit:
Application.EnableEvents = True
End Sub
Habt Ihr eine Idee wie ich das lösen kann? Nutze Excel 2003.
Besten Dank schon einmal!
|