Re: nach formatierung suchen
30.07.2002 14:30:27
willi
Moin!Also, meines Wissenstandes nach kannst Du das nur in VBA realisieren.
Dazu:
Drücke ALT+F11
Rechts im Dateienbaum findest Du Deine Arbeitsmappe
Rechter Maus´klick , hinzufügen, MODUL
Dann geht eine leere, weiße Seite auf.
Da kannst Du dann programmieren, bzw. ein Script reinkopieren.
Zum Beispiel dieses:
Option Explicit
Public Sub ausblenden()
Dim Zell, Quel
Dim i
Dim col, colF
Dim Ein As Boolean
For i = 3 To 490 ' Trage hier die Zeilennummern ein, in denen gesucht werden soll!
Ein = False
For Each Zell In ActiveSheet.Range("A" & i & ":AG" & i) ' ersetze A und AG durch die erste und letzte Spalte, die bei dir durchsucht werden soll
col = Zell.Interior.ColorIndex
colF = Zell.Font.ColorIndex ' wenn Du auf ColorIndex den Cursor stellst und F1 drückst, siehst du die Zuordnung der Farben
If Not col = xlColorIndexNone Then
Ein = True
ElseIf Not colF = xlColorIndexAutomatic And Not colF = 1 Then
Ein = True
End If
Next
If Ein = False Then
ActiveSheet.Rows(i).Hidden = True
End If
Next i
End Sub
Dann ändere wie im Skript angegeben die Anfangs-und endewerte.
Starten mit dem Pfeil oben in der Leiste (Symbol PLAY wie beim Kassettenrecorder). Danach sind alle Zeilen, in denen die Schreibfarbe "automatic" ist und die Zellfarbe weiß oder Farblos ist.
Willi