Zeile mit Formel einfügen und Arbeitspaket einfüge

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hallo zusammen,
Ich hab ein Code gefunden, diesen auch angepasst aber hier kommt jetzt eine Fehlermeldung:

Private Sub CommandButton1_Click()
'Listeneingabe
'bei Eingabe in neuer Zeile werden Formeln kopiert
Dim objZelle As Range, arrFormelSpalten
Dim lngSpalte As Long, intJ As Integer, bolFormel, lngOffset As Long
Const lngSpalte1 As Long = 1 'Erste Spalte der Liste
Const lngSpalteL As Long = 3446 'Letzte Spalte der Liste
Const lngZeile1 As Long = 12 '1. Zeile mit Formel
arrFormelSpalten = Array(5, 9, 10, 11) 'Spalten mit Formeln
With Me
For Each objZelle In Target
'Prüfen ob geänderte Zelle(n) unterhalb der letzten Zeile mit Formel
If objZelle.Row > .Cells(.Rows.Count, arrFormelSpalten(0)).End(xlUp).Row _
And objZelle.Row > lngZeile1 _
And objZelle.Column = lngSpalte1 Then
Application.EnableEvents = False
'Formel in Spalten nach unten kopieren
For lngSpalte = LBound(arrFormelSpalten) To UBound(arrFormelSpalten)
.Range(.Cells(.Rows.Count, arrFormelSpalten(lngSpalte)).End(xlUp), _
.Cells(objZelle.Row, arrFormelSpalten(lngSpalte))).FillDown
Next
Application.EnableEvents = True
End If
Next objZelle
'Bei Eingaben in letzter Zeile nach rechts nächste Eingabezelle selektieren
If Target.Row = .Cells(.Rows.Count, arrFormelSpalten(0)).End(xlUp).Row _
And Target.Column >= lngSpalte1 _
And Target.Column  lngSpalteL Then
lngSpalte = lngSpalte1 'ab 1. Spalte prüfen
lngOffset = 1 'Nächste Zeile selektieren wenn Eingabe in Letzter Spalte
End If
'Prüfen, ob Spalte Formel enhält
bolFormel = False
For intJ = LBound(arrFormelSpalten) To UBound(arrFormelSpalten)
If lngSpalte = arrFormelSpalten(intJ) Then bolFormel = True: Exit For
Next
If bolFormel = False Then
'Zelle selektieren
.Cells(Target.Row + lngOffset, lngSpalte).Select
Exit Do
End If
lngSpalte = lngSpalte + 1
Loop
End If
End With
End Sub

Hier kommt die Fehlermeldung bei "For Each objZelle in Target" --> Objekt erforderlich.
Könnte mir hier jemand helfen.
lg

Sub CommandButton1_Click() ' Aktuelle Zeile kopieren, unterhalb Zeile einfügen und Inhalte in Zellen ohne Formel löschen Dim Zelle As Range ActiveCell.EntireRow.Copy Cells(ActiveCell.Row + 1, 1).Insert Shift:=xlDown For Each Zelle In Range(Cells(ActiveCell.Row + 1, 1), Cells(ActiveCell.Row + 1, 255).End( _ xlToLeft)) If Not Zelle.HasFormula Then Zelle.ClearContents End If Next Zelle Cells(ActiveCell.Row + 1, 1).Select End Sub

Beliebteste Forumthreads (12 Monate)

Zeile mit Formel einfügen und Arbeitspaket einfüge

5
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

309 Forumthreads zu ähnlichen Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Zeile mit Formel einfügen und Arbeitspaket einfüge

5 Beiträge zum Forumthread Beiträge zu diesem Forumthread

309 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

5
Beiträge zum Forumthread

Beiträge zu diesem Forumthread