Office: Zeile einfügen

Hallo Leute!

ich möchte eine Zeile markieren und über ein CommandButton sollen dann darunter 2 neue Zeilen eingefügt werden. Die erste Zeile mit einer Zeilenhöhe von 13.5 und die zweite, 4.5.

Wenn ich nun folgendes Makro ausführe, werden zwar Zeilen hinzugefügt, aber nur mit einer Zeilenhöhe von 4.5. Woran liegt das? Was mache ich falsch? Vielen Dank schonmal!

Code:

Sub NewLine()
'
' NewLine Makro


' Tastenkombination Strg+q

    ActiveCell.Select
    Selection.Insert Shift:=xlDown
    Selection.RowHeight = 13.5
    ActiveCell.Select
    Selection.Insert Shift:=xlDown
    Selection.RowHeight = 4.5
 
    
End Sub

 

Hallo!

Bei mir funktioniert das mit der Zeilenhöhe...
Bleiben also die Fragen
1. Warum funktioniert es bei dir NICHT? (Weiß ich nicht.)
2. Sollen einzelne ZELLEN oder ganze ZEILEN eingefügt werden? (Für Zeilen: ActiveCell.EntireRow.Select)
3. ÜBER oder UNTER der aktiven Zelle? (Je nachdem könnte "Offset" helfen.)

 

hallo schatzi

habe das mein problem inzwischen gelöst. und zwar habe ich jetzt nur

Code:

Selection.Insert Shift:=xlDown
    Selection.Insert Shift:=xlDown
    Selection.RowHeight = 13.5

stehen und ich komme zum gewünschten zustand! vielen dank für deine hilfe