Fadenkreuz
06.01.2009 02:16:00
Lutz
im Archiv habe ich diesen Beitrag gefunden und ihn in meine Arbeitsmappe eingearbeitet.
Funktioniert auch prima.
1. dieses Makro im Codebereich von "Diese Arbeitsmappe" einfügen
Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
ActiveWorkbook.Names.Add Name:="Sel_Zeile", RefersToR1C1:="=" & Selection.Row
ActiveWorkbook.Names.Add Name:="Sel_Spalte", RefersToR1C1:="=" & Selection.Column
End Sub
2. diese Formel für die bedingte Formatierung in den Zellen, in denen das Fadenkreuz angezeigt werden soll:
=ODER(SPALTE(A1)=Sel_Spalte;ZEILE(A1)=Sel_Zeile)
Jetzt wollte ich per Makro den Inhalt der ersten Zeile löschen und damit es schneller geht, die darauffolgenden Zeilen löschen.
Dann kam die Meldung Excel 400.
Danach wollte ich die Formate der ersten Zeile auf alle drunterliegenden Zeilen übertragen.
Habe ich dabei einen Denkfehler?
Danke für die Unterstützung
Lutz