Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1156to1160
1156to1160
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Alles bis auf jede 4. Zeile löschen

Forumthread: Alles bis auf jede 4. Zeile löschen

Alles bis auf jede 4. Zeile löschen
markus
für meine diplomarbeit habe ich hier eine addressliste mit 14550 einträgen, die von A (Name Besitzer) bis H (Telefonnummer) reicht, und der fragebogen den ich erstellt habe soll nun an jede 4. person geschickt werden.
sprich ich suche nach einer möglichkeit, wie ich excel mitteile, dass jede 4. zeile markiert wird, damit ich dann nur noch auf strg+v klicken muss. noch besser wärs natürlich wenn excel gleich alles bis auf jede 4. zeile löscht...
hat da jemand hilfsvorschläge? :) bin grade am verzweifeln, google will mir heute nicht so recht helfen...
Anzeige

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

Betreff
Benutzer
Anzeige
AW: Alles bis auf jede 4. Zeile löschen
02.06.2010 01:18:00
Steffen
Hallo Markus
kommt ins Modul des Blattes
**********************************
Option Explicit
Sub Löschen()
Dim i As Long
Dim lngLastRow As Long
lngLastRow = Cells(Rows.Count, 1).End(xlUp).Row
With Application
.EnableEvents = False
.ScreenUpdating = False
For i = 2 To lngLastRow Step 4
Rows(i).Resize(3).ClearContents
Next
.EnableEvents = True
.ScreenUpdating = True
End With
End Sub
*************************************
Grüße
Steffen
Anzeige
..und wenn die leeren
02.06.2010 03:12:09
Steffen
Zeilen verschwinden sollen dann so:
Sub Löschen()
Dim i As Long, n As Long
Dim lngLastRow As Long
Dim Bereich()
lngLastRow = Cells(Rows.Count, 1).End(xlUp).Row
ReDim Bereich(1 To lngLastRow)
With Application
.EnableEvents = False
.ScreenUpdating = False
For i = LBound(Bereich) To UBound(Bereich)
Bereich(i) = Range(Cells(i, 1), Cells(i, 8))
Next i
Columns("A:H").ClearContents
n = 1
For i = 1 To UBound(Bereich) Step 4
Range(Cells(n, 1), Cells(n, 8)) = Bereich(i)
n = n + 1
Next i
.EnableEvents = True
.ScreenUpdating = True
End With
End Sub

geht bestimmt auch einfacher aber es ist zu Früh/Spät ;-)
Viele Grüße
Steffen
Anzeige

Forumthreads zu verwandten Themen

Sortieren nur jede 4.Zeile
KlausF

Hallo Forum,
ich habe einen Bereich D13:N28 in dem nur jede 4. Zeile mit Werten gefüllt wird
(restliche Zeilen werden später schreibgeschützt und enthalten nicht sichtbaren Text).
https://www.herber.de/bbs/user/71107.xls
Ich möchte nun das nach Spalte D sortiert wird aber nur d...
17.08.2010 19:14:01
Thread-ID: 1172735
4 Beiträge
Zeilenbereich untereinander kopieren
Maris

Hi Leutz,
ich möchte den Zeilenbereich A1:A156 markieren, kopieren und 52 x in dem selben Tabellenblatt untereinander kopieren. Kann mir jemand mit einem kleine Code weiterhelfen?
Gruß
Maris
31.01.2011 10:27:58
Thread-ID: 1198176
5 Beiträge
Anzeige
Zeilen untereinander kopieren
Horst

Hallo Excel-Freunde,
ich bin auf der Suche nach einem Makro, dass folgendes macht:
In Spalte B bis H sind verschiedene Zahlen enthalten. Ich will nun ein Eingabefeld erzeugen, in man eine Zahl x eingibt, wonach ein Suchalgorithmus startet, der alle Zeilen im Bereich B:H nach dieser Zahl...
10.09.2011 17:46:10
Thread-ID: 1229337
8 Beiträge
Anzeige
Zeilenauswahl per VBA X mal untereinander kopieren
Hans

