Blattschut aktive Zelle gelb auch in Tabelle2 ???

Hallo,
kann jemand helfen. Bei öffnen meiner Beispieldatei (Ausgeblendete Tabellen werden eingeblendet mit PW) mit Pw d und Name d sind die aktiven Zellen in Tabelle1 gelb bei der Auswahl. Beim schließen der Datei wird die Farbe aus den aktiven Zellen entfernt, damit diese nicht mit der gelben Zellfarbe gespeichert wird. Wie muss man diese ändern, damit das Makro nur im Tabellenblatt2 passiert. Eventuell stelle ich mir vor, wenn das Blatt aktiv ist, dann setze die aktiven Zellen bei Auswahl mit der Farbe gelb, wird das Tabellenblatt verlassen, dann soll der alt Zustand wieder hergestellt werden, eben wie im Makro für die gesamte Datei.
Hoffe hab mich etwas verständlich erklärt. Hab es in einem anderen Beispiel versucht aber immer einen Fehlerbericht bekommen und die Datei zerschossen.
Füge mein Datei bei.
https://www.herber.de/bbs/user/50414.xls
Danke schon Mal
T.

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hallo Thorge,
mit folgenden Ergänzungen/Anpassungen geht es. Dies Tabellen, in denen die "Gelbfärbung" wirksam sein soll, muss du in der Case-Zeile angeben.
Die Worbook_SheetActivate-Prozedur hab ich eingefügt, weil es bei mir (Excel2003) Probleme mit der Anzeige der aktiven Zelle gibt, wenn man mehrfach die Blätter wechselt ohne eine Zelle zu selektieren.
Gruß
Franz


Private Sub Workbook_SheetActivate(ByVal Sh As Object)
Select Case Sh.Name
Case "Tabelle2", "Tabelle3"
ActiveCell.Select
Case Else
'do nothing
End Select
End Sub
Private Sub Workbook_SheetDeactivate(ByVal Sh As Object)
On Error Resume Next
Select Case Sh.Name
Case "Tabelle2", "Tabelle3"
Sh.Unprotect
If Not OldCell Is Nothing Then OldCell.Interior.ColorIndex = OldIndex
Sh.Protect
Case Else
'do nothing
End Select
End Sub
Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Excel.Range)
Select Case Sh.Name
Case "Tabelle2", "Tabelle3"
Sh.Unprotect
On Error Resume Next
OldCell.Interior.ColorIndex = OldIndex
If Not OldCell Is Nothing Then
OldIndex = Target.Interior.ColorIndex
End If
Target.Interior.ColorIndex = 6
Set OldCell = Target
ActiveSheet.Protect
Case Else
'do nothing
End Select
End Sub

Private Sub Workbook_SheetActivate(ByVal Sh As Object) ActiveCell.Select End Sub Private Sub Workbook_SheetDeactivate(ByVal Sh As Object) Select Case Sh.Name Case "Tabelle2", "Tabelle3" Sh.Unprotect If Not OldCell Is Nothing Then OldCell.Interior.ColorIndex = OldIndex Set OldCell = Nothing Sh.Protect Case Else 'do nothing End Select End Sub Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Excel.Range) Select Case Sh.Name Case "Tabelle2", "Tabelle3" Sh.Unprotect On Error Resume Next OldCell.Interior.ColorIndex = OldIndex If Not OldCell Is Nothing Then OldIndex = Target.Interior.ColorIndex End If Target.Interior.ColorIndex = 6 Set OldCell = Target ActiveSheet.Protect Case Else Set OldCell = Nothing End Select End Sub

Beliebteste Forumthreads (12 Monate)

Blattschut aktive Zelle gelb auch in Tabelle2 ???

5
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

300 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Blattschut aktive Zelle gelb auch in Tabelle2 ???

5 Beiträge zum Forumthread Beiträge zu diesem Forumthread

300 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

5
Beiträge zum Forumthread

Beiträge zu diesem Forumthread