Live-Forum - Die aktuellen Beiträge
Datum
Titel
15.04.2024 23:32:21
Darstellung im IMAGE sehr schlecht
15.04.2024 21:08:34
PDF mit Makro erstellen mehrere Sheets
15.04.2024 18:38:39
Arbeitszeiten Vorlage ergänzen
15.04.2024 17:34:30
Fehlende Zeilen automatisch nach Zeiten ergänzen
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
340to344
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
340to344
340to344
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Sortieren

Sortieren
21.11.2003 15: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
Anzeige
leere zeilen löschen
21.11.2003 15: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
Anzeige
AW: Sortieren
21.11.2003 15: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
Anzeige

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige