scrollarea
03.10.2012 18:44:33
Volker
ich habe ein Problem(chen) mit der Festlegung eine Scrollbereiches.
Zum Hintergrund:
Aus einer Arbeitsmappe wird mittels:
sheets("Rechnungsvorlage (2)").Move
With activeWorkbook.VBProject
For Each objKomp In .VBComponents
Select Case objKomp.Type
Case 1, 2, 3 ' Module, Klasssenmodule, Userforms
.VBComponents.Remove .VBComponents(objKomp.Name)
Case 100 ' Klasssenmodule von Workbook, Sheets
With objKomp.CodeModule
.DeleteLines 1, .CountOfLines
End With
End Select
Next
End With
eine neue Arbeitsmappe erzeugt. Wie zu sehen ist, hat diese keinen Code mehr. das soll bis jetzt auch so sein.
Die Mappe wird jetzt noch etwas (per VBA) bearbeitet. Umbenannt, Überflüssiger Text
entfernt, Größe, Farbe u.s.w. angepasst. Soweit sogut.
Da diese Datei irgendwann wieder geöffnet wird, würde ich gerne im letzten Schritt
eine scrollarea (A1:BK64) einfügen. Da liegt mein Problem, ich weiss nicht wie.
Kann mir jemand einen Tip geben?
Danke und Gruß
Volker