Live-Forum - Die aktuellen Beiträge
Datum
Titel
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
25.04.2024 18:41:19
vba Zeilen duplizieren ab aktiver Zeile bis letzte Zeile
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1156to1160
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
1156to1160
1156to1160
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

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...

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
..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

308 Forumthreads zu ähnlichen Themen

jede 10te Zeile auswählen (Bereich.Verschieben)
Dirk

Hallo :-),
ich habe folgendes Problem.
Ich habe eine Wertetabelle mit 43000 Zeilen und
möchte nur jede den Wert jeder 10ten Zeile mit der Funktion Bereich.Verschieben anzeigen lassen.
Allerdings kommt immer Bezugs- oder Wertfehler.
= Bereich.Verschieben(Zeile()-9)*10;0)
...
12.11.2009 15:37:30
Thread-ID: 1116585
9 Beiträge
Anzeige
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
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
Mit Button Zellen mehrfach untereinander kopieren
Bergen

Hallo zusammen,
ich benötige bitte eure Hilfe für folgendes Vorhaben:
Es geht um eine Vertriebsliste, die über einen Button Schrittweise erweitert werden soll.
Genauer gesagt geht es darum, per Commandbutton neue Vertriebspartner hinzufügen zu können.
Dabei sollen die Zellen...
05.10.2018 09:15:03
Thread-ID: 1649503
3 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
Anzeige

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige
Archiv - Verwandte Themen
Forumthread
Beiträge
8
3
4
7
7
2
10
2
1
3
6
3
4
9
4
3
1
15
7
17
6
3
24
4
9