Sortieren

Forumthread: Sortieren
2 Beiträge zu diesem Forumthread
Anzeige

Forumthread: Sortieren

Sortieren

21.11.2003 16:05:48

Rene'

Hallo!
Gibt es eine Möglichkeit Leerzeilen in einer Tabelle zu löschen? In der ersten "Spalte A" steht die Artikel-Nummer und in "Spalte B" steht die Artikelbezeichnung. Diese ist aber in zwei Zellen untereinander aufgeteilt. Also brauch ich pro Artikel zwei Zeilen. Nun ist aber zwischen jedem Artikel noch eine bis zwei Leerzeilen. Wie kann ich die nun loswerden??

2
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

leere zeilen löschen

21.11.2003 16:08:51

andreas e
AW: Sortieren

21.11.2003 16:17:48

PeterW

leere zeilen löschen

21.11.2003 16:08:51

andreas e

Hallo rene ,
betreff sortieren ??
aber na egal
hier ein makro:


Sub LeereZeilenLöschen()
Dim Sz As Integer
Dim zz As Long
Dim l As Long
Dim i As Integer
Dim b As Boolean
Sheets("Tabelle1").Activate
Range("A1").Select
Sz = ActiveSheet.UsedRange.Columns.Count
zz = ActiveSheet.UsedRange.Rows.Count
For l = 1 To zz
b = False
For i = 1 To Sz
If IsEmpty(Cells(l, i)) Then b = True _
Else b = False: Exit For
Next i
If b = True Then Selection.EntireRow.Delete
ActiveCell.Offset(1, 0).Select
Next l
End Sub

Gruß
Andreas E

http://www.skripteundaufgaben.de
viele kostenlose Downloads und Links zu EXCEL und mehr
http://www.fachforen.de
eine Linksammlung zu diversen fachforen

AW: Sortieren

21.11.2003 16:17:48

PeterW

Hallo Rene,

öffne aus Excel mit Alt+F11 den VBA-Editor. Im Projektfenster such nach deiner Datei, Rechtsklick darauf - einfügen - Modul. In das sich öffnende Fenster kopiere folgen Code und verlasse den VBA-Editor dann:


Sub LeereWeg()
Dim lgRow As Long
For lgRow = Range("B65536").End(xlUp).Row To 1 Step -1
If IsEmpty(Cells(lgRow, 2)) Then
Rows(lgRow).Delete
End If
Next
End Sub

Wähle deine Tabelle, Extras - Makros - Makro, markiere das Makro und Ausführen.

Eine Lösung ohne VBA wäre der Spezialfilter - keine doppelten.

Gruß
Peter

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