Zeile mit Formel einfügen und anpassung der Höhe
14.09.2006 11:35:19
André
Ich habe hier eine Tabelle mit jeder Menge Formeln.
Wenn ich eine neue Zeile dazwischen einfügen will, habe ich dafür folgendes Makro:
Sub Zeile_Formel()
Dim Zeile1 As Long, Zeile2 As Long
Zeile1 = Selection.Row
Zeile2 = Selection.Row + Selection.Rows.Count - 1
Rows(Zeile1 & ":" & Zeile2).Insert
Rows(1).Copy Rows(Zeile1 & ":" & Zeile2)
End Sub
Ich habe eine ausgeblendete Zeile ganz oben in der Tabelle als Vorlage abgelegt.
Wenn ich nun das Makro benutze, ist die eingefügte Zeile aber auch ausgeblendet. Wie bekomme ich das hin, das die eingefügte Zeile eine festeingestellte Höhe bekommt?
Gruß
André
Anzeige