Live-Forum - Die aktuellen Beiträge
Datum
Titel
20.04.2024 00:49:19
Excel Sheet in einen Excel Kalender einfügen
20.04.2024 00:08:11
In Ordner nur das Speichern von Dateien erlauben
19.04.2024 21:26:15
mehrfache Texte finden
19.04.2024 19:41:34
Bei VBA Ausführung Anzeige einfrieren
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
844to848
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
844to848
844to848
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

jede 2 Zeile sollte gelöscht werden

jede 2 Zeile sollte gelöscht werden
08.02.2007 15:13:42
Markus
Hallo,
ich habe eine Tabelle in der die erste Zeile Spaltenüberschriften stehen.
Dann folgen x Zeilen von denen jede zweite gelöscht werden sollte.
Prima wärs, wenn natürlich die Zeilen gelöscht werden und nicht nur der Inhalt, damit nix übrig bleibt :)
Wie könnte man das in Excel machen?
Für einen Tipp, vielen Dank.
Gruß
Markus

6
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: jede 2 Zeile sollte gelöscht werden
08.02.2007 15:27:42
Rudi
Hallo,

Sub UngeradeZeilenLoeschen()
Dim iRows As Long, iRow As Long
Application.ScreenUpdating = False
iRows = Cells(Rows.Count, 1).End(xlUp).Row
If iRows Mod 2 = 0 Then iRows = iRows - 1
For iRow = iRows To 2 Step -2
Rows(iRow).Delete
Next iRow
Application.ScreenUpdating = True
End Sub
Gruß
Rudi
Eine Kuh macht Muh, viele Kühe machen Mühe
AW: jede 2 Zeile sollte gelöscht werden
08.02.2007 17:07:11
Markus
HI Rudi,
vielen Dank für deine Hilfe. zum Glück wusste ich noch was man mit dem Code anfangen muss ;) bin absolut kein VB´ler.
Hat prima geklappt!
Was muss ich an dem Code ändern damit ich das jetzt noch mit geraden Zeilen machen kann?
Danke
Gruß
markus
Anzeige
AW: jede 2 Zeile sollte gelöscht werden
08.02.2007 17:29:07
Rudi
Hallo,
ganz einfach:
If iRows Mod 2 = 1 Then iRows = iRows - 1
Gruß
Rudi
Eine Kuh macht Muh, viele Kühe machen Mühe
AW: jede 2 Zeile sollte gelöscht werden
08.02.2007 18:11:51
markus
Hi Rudi,
much merci! ;)
Man wo kann man sowas lernen? Oder gibts da Tools die einem sowas abnehmen könnten?
Ich hab mit meinem Blatt jetztz nur noch 2 Problemchen.
1. alle "Zeilen in denen das Wort "Zwischensumme" steht sollen gelöscht werden
2. das ist schwieriger .. deshalb mal eine Beispieldatei https://www.herber.de/bbs/user/40261.xls
Hier soll immer der Name der über dem Datum steht in die Spalt "A" vor das Datum gesetzt werden.
Kann man das mit VB auch realisieren?
Danke nochmal für deine Hilfe.
Gruß
markus
Anzeige
AW: jede 2 Zeile sollte gelöscht werden
09.02.2007 08:46:19
Rudi
Hallo,
so?

Sub tt()
Dim iRows As Long, iRow As Long
Application.ScreenUpdating = False
iRows = Cells(Rows.Count, 2).End(xlUp).Row
For iRow = iRows To 1 Step -1
If Cells(iRow, 2) = "Zwischensumme" Then
Cells(iRow - 1, 1) = Cells(iRow - 2, 2)
Rows(iRow).Delete
Rows(iRow - 2).Delete
End If
Next iRow
End Sub

Gruß
Rudi
Eine Kuh macht Muh, viele Kühe machen Mühe
AW: jede 2 Zeile sollte gelöscht werden
12.02.2007 08:45:52
Markus
Hallo Rudi,
SPITZE!!! jetzt hats geklappt. Vielen vielen Dank!
Gruß
MArkus

300 Forumthreads zu ähnlichen Themen

