Thema: Zeilen reduzieren | Herbers Excel-Forum

Hallo liebes Forum,
ich habe wohl ein eher einfacheres Problem, doch alleine komme ich nicht drauf. Ich möchte gerne ein Makro schreiben, welches es mir erlaubt Zeilen zu reduzieren. D.h. ich möchte einfach nur dass z.B. jede zehnte Zeile angezeigt wird. Der Rest der Reilen soll gelöscht werden.
Wäre nett, wenn ihr mir dabei helfen würdet.
LG JENS
https://www.herber.de/bbs/user/66453.xls

Hallo Jens
Teste mal

Sub n()
Dim i As Long
For i = Cells(Rows.Count, 1).End(xlUp).Row To 3 Step -1
If Right(Cells(i, 1).Row, 1) <> 3 Then Cells(i, 1).EntireRow.Delete Shift:=xlUp
Next
End Sub

gruss hary

Hallo,
oder
vielleicht so:

Sub zeile()
Dim i As Long
Dim a As Long
Dim z As Long
Dim s As Long
z = 10 'hier die Anzahl der zu überspringenden Zeilen eintragen
With ThisWorkbook.Sheets(1)
a = .Cells.Find(What:="*", After:=Range("A1"), _
SearchOrder:=xlByRows, SearchDirection:=xlPrevious).Row
s = 1
For i = 3 To a
.Cells(s + 2, 3).Value = .Cells(i, 1).Value
i = i + z - 1
s = s + 1
Next i
End With
End Sub

Gruß
welga

sorry,
frage falsch verstanden,
du wolltest ja nicht jede zehnte kopieren, sondern die dazwischen liegenden löschen.

Hallo Hary und Welga,
ich konnte mit beiden eurer Makros mein Ziel erreichen. Vielen lieben Dank für die schnelle Hilfe!
An Hary: wo in deinem Makro versteckt sich denn die Information dass jeder zehnte Wert ausgelesen wird? Rein interessehalber;-)
LG Jens

Hallo Jens
nirgends!!! Ich sag den Code nur: wenn die 1. rechte Zeilenzahl keine 3 ist dann loesche die Zeile.
also bei 11 ist die 1. rechte Zahl 'ne 1
bei 13 eine 3
bei 333 auch eine 3 und bei 324 die 4.
gruss hary