Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1220to1224
1220to1224
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Leerzellen Löschen

Forumthread: Leerzellen Löschen

Leerzellen Löschen
Thomas
Hallo zusammen,
folgende Frage:
In Spalte A stehen Kundennummern ( Suchergebnisse aus Formeln)
allerdings mit Leerzellen dazwischen.
In Spalte B möchte ich nun diese Daten wieder einegtragen haben, allerdings ohne die Leerzellen.
Anzeige

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Benutzer
Anzeige
AW: Leerzellen Löschen
20.07.2011 17:03:30
Gerold
Hallo Thomas
Wie wärs mit sowas

Sub test()
Dim i, j
j = 1
For i = 1 To Cells(Rows.Count, 1).End(xlUp).Row
If Cells(i, 1).Value  "" Then
Cells(j, 2) = Cells(i, 1)
Cells(i, 1) = ""
j = j + 1
End If
Next
End Sub
Mfg Gerold
Rückmeldung wäre nett.
Anzeige
...Oder manuell 2x sortieren! Gruß owT
20.07.2011 17:38:55
Luc:-?
:-?
;

Beliebteste Forumthreads (12 Monate)

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