striding
Goto Top

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

Content-Key: 309618

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

Ausgedruckt am: 29.03.2024 um 10:03 Uhr

Mitglied: rubberman
Lösung rubberman 12.07.2016 um 22:16:05 Uhr
Goto Top
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
Mitglied: striding
striding 13.07.2016 um 00:21:31 Uhr
Goto Top
Perfekt!
Ich danke dir!
Mitglied: striding
striding 13.07.2016 um 01:01:06 Uhr
Goto Top
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
Mitglied: rubberman
Lösung rubberman 13.07.2016 um 01:20:22 Uhr
Goto Top
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
Mitglied: striding
striding 13.07.2016 um 17:49:19 Uhr
Goto Top
Funktioniert tadellos.
Danke!