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

2 Zeilen verbinden die untereinander stehen

2 Zeilen verbinden die untereinander stehen
28.05.2004 15:30:06
Uppe
hallo.
ich habe eine sehr grosse datei im folgenden Format
-----------------------
wert1
fehlermeldung
wert2
fehlermeldung
wert3
fehlermeldung
-----------------------
d.h. die untenstehende meldung gehört immer zu dem wert eine zeile höher...
ich will nun einfach jeweils die 2 untereinander stehenden zeilen nebeneinander bringen
(am besten in 2 verschiedene spalten)
-----------------------
wert1 fehlermeldung
wert2 fehlermeldung
wert3 fehlermeldung
-----------------------
wie geht das am besten ?
vielen dank schon im voraus...
uwe

1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: 2 Zeilen verbinden die untereinander stehen
28.05.2004 16:08:32
Matthias
Hallo Uwe,

Sub test()
Const Spalte = 1 'in Spalte A
Dim lz As Long, i As Long
lz = Cells(65536, Spalte).End(xlUp).Row
For i = lz To 2 Step -2
Cells(i, Spalte).Offset(-1, 1).Value = Cells(i, Spalte)
Cells(i, Spalte).EntireRow.Delete
Next i
End Sub

Gruß Matthias
Anzeige

301 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige