Problem RowHeight-Eigenschaft Range-Objekt
05.11.2017 14:02:38
Winfried
wir sind heute auf ein sehr komisches Phänomen gestoßen und wissen nicht wirklich was der Grund hierfür ist.
Ich hab ein Makro geschrieben bei dem der Inhalt eines Tabellenblattes (22 Zeilen lang und 26 Spalten breit) in eine neue Datei kopiert wird und Zeilenhöhe und Zeilenbreite (per Schleife) vom ursprünglichen Tabellenblatt auf das Tabellenblatt der neuen Datei übertragen werden.
tb0 = Name des Tabellenblattes in der neuen Datei
tb5 = Name des Tabellenblattes in der Ursprungsdatei
tb0.Cells.Select
Selection.Interior.Color = 16777215
tb5.Range("A1:AZ30").Copy
tb0.Range("A1:AZ30").Select
Selection.PasteSpecial Paste:=xlPasteAll
For r = 1 To 22
tb0.Rows(r).RowHeight = tb5.Rows(r).RowHeight
Next r
For s = 1 To 26
tb0.Columns(s).ColumnWidth = tb5.Columns(s).ColumnWidth
Next s
"Die RowHeight-Eigenschaft des Range-Objektes kann nicht festgelegt werden."
Auf meinem Copmputer (Excel 365) kommt die Fehlermeldung nicht, bei meiner Schwägerin (ebenfalls Excel 365) allerdings schon.
Jemand ne Idee woran das liegen könnte? Kann das mit der Länge des kopierten Textes zusammenhängen? Warum bekomme ich die Fehlermeldung nicht?
Vielen lieben Dank im Voraus und euch noch einen schönen Sonntag =)
Winfried