Microsoft Excel

Herbers Excel/VBA-Archiv

Makro zum löschen jeder 2. Zeile | Herbers Excel-Forum


Betrifft: Makro zum löschen jeder 2. Zeile von: philG
Geschrieben am: 05.01.2010 10:15:02

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! :-)

  

Betrifft: AW: Makro zum löschen jeder 2. Zeile von: welga
Geschrieben am: 05.01.2010 10:26:46

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


  

Betrifft: AW: Makro zum löschen jeder 2. Zeile von: Tino
Geschrieben am: 05.01.2010 10:36:00

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


  

Betrifft: AW: Makro zum löschen jeder 2. Zeile von: philG
Geschrieben am: 05.01.2010 10:46:53

habt Dank, ich werd gleich mal testen, supernett


Beiträge aus den Excel-Beispielen zum Thema "Makro zum löschen jeder 2. Zeile"