Problem beim kopieren
Uppe
mit folgendem Code bestimme ich die letzte Zeile, kopiere einen Textbaustein dahin und will dann die Höhe der letzte Zeile dieses Textbausteins verändern.
Sub Impressum()
intLastRow = Worksheets("Newsletter").Cells(Rows.Count, 2).End(xlUp).Row + 2
Worksheets("Textbausteine").Range("Text_Impressum").Copy Worksheets("Newsletter").Range("B" & _
intLastRow)
Worksheets("Newsletter").Rows(intLastRow + Worksheets("Textbausteine").Range("Text_Impressum") _
.Rows.Count - 1).RowHeight = 3
End Sub
Wenn ich dann im Code nochmal eine Zeile zurück gehe (zum Kopieren), klappt es.
Ich habe versucht dies über eine Schleife abzufangen. Text_Impressum hat einen grauen Hintergrund. Also habe ich abgefragt, ob die letzte Zeile grau ist und wenn nicht sollte der Kopiervorgang wiederholt werden. Leider wurde es eine Endlosschleife.
Komisch ist, dass dies nur manchmal passiert. In 3/4 der Fälle funktioniert es.
Kann mir jemand einen Tipp geben, woran das liegen kann?
Gruß Uppe