Hallo zusammen. Komme nochmal mit einer Frage zu VBA Code. Ich will einer Spalte eine Formel zuweisen. Gleichzeitig sollen Datensätze (Zeilen) gelöscht werden die einen gewissen Wert übersteigen. Mein Problem ist nun "Formel einfügen" und "Zeile löschen wenn Bedingung erfüllt ist", in Einklang zu bringen. Das mit der Zeile separat löschen wenn die Bedingung erfüllt ist, funktioniert, wenn ich aber versuche die Formel (egal welche) mitzuberücksichtigen, geht der Code nicht mehr.
Danke für Unterstützung und Gruß Josef
Fehler bei:
, gelb markiert. Laufzeitfehler 13, Typen unverträglich
Mein Code:
Danke für Unterstützung und Gruß Josef
Fehler bei:
Code:
If .Cells(lngZeile, zielspalte) >= 10 Then
Mein Code:
Visual Basic:
Private Sub Worksheet_Activate() ' Zeileentfernen()
Dim lngZeile As Long
' Dim i As Long
zielspalte = 6
With Info
lngZeileMax = .Cells(Rows.Count, zielspalte).End(xlUp).Row
For lngZeile = lngZeileMax To 2 Step -1
If .Cells(lngZeile, zielspalte) >= 10 Then .Rows(lngZeile).Delete ' Löscht Daten älter 10 Tage
Next ' lngZeile
' .Range("F2").FormulaLocal = "=WENN(($E$1:$E$= """";"""";DATEDIF(E2;HEUTE();""D""))"
.Range("F2").FormulaLocal = "=WENN(E2="""";"""";DATEDIF(E2:E;HEUTE();""D""))"
' Worksheets("TabStat").Range("b21").FormulaLocal = "=MIN((ArbTab!$R$1:$R$" & letztezeile & "))"
' .Range("F2").FormulaLocal = "=MIN((ArbTab!$R$1:$R$" & letztezeile & "))"
End With
Application.CutCopyMode = False ' Beendet den Copiervorgang
End
End Sub
Zuletzt bearbeitet von einem Moderator: