Zeilen einfügen und mit Werten füllen
03.12.2015 09:59:12
Christian
wir sind aktuell am Verzweifeln.
Wir benötigen ein Makro welches automatisch ausgeführt wird, wenn eine Zeile eingefügt wird.
Dieses Makro müsste Werte bestimmter Zellen in die neue Zeile kopieren. Wir haben es bis jetzt hinbekommen, dass dies über ein selbst ausführbares Makro funktioniert. Da wir aber Bedenken haben, dass es den User überfordert einen separaten Button zu klicken um eine Zeile einzufügen hätten wir dies gerne automatisch ausgeführt wird wenn die Excel Funktion "Zellen einfügen" angeklickt wird.
Das Script sieht bisher so aus:
Sub ZeileEinfügen()
Dim lngReihe As Long
lngReihe = ActiveCell.Row + 1
If lngReihe > 1 Then
Rows(lngReihe).EntireRow.Insert
'Cells(lngReihe, 1).Resize(, 2) = Cells(lngReihe - 1, 1).Resize(, 2).Value
Cells(lngReihe - 1, 1).AutoFill Destination:=Cells(lngReihe - 1, 1).Resize(2), Type:= _
xlFillDefault
Cells(lngReihe - 1, 4).AutoFill Destination:=Cells(lngReihe - 1, 4).Resize(2), Type:= _
xlFillDefault
Cells(lngReihe - 1, 6).AutoFill Destination:=Cells(lngReihe - 1, 6).Resize(2), Type:= _
xlFillDefault
Cells(lngReihe - 1, 7).AutoFill Destination:=Cells(lngReihe - 1, 7).Resize(2), Type:= _
xlFillDefault
Cells(lngReihe - 1, 8).AutoFill Destination:=Cells(lngReihe - 1, 8).Resize(2), Type:= _
xlFillDefault
Cells(lngReihe - 1, 3).AutoFill Destination:=Cells(lngReihe - 1, 3).Resize(2), Type:= _
xlFillDefault
End If
End Sub
Alle Versuche mit Private Sub Worksheet_SelectionChange(ByVal Target As Range) etc. haben Endlosschleifen verursacht die Excel zum Absturz bringen.
Vielen Dank schon mal für Eure Hilfe!
Grüße
Christian