Zwei Spalten in jeweils zwei Tabellen miteinander
Lutz

Liebe Leute,
ich habe zwei recht umfangreiche Tabellen mit Lieferdaten und dies in zwei von einander unabhängigen Tabellen.
In der Tabelle1 stehen neben anderen die Spalten Bestellnr. und Materialnr. sowie Lieferantennr. In der Tabelle2 stehen wiederum die Spalten Bestellnr. und Materia...
08.08.2008 15:56:55
Thread-ID: 1000336
4 Beiträge
Anzeige
Einfügen mit jeder 2. Zeile als Leerzeile
Ulrich

Hallo zusammen,
wie kann ich einen Bereich einer Tabellen markieren, kopieren und in einem anderen Tabellenblatt über "Inhalte einfügen" und "verknüpfen" automatisch mit jeder zweiten Zeile als Leerzeile versehen, ohne das die Verknüpfung verrutscht?
Danke im Voraus und Grüße,
Ulr...
26.08.2008 14:15:00
Thread-ID: 1004799
4 Beiträge
jede zweite Zelle in Datenreihe
sarina

Hallo!
Ich habe ein Problem ;)
Und zwar würde ich gerne ein Diagramm erstellen, dass als Datenreihe aus meiner vorhandenen Tabelle jede zweite Zelle nimmt, z.B. aus der Spalte A von 1:250 also dann A1, A3, A5,....
Und das ohne eine neue Tabelle zu erstellen.
Geht das? Hat jema...
29.08.2008 09:48:58
Thread-ID: 1005687
5 Beiträge
Anzeige
Maxwert aus jeder zweiten Spalte
Stefan

Hallo,
kennt jemand eine möglichkeit, wie man ohne VBA das Maximum aus den Werten jeder 2. Spalte einer Zeile auslesen kann, ohne die Spalten einzeln aufzuzählen (=max(d2;d4;d6;d8...))?
Gruß Stefan
16.01.2009 14:24:00
Thread-ID: 1040577
5 Beiträge
Jede 2. Zeile einfärben
Frank

Hallo und Guten Abend Zusammen!
Mit folgendem Code
Sub Zeilen_formatieren() Sheets("DATEN").Activate Range("A14:K65536").Select For Zeile = 1 To Selection.Rows.Count If Zeile Mod 2 > 0 Then Selection.Rows(Zeile).Interior.ColorIndex = 15 End If Next Zeile End Sub
kann ich jede z...
17.01.2009 19:20:00
Thread-ID: 1040966
4 Beiträge
jede zweite Zelle in Spalte durch Doppelklick mark
mike49

Hallo,
wie kann man das lösen?
Ich möchte in meinem Spaltenbereich A13:A145 erreichen, dass durch Doppelklick ein "X" in die Zelle gesetzt wird und bei erneutem Doppelklick wieder verschwindet. Dies soll aber nur in jeder zweiten Zelle möglich sein. Also in A13, A15, A17 usw. bis einsch...
02.05.2009 13:05:13
Thread-ID: 1072411
6 Beiträge
Mittelwert jeder 3. Zelle einer Zeile
Dennis

Hallo,
wie kann ich denn in Excel den Mittelwert jeder 3. Zelle einer Zeile berechnen. Also z.B. D1, G1, J1.
Mauelle Eingabe ist nicht möglich, da ich rund 200 Werte erfassen muss.
Viele Dank schonmal!
Grüße, Dennis
08.05.2009 20:21:07
Thread-ID: 1074006
5 Beiträge
Jede 2. Zeile Hintergrund ändern
Blum

Hallo zusammen
Habe da noch eine Frage.
In Excel kann man doch jede 2. Zeile anders darstellen, so dass das lesen von grossen Dateien einfacher wird.
z.B. 1. Zeile weiss, 2. Zeile hellgrün, 1. Zeile weiss, 3 wieder hellgrün usw.
Hemm weiss jemand noch wie das automatisiert geht?...
25.06.2009 17:40:07
Thread-ID: 1084417
6 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
3
5
3
4
4
4
3
5
4
5
6
4
5
2
3
4
5
3
3
2
2
9
1
12
8