scrollbar max wert vorgeben

Forumthread: scrollbar max wert vorgeben
2 Beiträge zu diesem Forumthread
Anzeige
VBA Beispiele zu verwandten Themen

Forumthread: scrollbar max wert vorgeben

11.09.2006 21:35:36

selo

hallo
ich versuche gerade mit
If ActiveSheet = Worksheets("tabelle1") Or Worksheets("tabelle2") Then
ScrollBar1.Max = 240
Else
ScrollBar1.Max = 40
End If
ActiveWindow.ScrollColumn = ScrollBar1.Value
doch irgendwie funktioniert das nicht.Was mache ich denn hier falsch
gruß
selo

2
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: scrollbar max wert vorgeben

11.09.2006 21:47:02

ingUR
danke funzt super

11.09.2006 21:56:09

selo

AW: scrollbar max wert vorgeben

11.09.2006 21:47:02

ingUR

Hallo, @selo,
vorausgesetzt, die Tabellennamen beginen tatsächlich mit Kleinbuchstaben (Groß-/Kleinschreibung wird beim Vergleich beachter!):

Private Sub UserForm_Initialize()
If ActiveSheet.Name = "tabelle1" Or _
ActiveSheet.Name = "tabelle2" Then
ScrollBar1.Max = 240
Else
ScrollBar1.Max = 40
End If
End Sub

Gruß,
Uwe

danke funzt super

11.09.2006 21:56:09

selo