Hi!
Ich hätte eine Frage zu einem VBA Makro.
Ich würde gerne die Zeilen 2-38 der Beispieldatei kopieren und x Mal (z.B. 10 Mal) darunter einfügen.
Ich habe das versucht mit der Formatierung darzustellen. In den Feldern stehen dann Werte/Text.
Hier das Beispiel: https://www.herb...
11.03.2016 12:47:57
Thread-ID: 1481409
3 Beiträge
Jede 4. Zeile in Array einlesen und ausgeben
Maria

Hallo,
ich brauche dringend Hilfe bei folgendem Fall: Wie kann ich jede 4. Zeile eines Tabellenblatts in ein Array einlesen und anschließend das komplette array in ein anderes Tabellenblatt einfügen?
Vielen Dank im Voraus!
17.09.2018 19:34:22
Thread-ID: 1646063
11 Beiträge
alle nicht leeren Zeilen mehrfach kopieren
glupki

Hallo,
ich brauche einen Code für folgendes Problem.
In Zeile B steht zb.
35/5
565/4
123/4
der Code soll die Zeilen kopieren und 2 mal untereinander in Zeile F einfügen also zb.
35/5
35/5
565/4
565/4
123/4
123/4
die länge der Zeilen in in Spa...
08.10.2018 11:07:53
Thread-ID: 1650028
2 Beiträge
Zeilen mehrfach kopieren und Nummerieren
Oliver

Hallo!
Ich würde gerne eine Zeile, die durch ein Makro aus einer anderen Exceltabelle erstellt wurde, kopieren und zwar so oft wie in einer Zelle (H2) angeben.
Die Zeilen sollten dabei noch durchnummeriert werden.
Ich habe leider keinen Ansatz. ich schicke eine Beispieltabelle mit.<...
04.12.2018 11:59:18
Thread-ID: 1661136
4 Beiträge
Jede Zeile m. den Spalten A-M verdoppeln
Alexandra24
Hallo Community!

Ich habe ein ähnliches Problen, wie ein Community-Mitglied vor mir, jedoch komme ich
mit der Formel nicht klar:

Ich möchte jede Zeile meiner 483 Zeilen-Tabelle "Januar" mit den Spalten A-M in einem anderen TAB "1.Quartal" verdoppeln.

Ich habe dazu im...
03.05.2023 13:11:36
Thread-ID: 1929691
4 Beiträge
Summe bilden und Zeilen löschen
Holger

Guten Tag, ich bitte um Hilfe.
In Spalte A stehen Nummern, eine Nummer kann einmal oder auch mehrmals vorkommen. In Spalte E stehen die dazugehörigen Summen. Ich möchte realisieren, dass bei doppelt oder mehr gleicher Nummern, die Summe dieser gleichen, der ersten dieser Nr. zugeschrieben w...
17.03.2011 13:07:18
Thread-ID: 1206098
5 Beiträge
BITTE Hilfe bei Makro! Bestimmte Zeilen löschen
Micha

Hallo liebe Spezialisten.
Ich suche ein Makro, welches mir nur die Zeilen mit dem Start und Enddatum anzeigt.
Alle übrigen Spalten sollen gelöscht werden.
Eine Beispieldatei befindet sich im Dateianhang.
Beschreibung befindet sich im Kommentar A2
https://www.herber.de/bbs/us...
02.05.2012 16:07:31
Thread-ID: 1261865
10 Beiträge
Farbige Zeilen nicht löschen
Andi

Hi Leute, ich werd grad wahnsinnig - ich habe eine Tabelle, in der leider nur ca. jede 5. Zeile einen Wert enthält (Buchstaben)
Ich habe die Werte mit bedingter Formatierung eingefärbt und wollte jetzt einfach die leeren Zeilen dazwischen entweder löschen oder ausblenden, damit ich eine du...
26.04.2013 18:38:26
Thread-ID: 1310690
5 Beiträge
Anzeige
Sverweis per Makro bis Zeile x löschen
Manu

Hallo Zusammen,
ich habe eine Tabelle mit 3 Spalten (siehe Anhang). Wenn ich in Spalte A eine Artikelnummer eingebe zieht sich Excel in Spalte B und C Informationen per Sverweis rein. Diese Informationen sind in der gleichen Mappe in Tabelle 2 hinterlegt. Das funktioniert soweit gut.
Me...
26.03.2015 12:48:18
Thread-ID: 1417271
4 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

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