Werte in einen Code aus Zellen eintragen
Golem
ich habe hier einen Code vom Sepp.
Hiermit kann ich Starzeile und Endzeile einer Spalte vorgeben und durch das Ausführen
werden die restlichen Zeilen in der Spalte gelöscht.
Hiermit kann ich bestimmte Zeilen vor dem Startdatum, oder auch Zeilen nach meinen Zeilenbereich löschen.
Dies erreiche ich durch Änderung der Startzeile und ändern des Wertes 20 im Code.
Sub löscheZeilen()
Dim lngRow As Long, lngLast As Long, lngEnd As Long
Dim rngDel As Range
'Startzeile
lngRow = 2
'Letzte Zeile bestimmen
lngEnd = ActiveSheet.UsedRange.Rows.Count
Do While lngLast + 1 = lngRow + 20 Then
'zu löschenden Bereich festlegen
If rngDel Is Nothing Then
Set rngDel = Range(Cells(lngRow + 20, 1), Cells(lngLast, 1))
Else
Set rngDel = Union(rngDel, Range(Cells(lngRow + 20, 1), Cells(lngLast, 1)))
End If
End If
'Startzeile auf den nächsten Eintrag stellen
lngRow = lngLast + 1
Loop
'Bereich löchen
If Not rngDel Is Nothing Then rngDel.EntireRow.Delete
Set rngDel = Nothing
End Sub
Meine Frage ist, ob im Code der Wert der Startzeile ( lngRow = 2 ) und der Wert 20 durch eine Zellen aus der Tabelle
verändert werden kann.
Z.B. im Tabellenblatt steht in Zelle L3 der Startwert und in M3 der Wert, der im Code den Wert 20 ändert.
Schöne Grüße
Golem