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.

2
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Benutzer

AW: Leerzellen Löschen

Gerold
...Oder manuell 2x sortieren! Gruß owT

Luc:-?

AW: Leerzellen Löschen

20.07.2011 19: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.

...Oder manuell 2x sortieren! Gruß owT

20.07.2011 19:38:55

Luc:-?

:-?

Forumthread: Leerzellen Löschen

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

VBA Beispiele zu diesem und ähnlichen Themen

2
Beiträge zum Forumthread

Beiträge zu diesem Forumthread