Live-Forum - Die aktuellen Beiträge
Datum
Titel
19.04.2024 09:26:26
Median für Zeilen mit gleichen Zeitstempel
19.04.2024 08:41:23
Zwei Makros in ein Arbeitsblatt - zweite wird nicht ausführt
18.04.2024 21:09:11
4 Spalten aus smarter Tabelle in andere smarte Tab. kopieren
18.04.2024 20:45:35
Worksheet_Activate für alle Sheets
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1028to1032
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1028to1032
1028to1032
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Scrollen erlauben - WENN !!

Scrollen erlauben - WENN !!
30.11.2008 18:21:00
Heinz
Hallo Leute
Ich möchte einen Scrollbereich beschränken, Sheets("Eingabe").ScrollArea = "C1:V25"
Nur wenn im Sheets("Eingabe") in K6 "Test" steht dann sollte der Scrollbereich aufgehoben werden.
Könnte mir dazu bitte jemand helfen ?
Danke & Gruß
woody

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Scrollen erlauben - WENN !!
30.11.2008 18:34:00
rofu
hi,
ein ansatz dazu
gruß
rofu

Sub TT()
If Range("K6") = "Test" Then
ActiveSheet.ScrollArea = "A1:iv65000"
Else
ActiveSheet.ScrollArea = "C1:V25"
End If
End Sub


AW: Scrollen erlauben - WENN !!
30.11.2008 18:41:00
hary
Hallo Woody
Hier wird beim Start der Mappe die Area festgesetzt.
versuchmal:

Private Sub Worksheet_Activate()
Worksheets("Tabelle1").ScrollArea = "C1:V25"
End Sub
Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)
If Cells(6, 11) = "Test" Then
Worksheets("Tabelle1").ScrollArea = ""
End If
End Sub


Gruss Hary

Anzeige
meinte activieren der Tabelle owt
30.11.2008 18:46:35
hary
.
AW: DANKE + DANKE an Hary & Rofu
30.11.2008 19:14:26
Heinz
Hallo Ihr beiden !!
Recht herzlichen Dank !!
Funktioniert --- S U P E R --- Euer Code !!!
Danke & Gruß
Heinz

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige