Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender

Forumthread: Nummer in Spalte A untereinander verschieben

Nummer in Spalte A untereinander verschieben
21.07.2005 17:19:30
Jens
Hallo Forum,
wie bekomme ich alle in meinem Beispiel Zahlen untereinander in Spalte A verschoben/ kopiert?
https://www.herber.de/bbs/user/24895.xls
Danke Jens
Anzeige

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

Betreff
Datum
Anwender
Anzeige
AW: Nummer in Spalte A untereinander verschieben
21.07.2005 17:42:27
Herbert
hallo Jens,
probier das einmal:

Sub kop()
Dim i%, s%, lz%, ez
lz = Cells(Rows.Count, 2).End(xlUp).Row
ez = 1
For i = 1 To lz
For s = 2 To 256
If Cells(i, s) <> "" Then
Cells(ez, 1) = Cells(i, s)
ez = ez + 1
End If
Next
Next
End Sub

gruß Herbert
Anzeige
Danke für die Hilfe, läuft perfekt...
22.07.2005 09:17:46
Jens
;

Forumthreads zu verwandten Themen

Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige