Live-Forum - Die aktuellen Beiträge
Datum
Titel
19.04.2024 15:39:42
Exceltabelle daten per combobox zu word Datei
19.04.2024 14:04:05
PDF per VBA ausgeben - Seitenskalierung
19.04.2024 13:58:02
Set Worksheet geht im O365 aber im Excel 2016 nicht
19.04.2024 13:49:38
Per Kopfdruck als pdf speichern und Mail erstellen
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
236to240
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
236to240
236to240
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

nur jede x'te Zeile nicht löschen

nur jede x'te Zeile nicht löschen
26.03.2003 21:12:24
Dirk
Bei einem Zeitmitschrieb von Daten, die mit hoher Frequenz aufgenommen wurden, möchte ich zur Reduktion der Datenmenge z.B. nur jede 10. Zeile stehenlassen. Wie kann ich das (ohne VBA) tun?

Gruß Dirk

5
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
Re: nur jede x'te Zeile nicht löschen
26.03.2003 21:29:37
Knut

Solche Aktionen gehen ohne VBA gar nicht.
Knut

Re: nur jede x'te Zeile nicht löschen
26.03.2003 21:37:06
Detlef Lange

Hallo,
eine möglichkeit ist hilfszellen mit einer formel zu belegen:
in a1-a65000 stehen deine werte
in b1 schreibst du die formel: wenn(a1<>"";a1;"")
in b10 schreibst du die formel: wenn(a10<>"";a10;"")
dann markierst du die zellen b1-b19
auf die erweiterungsmarke in b19(kleines kreuz unten rechts in der zelle)
klicken und festhalten, dann bis b65000 erweitern,
die formeln werden jetzt nur alle 10 zeilen eingetragen.
gruß detlef

Re: nur jede x'te Zeile nicht löschen
26.03.2003 21:40:08
Dirk

... na gut, wie gehts denn mit VBA?

Dirk

Re: nur jede x'te Zeile nicht löschen
26.03.2003 22:52:52
Knut

Option Explicit
Sub jede10()
Dim z As Long, lz As Long, x As Long
lz = ActiveSheet.UsedRange.Rows.Count
Application.ScreenUpdating = False
For z = 2 To lz
x = x + 1
If Not x Mod 10 = 0 Then
Cells(z, 1).Interior.ColorIndex = 19
End If
Next
For z = lz To 1 Step -1
If Cells(z, 1).Interior.ColorIndex = 19 Then
Rows(z).Delete
End If
Next
Application.ScreenUpdating = True
End Sub

Knut

Anzeige
Vielen Dank, funktioniert perfekt
27.03.2003 22:28:23
Dirk

Hallo Knut,

könnt nicht besser sein...

Dirk

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige