Ich habe einen Zellbereich mit Zahlen von 1 bis 49. Acht dieser Zahlen(Zellen) sind mit einem Kreuz formatiert(Rahmen diagonal). Den Inhalt dieser Zellen würde ich gerne in einem anderen Zellbereich(zB. a1:a8)kopiert sehen. Mein Tabellenblatt enthält bereits folgende VBA:
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Selection.Borders(xlDiagonalDown).ColorIndex 56 Then
With Selection.Borders(xlDiagonalDown)
.LineStyle = xlContinuous
.Weight = xlMedium
.ColorIndex = 56
End With
With Selection.Borders(xlDiagonalUp)
.LineStyle = xlContinuous
.Weight = xlMedium
.ColorIndex = 56
End With
Else
Selection.Borders(xlDiagonalDown).LineStyle = xlNone
Selection.Borders(xlDiagonalUp).LineStyle = xlNone
End If
Range("A1").Select
End Sub
Könnte das hier mit einfliessen?
Vielen Dank schon jetzt.