Hallo zusammen,
habe eine Frage an Euch.
Ich habe in Excel 2003 ein kleines Tool geschrieben, bei dem Bestimmte Daten in bestimmte zellen geschrieben werden.
Dabei läuft eine Schleife durch bei der ich dann sage, dass er die Zellhöhe um +7 erhöhen soll.
Das klappt auch in 2003. Nun wollte ich das ganze in 2007 laufen lassen, da meckert er aber rum.
Hier der Code:
AnzahlAngebotstexteLANG = Worksheets("strg").Range("p29")
For i = 8 To AnzahlAngebotstexteLANG + 7
Sheets("Angebot_Druck").Cells(53 + i, 1) = Sheets("strg").Cells(i, 17) 'Nummerierung
Sheets("Angebot_Druck").Cells(53 + i, 2).Select
Worksheets("Angebot_Druck").Range(Cells(53 + i, 2), Cells(53 + i, 3)).MergeCells = True
Sheets("Angebot_Druck").Cells(53 + i, 2) = Sheets("strg").Cells(i, 14) & Chr(10) & Sheets("strg").Cells(i, 15) 'Kurz
Call AutoFitMergedCellRowHeight
Rows(53 + i).RowHeight = Rows(53 + i).RowHeight + 7
Und bei
Rows(53 + i).RowHeight = Rows(53 + i).RowHeight + 7 meckert er in 2007.
Wo ist der Fehler?
Danke im voraus.
Gruß David