Suchen in allen Tabellen Code ergänzen
13.11.2005 12:35:50
egon
Mit diesem Code suche und ändere ich Zellen.
Wie könnte ich in allen Tabellenblättern suchen die Seite1, Seite2 usw. heissen?
Dim zelle As Range
For Each zelle In Range("F2:F40")
If zelle.Interior.ColorIndex = 4 Then
zelle.Interior.ColorIndex = 3
zelle.Offset(0, -2).Value = ""
End If
Next zelle
End Sub
Noch ne Frage: Wie könnte ich beim Erstellen einer neuen Seite5 z.B. Code in die untenstehende Sub einfügen? Geht das? (Den Code brauche ich in jedem Tabellenblatt)
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Hier soll der Code rein!!!!
End Sub
Gruß
Egon
Anzeige