Live-Forum - Die aktuellen Beiträge
Datum
Titel
25.04.2024 21:40:53
Excel Datenquelle aus dem Web mit Anmeldung?
25.04.2024 21:21:16
Zellkommentar in UserForm anzeigen und bearbeiten
25.04.2024 21:13:13
Kalenderwochen addieren
25.04.2024 21:06:05
Duplikate entfernen
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1100to1104
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
1100to1104
1100to1104
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Druckköpfe löschen

Druckköpfe löschen
Alina
Guten Tag,
ich habe mir eine Liste aus UNIX generiert, wo die ersten fünf Zeilen und die immer nach 66 Zeilen folgenden fünf Zeilen gelöscht werden müssen, also nach dem Schema:
Zeile1 löschen
Zeile2 löschen
Zeile3 löschen
Zeile4 löschen
Zeile5 löschen
.
.
(66 Zeilen sollen stehen bleiben)
Zeile72 löschen
Zeile73 löschen
Zeile74 löschen
Zeile75 löschen
Zeile76 löschen
..
usw..
Kann mir dabei bitte jemand helfen? Danke!
VG
Alina

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Benutzer
Anzeige
AW: Druckköpfe löschen
18.09.2009 15:01:59
Hajo_Zi
Hallo Alina, 
Option Explicit
Sub Alina()
Dim Loletzte As Long
Dim LoI As Long
Loletzte = ActiveSheet.UsedRange.SpecialCells(xlCellTypeLastCell).Row
For LoI = 1 To Loletzte Step 66
Rows(LoI & ":" & LoI + 4).Delete
Next LoI
End Sub


AW: Druckköpfe löschen
18.09.2009 16:24:25
Alina
Vielen Dank!
lg
alina
Anzeige

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige