Mit VBA-Code alle eingeblendeten Tabellenblätter anwählen

Hallo Ardona,

mache einen Rechtsklick auf den Reiter des entsprechenden Tabellenblattes und wähle "Code anzeigen". Damit bist du schon im richtigen Codefenster und musst nur den oberen Code dort einfügen.

Wenn du den unteren Code nutzen willst, musst du im VBA-Editor zuerst ein Standardmodul einfügen und den Code in dieses Standardmodul einfügen.

Claus

Hallo,

wenn du für alle Tabellenblätter den gleichen Scrollbereich festlegen möchtest, dann kopiere den Code von Claus in den Codebereich für "Diese Arbeitsmappe" (siehe Projektexplorer auf der linken Seite deines Screenshots).

Du scheinst den Code nicht nur verkehrt, sondern auch noch in den Codebereich für die Tabelle "L V G" geschrieben zu haben.

Warum begrenzt du den Scrollbereich nicht ohne VBA?

Dazu brauchst du nur alle Spalten und Zeilen die nicht verwendet werden sollen ausblenden und die Tabellenblätter schützen.

MfG

Mike

Ja, das lässt sich mit VBA machen. Es gibt verschiedene Ereignisse in die man sich "reinhängen" kann, für diesen Fall wäre IMHO das Wechseln des Tabellenblattes das sinnvollste um eine Berechnung auszuführen.
Klicke mit der rechten Maustaste auf die Blattregisterkarte
Wähle "Code anzeigen"
Füge den folgenden Code ein
Schließe den VBA-Editor
Wechsel in ein anderes Blatt und zurück
Andreas.
Private Sub Worksheet_Activate()
Me.Calculate
End Sub

Das geht nur mit VBA.
Klicke mit der rechten Maustaste auf die Blattregisterkarte
Wähle "Code anzeigen"
Füge den folgenden Code ein
Schließe den VBA-Editor

Dann mach ein X in z.B. A3 und Spalte 3 wird ausgeblendet. Entfernst Du das X wird sie eingeblendet.
Andreas.
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column <> 1 Then Exit Sub
Columns(Target.Row).Hidden = Not IsEmpty(Target)
End Sub

Hallo Corinna,

meinst du den Blattschutz? Bei Schreibschutz könntest du ohne Passwort gar nicht öffnen.

Falls Blattschutz: Wenn du alle Zellen anwählen kannst, kopiere die Daten und füge sie in eine neue Mappe ein.

Kannst du nicht alle Zellen selektieren, klicke rechts auf den Tabellenblatt-Reiter und gehe auf Code anzeigen. Stelle im Eigenschaften-Fenster des Blattes die "EnableSelection"-Eigenschaft auf 0 - xlNoRestrictions und wiederhole dann Schritt1.

Claus