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

Zeilen einfügen - Spalten in Zeilen

Zeilen einfügen - Spalten in Zeilen
14.12.2004 15:19:59
Georg
Hallo,
wie könnte man das in der hochgeladenen Datei geschilderte Problem per VBA lösen ? Bitte für die sicher notwendige Schleifenstruktur beachten, daß die Zahl der Zeilen im Verlaufe des Codes zunimmt.
https://www.herber.de/bbs/user/14824.xls
Gruß
Schorsch

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Zeilen einfügen - Spalten in Zeilen
14.12.2004 20:04:57
Christoph
Hi Georg,
in diesem Fall fängst du am besten von unten an (siehe Bsp)
Gruß
Christoph

Option Explicit
Sub InEineSpalte()
Dim i&, j%
With Sheets("Tabelle1")
For i = .Cells(Rows.Count, 2).End(xlUp).Row To 1 Step -1
For j = .Cells(i, Columns.Count).End(xlToLeft).Column To 3 Step -1
If .Cells(i, j) <> "" Then
.Rows(i + 1).Insert
.Cells(i + 1, 2) = .Cells(i, j)
.Cells(i, j) = ""
End If
Next
Next
End With
End Sub

AW: Zeilen einfügen - Spalten in Zeilen
Georg
Hallo Christoph,
danke Dir, funktioniert einwandfrei !!!!
Gruß
Schorsch
Danke für die Rückmeldung (o.T.)
14.12.2004 21:47:00
Christoph
Anzeige

306 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige