Live-Forum - Die aktuellen Beiträge
Datum
Titel
24.04.2024 00:20:14
Bestimmte Spalten als xls exportieren per Makro
23.04.2024 22:08:10
Auflisten in Spalte VBA
23.04.2024 21:33:46
Nur farbige/nicht farbige Zellen markieren
23.04.2024 21:29:56
Bestimmte Zellen auf andere Arbeitsblätter kopieren
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
704to708
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
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
704to708
704to708
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Inhalt mit VBA verschieben vertikal nach horizonta

Inhalt mit VBA verschieben vertikal nach horizonta
12.12.2005 16:55:53
Dave
Hallo,
ich möchte gerne, dass ein VBA Makro die untereinander stehenden Inhalte neben einander schreibt und nach jeder freien zelle in die nächste Zeile springt. In der Excel Datei habe ich tabelle 1 las ausgangsform und und in tabelle 2 wie es danach aus sehen soll.
Danke für eure Hilfe!!!
https://www.herber.de/bbs/user/29153.xls

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

Betreff
Datum
Anwender
Anzeige
AW: Inhalt mit VBA verschieben vertikal nach horiz
12.12.2005 18:00:28
Peterchen
Hi Dave,
So sollte es gehen.
Viel Erfolg Peterchen

Sub umsortieren()
Dim qtab As Worksheet
Dim ztab As Worksheet
Dim qzl As Long
Dim zzl As Long
Dim zsp As Integer
Set qtab = Worksheets("Tabelle1")
Set ztab = Worksheets("Tabelle2")
qzl = 1
zzl = 1
zsp = 1
Do
If qtab.Cells(qzl, "A").Value <> "" Then
ztab.Cells(zzl, zsp).Value = qtab.Cells(qzl, "A").Value
zsp = zsp + 1
qzl = qzl + 1
ElseIf qtab.Cells(qzl + 1, "A").Value <> "" Then
qzl = qzl + 1
zzl = zzl + 1
zsp = 1
ztab.Cells(zzl, zsp).Value = qtab.Cells(qzl, "A").Value
Else
Exit Sub
End If
Loop
End Sub

Anzeige
AW: Inhalt mit VBA verschieben vertikal nach horizonta
12.12.2005 18:04:11
Peter
Hallo Dave,
die beigefügte Mappe tut das, was du möchtest.
https://www.herber.de/bbs/user/29159.xls
Viele Grüße Peter
Eine kurze Nachricht, ob es läuft, wäre nett - danke.
AW: Inhalt mit VBA verschieben vertikal nach horizonta
13.12.2005 11:03:48
Dave
Danke hat super geklappt!!!
Das hat mir den Tag gerettet.
Bis dann und eine schöne Weihnachtszeit!!!

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige