Wie kann ich jeden n-ten (hier: jeden vierten) Wert einer Spalte in eine andere Spalte oder Tabellenblatt übernehmen. Gibt es eine einfache Funktion dafür oder nur per VBA ? Mein Problem: Ich habe 45000 Werte aus einer ASCII-Datei, wobei ich diese hohe Auflösung gar nicht benötige, jeder vierte Wert würde reichen. Excel fügt zwar alle in ein Tabellenblatt ein, aber ein Diagramm wird nur mit 32000 Werten dargestellt, d.h. den letzten Teil der Kurve sehe ich gar nicht.
Vielen Dank für eure Hilfe.
mfg
Marcel
Hallo,
ich hoffe, dieser Code hilft dir weiter
Abstand = 4
LZe = Range("A:A").End(xlDown).Row
For I = LZe To 1 Step -1
Cells(I, 1).Select
If I Mod Abstand <> 0 Then Selection.EntireRow.Delete
Next
Hallo Marcel,
probier damit:
Sub Filter()
Dim Quellzelle As Integer
Dim Zielzelle As Integer
Zielzelle = 1
For Quellzelle = 1 To 45000 Step 4
Sheets("Tabelle2").Cells(Zielzelle, 1).Value = Sheets("Tabelle1").Cells(Quellzelle, 1).Value
Zielzelle = Zielzelle + 1
Next
End Sub
Das gilt allerdings für die Spalte "A", wenn du es für eine andere Spalte haben willst, mußt du die 1 in "Cells(...,1)" durch de n Spaltenindex ersetzen. Z.B. für die Spalte "C": Cells(Zielzelle, 3) oder Cells(Quellzelle, 3).
Gruß Otto
Das Archiv des Excel-Forums
