jeden n-ten Wert einer Spalte



Excel-Version: 10.0 (Office XP)
nach unten

Betrifft: jeden n-ten Wert einer Spalte
von: Marcel
Geschrieben am: 15.05.2002 - 13:53:17

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

nach oben   nach unten

Re: jeden n-ten Wert einer Spalte
von: Tobi@s
Geschrieben am: 15.05.2002 - 14:25:42

Hallo,

ich hoffe, dieser Code hilft dir weiter

Abstand = 4
LZe = Range("A:A").End(xlDown).Row
For I = LZe To Step -1
    Cells(I, 1).Select
    If Mod Abstand <> 0 Then Selection.EntireRow.Delete
Next

nach oben   nach unten

Re: jeden n-ten Wert einer Spalte
von: Otto
Geschrieben am: 15.05.2002 - 14:28:24

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

 nach oben

Beiträge aus den Excel-Beispielen zum Thema "jeden n-ten Wert einer Spalte "