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

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

Please also mark the comments that contributed to the solution of the article

Content-Key: 309618

Url: https://administrator.de/contentid/309618

Printed on: April 26, 2024 at 07:04 o'clock

5 Comments

Latest comment

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

Funktioniert tadellos.
Danke!

German solved Question VB for Applications Development