Live-Forum - Die aktuellen Beiträge
Datum
Titel
20.10.2025 19:34:56
Eine Zelle in 3 Spalten teilen
20.10.2025 19:24:08
Excel Form befüllen
20.10.2025 19:03:51
wenn istleer funktioniert nicht wegen formel
20.10.2025 13:56:55
Wenn Funktion mit Xverweis oder ähnlich
Keine passende Antwort im Forumarchiv gefunden?
Stelle deine Frage im Live-Forum
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1244to1248
1244to1248
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Blöcke in Zeilen (VBA-Demo) v.Matthias L

Forumthread: Blöcke in Zeilen (VBA-Demo) v.Matthias L

Blöcke in Zeilen (VBA-Demo) v.Matthias L
Paul
Hallo Matthias L
da hast du mir ein geniales Macro zur Lösung meine Problems geliefert. Die Lösung ist so gut dass da neue Bedürfnisse bei mir geweckt werden. Ist es auch möglich die Daten aus den Blöcken selektiv zu übernehmen, ich brauche eigentlich nicht alle.
Hab mal in der Beispieldatei (mit deinem VBA) den Block und die daraus zu generierende Zeile nebeneinander gestellt!
Gruß Paul
https://www.herber.de/bbs/user/78303.xls
Anzeige

6
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Benutzer
Anzeige
ist die Reihenfolge der Daten wichtig ? oT
08.01.2012 18:59:18
Matthias
AW: ist die Reihenfolge der Daten wichtig ? oT
08.01.2012 19:01:30
Paul
Hallo Matthias,
wäre gut!
Gruß Paul
AW: habe fertig ... Danke!!
08.01.2012 19:55:14
Paul
Hallo Matthias,
ich sag vielen Dank, eine perfekte Lösung
Gruß Paul
Kurzfassung
09.01.2012 01:05:06
Erich
Hi Matthias,
da hätte ich eine Kurzfassung anzubieten: 

Sub sTart2()
Dim LastA As Long, x As Long, c As Range, q As Long, arr
LastA = Cells(Rows.Count, 1).End(xlUp).Row
MsgBox "Es sind " & LastA / 4 & " Blöcke"
arr = Array(0, 0, 13, 14, 18, 19, 21, 22, 11, 0, 15, 16, 0, 0, _
24, 12, 0, 0, 0, 0, 25, 26, 0, 17, 0, 20, 0, 0, 23)
For x = 1 To LastA Step 4
q = 0
For Each c In Cells(x, 1).Resize(4, 7)
q = q + 1
If arr(q) Then Cells(x + 1, arr(q)) = c
Next
Next
End Sub
Rückmeldung wäre nett! - Grüße aus Kamp-Lintfort von Erich
Anzeige
und gleich ne Korrektur
09.01.2012 01:11:43
Erich
Hi,
sorry, das war doch zu kurz...
Bitte die viertletzte Zeile
If arr(q) Then Cells(x + 1, arr(q)) = c
ändern zu
If arr(q) Then Cells((x + 7) / 4, arr(q)) = c
Rückmeldung wäre nett! - Grüße aus Kamp-Lintfort von Erich
;

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige