ScrollArea festlegen
04.11.2004 08:43:53
Vitali
Das Problem ist folgendes: Ich möchte, dass in einer Tabelle einige Spalten nicht wählbar sind. Ich habe es schon mit Blatschutz versucht. Danach ist aber die ganze Zeile nicht veränderbar.(Die muss aber gelösch oder kopiert werden). Ich habe mit Scrollarea versucht, es klappte bei mir nur für einen bestimmten Bereich. Dann versuche ich diesen Code:
Function ScrollArea()
Dim a As Integer
Dim Ber1 As Range, Ber2 As Range, Ber3 As Range
Dim Bereiche As Range
a = getAnzahlElement + 3
Set Ber1 = Worksheets(ActiveSheet.name).Range("A3:B" & a)
Set Ber2 = Worksheets(ActiveSheet.name).Range("F3:J" & a)
Set Ber3 = Worksheets(ActiveSheet.name).Range("L3:R" & a)
Set Bereiche = Union(Ber1, Ber2, Ber3)
Worksheets(ActiveSheet.name).ScrollArea = Bereiche
End Function
kriege aber immer eine Fehlermeldung.(Typen sind unverträglich)
Wer kann mir bitte weiterhelfen?
Danke.