bed format mit mehr..Makro von Hajo
14.08.2003 13:36:32
Tina
Ich habe mir aus dem Archiv ein Makro von Hajo geladen und für einen Mitarbeiterdienstplan verwendet. Der funktioniert für einzelne Zellen auch super nur: wenn ich mehrere Zellen kopieren oder löschen (entfernen) möchte kommt der Laufzeitfehler 13.
Kann mir da einer helfen? Und, by the way, vielen Dank an Hajo und alle anderen für die wertvollen Tipps.
Danke
Tina
Hier das Original Makro von Hajo
Private Sub Worksheet_Change(ByVal Target As Excel.Range)
erstellt von Hajo.Ziplies@web.de 14.12.02
' SCHRIFT
' für Hintergrund RaZelle.Interior.ColorIndex
Dim RaBereich As Range, RaZelle As Range
' Bereich der Wirksamkeit
Set RaBereich = Range("B3:C20,D1:D7")
' ActiveSheet.Unprotect
For Each RaZelle In Range(Target.Address)
' überprüfen ob Zelle im vorgegebenen Bereich
If Not Intersect(RaZelle, RaBereich) Is Nothing Then
' Kreuz entfernen
RaZelle.Borders(xlDiagonalDown).LineStyle = xlNone
RaZelle.Borders(xlDiagonalUp).LineStyle = xlNone
Select Case RaZelle.Value
Case "1"
' mal eine andere Variante mit Kreuz und Farbe
RaZelle.Borders(xlDiagonalDown).LineStyle = xlContinuous
RaZelle.Borders(xlDiagonalDown).Weight = xlThick
RaZelle.Borders(xlDiagonalUp).LineStyle = xlContinuous
RaZelle.Borders(xlDiagonalUp).Weight = xlThick
RaZelle.Font.ColorIndex = 26
Case "2"
RaZelle.Font.ColorIndex = 24
Case "3"
RaZelle.Font.ColorIndex = 3
' usw.
Case Else
RaZelle.Font.ColorIndex = 0
End Select
End If
Next RaZelle
' ActiveSheet.Protect
Set RaBereich = Nothing
End Sub