variabler scroll bereich



Excel-Version: 5.0/7.0
nach unten

Betrifft: variabler scroll bereich
von: Achill
Geschrieben am: 20.06.2002 - 14:41:52

Hallo,

kann man die scroll area mit einer variablen Belegen?
d.h. der Benutzer kann zuerst nur im Bereich a1:a10 scrollen, dann clickt er auf einen Button und der Scroll - Bereich verschiebt sich um eine Zeile nach unten.

Vielen Dank,
Achill

nach oben   nach unten

Re: variabler scroll bereich
von: Timo
Geschrieben am: 20.06.2002 - 15:16:54

Grad mal was auf die Schnelle getestet, anpassen müsstest du das Teil dann selbst. Die Scrollarea wird um eine Zeile vergrössert!


Sub Bereichz()
Dim a
Dim alt
Dim i

a = Worksheets(1).ScrollArea
For i = Len(a) To Step -1
    If Not (IsNumeric(Mid(a, i, 1))) Then
        alt = Mid(a, i + 1, Len(a))
        Exit For
    End If
Next i

alt = alt + 1

a = Left(a, i) & alt

Worksheets(1).ScrollArea = a
End Sub

Gruss
Timo


nach oben   nach unten

Re: variabler scroll bereich
von: Timo
Geschrieben am: 20.06.2002 - 15:18:40

Grad mal was auf die Schnelle getestet, anpassen müsstest du das Teil dann selbst. Die Scrollarea wird um eine Zeile vergrössert!


Sub Bereichz()
Dim a
Dim alt
Dim i

a = Worksheets(1).ScrollArea
For i = Len(a) To Step -1
    If Not (IsNumeric(Mid(a, i, 1))) Then
        alt = Mid(a, i + 1, Len(a))
        Exit For
    End If
Next i

alt = alt + 1

a = Left(a, i) & alt

Worksheets(1).ScrollArea = a
End Sub

Gruss
Timo


nach oben   nach unten

Re: variabler scroll bereich
von: Timo
Geschrieben am: 20.06.2002 - 15:20:17

Grml, ichweiss zwar nicht, wieso das Teil jetzt zweimal erschienen ist, aber ok... Ich hab zu spät gesehen, dass du Excel 7.0 angegeben hast. Ich weiss nich, wie das da mit VBA aussieht. Wenn nicht vorhanden, kann ich dir leider nicht weiterhelfen...

Gruss
Timo


nach oben   nach unten

Error
von: Achill
Geschrieben am: 20.06.2002 - 15:51:53

ich bekomme einen "Application defined or Object defined error"
fuer die Zeile
Worksheets(1).ScrollArea = a

Danke fuer deine Hilfe!


nach oben   nach unten

Welche XL-Version?
von: Timo
Geschrieben am: 20.06.2002 - 16:02:37

Hallo, habe es grad nochmal versucht, bei mir funktioniert das Teil ohne Probleme. Scheint also an der Excelversion zu liegen, ich verwende Excel 97.

Übrigens muss ich sagen, dass du mich auf einige ganz nette Ideen gebracht hast mit deiner Frage. Kann mein Makro also auch selbst verwenden ;)

Gruss
Timo


nach oben   nach unten

Re: Welche XL-Version?
von: Achill
Geschrieben am: 20.06.2002 - 16:15:39

Ich hatte es im falschen Arbeitsblatt versucht.
Im Richtigen hat es funktioniert.
Ich moechte aber nicht dass es den scrollbereich um eine Zeile erweitert, sondern um eine Zeile nach unten verschiebt, so dass die Werte in der Zeile darueber "unantastbar" werden.
Ich muss gestehen dass ich dein Macro nicht ganz durchblicke, daher kann ich es selber nicht aendern...

Gruss,
Achill


nach oben   nach unten

Re: Welche XL-Version?
von: Timo
Geschrieben am: 21.06.2002 - 10:52:05

Hier steht wie dein Problem gelöst wird!

https://www.herber.de/forum/messages/130369.html

Gruss
Timo

 nach oben

Beiträge aus den Excel-Beispielen zum Thema "variabler scroll bereich"