Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
640to644
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
640to644
640to644
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

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

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
Danke für die Hilfe, läuft perfekt...
22.07.2005 09:17:46
Jens
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige