Beim Bestätigen einer Zelle automatisch zwei neue Zeilen einfügen

gelöstFrage VB for Applications Entwicklung

Hallo!

Ich bin gerade dabei eine Liste zu erstellen, und würde gerne einen kleinen Automatismus einfügen.

Wenn ich in der Zelle D5 etwas eingebe, und mit Enter bestätige, sollen automatisch zwei Zeilen darunter eingefügt werden (Zeilenhöhe 7,5 und 17,25).

Ist das überhaupt möglich, und könnte mir bitte jemand bei der Umsetzung helfen?

Vielen Dank und schönen Grüße
striding

Bitte markiere auch die Kommentare, die zur Lösung des Beitrags beigetragen haben

Content-ID: 309618

Url: https://administrator.de/forum/beim-bestaetigen-einer-zelle-automatisch-zwei-neue-zeilen-einfuegen-309618.html

Ausgedruckt am: 18.04.2025 um 15:04 Uhr

5 Kommentare

Neuester Kommentar

Hallo striding.

Probier mal Folgendes:

Öffne den VBE (Alt+F11). Doppelklicke links das entsprechende Arbeisblatt und füge rechts diesen Code ein

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Address = "$D$5" Then  
        Rows("6:6").Insert Shift:=xlDown, CopyOrigin:=xlFormatFromRightOrBelow  
        Rows("6:6").RowHeight = 17.25  
        Rows("6:6").Insert Shift:=xlDown, CopyOrigin:=xlFormatFromRightOrBelow  
        Rows("6:6").RowHeight = 7.5  
    End If
End Sub

Grüße
rubberman

Perfekt!
Ich danke dir!

Ist vielleicht noch eine kleine Optimierung möglich?
Ist es Möglich zu sagen, dass das für die komplette Spalte D gilt, ab Zeile 5?
(Zeile 1-5 nicht, Zeile 5-XX zutreffend)

Grüße
striding

Denke schon.

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Column = 4 And Target.Row > 4 Then
        Rows(Target.Row + 1).Insert Shift:=xlDown, CopyOrigin:=xlFormatFromRightOrBelow
        Rows(Target.Row + 1).RowHeight = 17.25
        Rows(Target.Row + 1).Insert Shift:=xlDown, CopyOrigin:=xlFormatFromRightOrBelow
        Rows(Target.Row + 1).RowHeight = 7.5
    End If
End Sub

Grüße
rubberman