Tabellenzellenformat in Spreadsheetzellenformat
23.12.2003 11:17:09
Reinhard
in einer Tabelle haben die beiden Überschritszeilen eigene Zeilenhöhen,verbundene Zellen und gelegentlich die Schrift schräg gestellt. Ab Zeile 3 ist die Zeilenhöhe gleich. Ebenfalls ab Zeile 3 sind zur besseren Lesbarkeit alle Zeilen abwechselnd unterschiedlich farbig (z.B.weiß und gelb).
In den ersten Spalten gibt es verschiedene Spaltenbreiten, danach gilt immer nur noch eine.
Ich habe mir jetzt eine Userform gebastelt die ein Spreadsheet (OWC.Spreadsheet.9) enthält. Dort soll der Anfangsbereich der Tabelle zu sehen sein, um dann durch Steuerelemente auf der Userform die Farben, Spaltenbreiten, Zeilenhöhen, also alle Formate ändern zu können. Die Änderungen sollen dann sofort im Spreadsheet zu sehen sein und beim Schliessen der Userform auf die Tabelle angewandt werden.
Wie mache ich das?
Ich fand mit
Spreadsheet1.Cells(zei, spa).Interior. ...
und dann zig Versuchen daran Color, Colorindex, Patterncolor, RGB(), usw. anzuhängen keine Lösung.
Bei den Spaltenbreiten ist schon das nächste Problem nach dem noch ungelösten Farbenproblem. Standardmäßig haben Zellen wohl 12,75 Breite, aber Spreadsheet-Zellen liefern bei .Widht 65 ??? Fragen über Fragen.
Die Werte werden mit folgendem Zweizeiler kopiert, leider werden nur die Werte kopiert, weil es bei Spreadsheets wohl kein Pastespecial gibt.
Worksheets("Original").Range("A3:L20").Copy
Spreadsheet1.Cells(1, 1).Paste
Danke für die Aufmwerksamkeit
Reinhard