Sortieren

Bild

Betrifft: Sortieren
von: Rene'
Geschrieben am: 21.11.2003 15:05:48

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??

Bild


Betrifft: leere zeilen löschen
von: andreas e
Geschrieben am: 21.11.2003 15:08:51

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


Bild


Betrifft: AW: Sortieren
von: PeterW
Geschrieben am: 21.11.2003 15:17:48

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


Bild

Beiträge aus den Excel-Beispielen zum Thema " Sortieren"