Spreadsheet und Scrollbars
18.04.2005 14:04:19
{Boris}
ich lese Daten in ein Spreadsheet ein mit (sinngemäß):
Private Sub UserForm_Initialize()
Dim rngCur As Range
Dim rngTarget As Object
Set rngCur = Worksheets("Auswertung").Range("A1").CurrentRegion
With Me.Spreadsheet1
Set rngTarget = .Cells.Range(rngCur.Address)
.ViewableRange = rngCur.Address
.DisplayColHeaders = False
.DisplayRowHeaders = False
.DisplayTitleBar = False
.DisplayToolbar = False
.Columns.AutoFitColumns
End With
End Sub
Jetzt kann es sein, dass der Tabellenbereich (rngCur) nur 6 Spalten und 9 Zeilen umfasst - und daher ein scrollen im Spreadsheet nicht notwendig ist, da sowieso alles sichtbar ist.
Für diesen Fall möchte ich die Scrollbars erst gar nicht anzeigen respektive ausblenden mit
.DisplayHorizontalScrollBar = False
.DisplayVerticalScrollBar = False
Andernfalls sollen die Bars natürlich vorhanden sein.
Geht das? Wenn ja: Wie?
Danke und Grüße
Boris