Microsoft Excel

Herbers Excel/VBA-Archiv

Zellen löschen | Herbers Excel-Forum


Betrifft: Zellen löschen von: Snewi
Geschrieben am: 17.12.2009 11:50:45

Hallo,

ist es bei dieser formel möglich nicht nur die Zellen auszublenden sondern ganz zu löschen?

Sub letzter_Wert()
Dim i As Long
Application.ScreenUpdating = False
Cells.EntireRow.Hidden = False
    For i = 2 To Cells(Rows.Count, 2).End(xlUp).Row
        If Cells(i, 2).Value = Cells(i, 2).Offset(1, 0).Value Then Cells(i, 2).EntireRow.Delete  _
 _
= True
    Next
Application.ScreenUpdating = True
End Sub

Gruß

  

Betrifft: AW: Zellen löschen von: Hajo_Zi
Geschrieben am: 17.12.2009 12:03:39

Hallo Snewi

Cells(i, 2).EntireRow.Delete

beim löschen sollte die Schleife von der letzten zur ersten laufen.

GrußformelHomepage


  

Betrifft: AW: Zellen löschen von: Snewi
Geschrieben am: 17.12.2009 12:18:12

wieso läuft die Schleife nicht in einem Stück durch? Wenn ich das über ein Formular-Button mache muss ich diesen häufiger anstossen um zum Endergebnis zu kommen!

Gruß


  

Betrifft: AW: Zellen löschen von: Hajo_Zi
Geschrieben am: 17.12.2009 12:25:05

Hallo Snewi,

ich kann dazu nichts schreiben, ich sehe Deine Datei nicht und den veränderten Code.

Gruß Hajo


  

Betrifft: AW: Zellen löschen von: Snewi
Geschrieben am: 17.12.2009 12:37:35

https://www.herber.de/bbs/user/66658.xls


Danke im voraus!


  

Betrifft: AW: Zellen löschen von: Hajo_Zi
Geschrieben am: 17.12.2009 12:44:36

Hallo Snewi,

lese meinen Beitrag komplett. Ich hatte geschrieben beim Löschen mußt Du von der Letzten zur ersten Zeile laufen in der Schleife.

Gruß Hajo


  

Betrifft: AW: Zellen löschen von: Snewi
Geschrieben am: 17.12.2009 12:46:26

Ja wenn ich genau wüsste wie ich es mache hätte ich es vielleicht getan :-)
Wie sieht der Syntax dann aus!


  

Betrifft: AW: Zellen löschen von: Hajo_Zi
Geschrieben am: 17.12.2009 12:53:39

Hallo Snewi,

Option Explicit

Sub letzter_Wert()
    Dim i As Long
    Application.ScreenUpdating = False
    Cells.EntireRow.Hidden = False
    For i = Cells(Rows.Count, 1).End(xlUp).Row To 3 Step -1
        If Cells(i, 1).Value = Cells(i, 1).Offset(1, 0).Value Then Cells(i, 1).EntireRow.Delete
    Next
    Application.ScreenUpdating = True
End Sub
Gruß Hajo


  

Betrifft: AW: Zellen löschen von: Snewi
Geschrieben am: 17.12.2009 12:54:58

Danke!!


Beiträge aus den Excel-Beispielen zum Thema "Zellen löschen"