Live-Forum - Die aktuellen Beiträge
Datum
Titel
19.04.2024 10:59:29
Datei Auswählen und öffnen
19.04.2024 10:46:47
Bestimmte Zellen aus dynamischer Liste zurückgeben
19.04.2024 10:39:36
Schaltfläche auf einem Tabellenblatt NICHT mit abspeichern
19.04.2024 09:26:26
Median für Zeilen mit gleichen Zeitstempel
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1124to1128
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
1124to1128
1124to1128
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Makro zum löschen jeder 2. Zeile

Makro zum löschen jeder 2. Zeile
philG
Hallo liebe Herber-Gemeinde,
ich habe ein Problem: elend Lange Tabelle, wo ich die 1., 3., 5. Zeile usw. löschen muss.
Kann mir jemand mit einem VB-Befehl aushelfen, der jede 2. Zeile der Tabelle löscht?
Ich wäre suuperhappy! Habt vielen Dank im Voraus! :-)

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Benutzer
Anzeige
AW: Makro zum löschen jeder 2. Zeile
05.01.2010 10:26:46
welga
Hallo,
versuche es mal damit:
Dim i As Long
Dim lnglastrow As Long
With ActiveSheet
lnglastrow = .Cells.Find(What:="*", After:=Range("A1"), _
SearchOrder:=xlByRows, SearchDirection:=xlPrevious).Row
End With
If lnglastrow Mod 2 = 0 Then lnglastrow = lnglastrow - 1
For i = lnglastrow To 1 Step -2
Rows(i).Select
Selection.Delete Shift:=xlUp
Next i
Gruß
welga
AW: Makro zum löschen jeder 2. Zeile
05.01.2010 10:36:00
Tino
Hallo,
kannst mal diesen Code testen, Tabellenname noch anpassen.
Sub LoescheJedeZweite()
Dim oSH As Worksheet

Set oSH = Sheets("Tabelle1") 'Tabelle anpassen 

With oSH.UsedRange.Columns(oSH.UsedRange.Columns.Count).Offset(0, 1)
 .FormulaR1C1 = "=IF(MOD(ROW(),2)=0,ROW(),TRUE)"
 oSH.EnableCalculation = False
 oSH.UsedRange.Sort Key1:=.Cells(1, 1), Order1:=xlAscending, Header:=xlNo
 
 On Error Resume Next
  .SpecialCells(xlCellTypeFormulas, 4).EntireRow.Delete
  .EntireColumn.Delete
 On Error GoTo 0
End With

oSH.EnableCalculation = True

End Sub
Gruß Tino
Anzeige
AW: Makro zum löschen jeder 2. Zeile
05.01.2010 10:46:53
philG
habt Dank, ich werd gleich mal testen, supernett

309 Forumthreads zu ähnlichen Themen

Zeilen in Zellen suchen und löschen
Daniel

Hallo,
ich möchte in Excell mehrere Zelle suchen, die folgenden String in einer oder mehreren Zeilen enthalten: ----
Diese Zeilen möchte ich dann löschen. Nach diesem String sind noch weitere Zeichen vorhanden, die auch gelöscht werden sollen.
Weiß jemand wie ich am besten vorgehe?...
13.08.2008 12:52:02
Thread-ID: 1001495
9 Beiträge
Anzeige
Jede 2te Zeile in eine Spalte kopieren
Eddie

Guten Morgen @ all
Ich habe mal wieder ein kleines problem :-)
Ich würde gerne Daten, die alle in einer Spalte sind auteilen.... dazu soll entweder der 1,3,5,7.... oder 2,4,6,8 ... Wert immer in die danebenliegende Spalte kopiert werden
IST:
Hallo
Hello
Gut
Good
...
20.08.2008 07:52:00
Thread-ID: 1003065
6 Beiträge
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
Anzeige
Zeilen in Zellen zählen
kai

Hallo
Ich habe eine Frage:
Wie kann ich mittles VBA in einer Zelle mit Zeilenumbruch die Anzahl der Zeilen zählen?
Grüße
Kai
29.08.2008 14:07:00
Thread-ID: 1005824
10 Beiträge
Zeile ausblenden, wenn in einer Zelle ein bestimmt
Jakob

Hallo,
Ich habe folgendes Problem:
Ich möchte in den Tabellenblatt "Form3" die zeilen 39-50 ausblenden wenn die Zelle A37 ungleich "Pentax" und "Ciclox" ist. Der Wert der Zelle A37 kommt aus der Eingabe im Tabellenblatt "Eingabemaske" (B7).
Wie müßte der entsprechende VBA-Code ausse...
03.09.2008 17:24:21
Thread-ID: 1007176
6 Beiträge
Zeile kopieren wenn wert in Zelle
Andreas

hallo zusammen
in der recherche habe ich diesen code gefunden. da ich jedoch alle zeilen bei welchen in der zelle der spalte h ein "x" steht in ein anderes tabellenblatt kopieren möchte muss ich den code anpassen. nun weiss ich leider nicht was ich verändern muss. wäre super, wenn mir das j...
07.09.2008 20:32:00
Thread-ID: 1008007
3 Beiträge
Nicht leere Zellen in einer Zeile finden
Andreas

Hallo Zusammen,
Bisher kam ich ohne VBA zurecht, aber ich denke nun ...
Ich habe eine Tabelle mit folgendem Aufbau
Tabelle1:
ABCDEFG
115789
2__z_z
3zz___
4z__z_
Zeile 1: enthält eine Bezeichnung (hier als Zahl dargestellt)
z=Zahl
_=leer
in einem n...
29.09.2008 14:20:42
Thread-ID: 1013111
5 Beiträge
erzwungener zeilenumbruch in Zelle
Lars

Hallo,
obwohl ich schon viel mit Excel gemacht habe, tauchen doch immer wieder Fragen auf:
Gibt es eine Möglichkeit, in einer Zelle einen Zeilenumbruch manuell einzufügen, ohne dass man bereits am Zellenende ist?
Ich denke, dass ist eine eher dumme Frage, aber ich habe derzeit keine...
02.10.2008 15:40:00
Thread-ID: 1013906
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
5
3
4
9
5
2
4
3
9
2
1
4
2
4
3
2
4
13
5
10
5
3
4