Durch die Verschiebung bestimmter Zellbereiche gehen meine die Formatierung verloren.
Läßt sich in Excel etwas machen, dass sie dennoch erhalten bleiben.
Danke für eure Hilfe.
Gruß
Karsten
Private Sub Worksheet_Change(ByVal Target As Range)
Dim Zelle As Range
Dim FormatArt As Long
If Not Intersect(Target, Range("A3:O24")) Is Nothing Then
For Each Zelle In Intersect(Target, Range("A3:O24"))
FormatArt = ((Zelle.Column - 1) Mod 3) * 2 + 1
FormatArt = FormatArt + ((Zelle.Row + 1) Mod 2)
Select Case FormatArt
Case 1
MsgBox "Format " & FormatArt
Zelle.Borders(xlEdgeLeft).Weight = xlThin
Zelle.Borders(xlEdgeTop).Weight = xlThin
Case 2
MsgBox "Format " & FormatArt
Case 3
MsgBox "Format " & FormatArt
Case 4
MsgBox "Format " & FormatArt
Case 5
MsgBox "Format " & FormatArt
Case 6
MsgBox "Format " & FormatArt
End Select
Next
End If
End Sub
Gruß, Daniel