Live-Forum - Die aktuellen Beiträge
Datum
Titel
25.04.2024 08:41:49
VBA: Probleme mit pdftk zum Zusammenfügen
25.04.2024 00:42:03
Listbox mit gefilterten Daten füllen
24.04.2024 20:38:58
Summe mit Bedingung, nur letzte Ergebnisse anzeigen
24.04.2024 19:29:30
Formel filter
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1244to1248
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
1244to1248
1244to1248
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

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

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)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige