Danke für die Hilfe.
Gruß Oblivion
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim x, y as Integer
If Not Application.Intersect(Target, Range("A2:H69")) Is Nothing Then
x = Application.ActiveCell.Row
y = Application.ActiveCell.Column
Cells(x - 1, y).Copy
Cells(x, y).PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False
Application.CutCopyMode = False
End If
End Sub
Bei Target,Range gibst Du den Bereich an, den Du voraussichtlich brauchst. Dann wird bei Anwahl einer Zelle im festgelegten Bereich immer die Formatierung der darüberliegenden Zelle übernommen.
Gruß
Helmut