Kopier Algorythmus

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Option Explicit Sub kopieren() Dim raum As Range, c As Range Dim zmin&, zmax&, raumMax&, r&, z&, s&, p&, zeilen&() Dim v As Variant zmin = 3 zmax = Range("A" & Rows.Count).End(xlUp).Row Set raum = Range("B" & zmin + 1 & ":B" & zmax).SpecialCells(xlCellTypeConstants, 23) raumMax = raum.Count ReDim zeilen(1 To raumMax) r = 1 For Each c In raum: zeilen(r) = c.Row: r = r + 1: Next For r = 1 To raumMax - 1 v = Range("A" & zeilen(r) & ":M" & zeilen(r + 1) - 1) v(1, 3) = v(1, 2) v(1, 2) = v(1, 13) v(1, 1) = v(1, 12) 'usw. kannste selber p = 5 For z = 2 To UBound(v) p = p + 1 For s = 5 To 9 If v(z, s) <> "" Then v(1, p) = v(z, s) ' p = p + 1 Exit For End If Next Next Sheets("Liste2").Range("A" & r + 2 & ":M" & r + 2) = v Next End Sub

Hi Mirko,
êigentlich geht es nur um diese Zeilen:

v = Range("A" & zeilen(r) & ":M" & zeilen(r + 1) - 1)
v(1, 3) = v(1, 2)
v(1, 2) = v(1, 13)
v(1, 1) = v(1, 12)
'usw. kannste selber

a) v ist als Variant deklariert und durch die Zuweisung zu einem Bereich "automatisch" ein sogenanntes Array. Das liest Du z.B. hier nach: http://www.online-excel.de/excel/singsel_vba.php?f=152
Das Array v ist im Prinzip eine Kopie eines rechteckigen Tabellenbereichs.
b) Zurückgeschrieben wird ja nur die 1. Zeile des mehrzeiligen Arrays, so daß alle Zuweisungen von Namen usw. in der ersten Zeile erfolgen.
Das sind die Zeilen mit v(1,x)=v(1,y), d.h. DIESE Schreibarbeit kannst Du selbst übernehmen; Du mußt nur x durch die Spalte ersetzen, wo was hinsoll und y durch die Spalte, wo es her kommt.
Für den "VBA-Profi" sollte das zumutbar sein.
Wichtig: Mein Codebeispiel enthält vom Fleck weg KEINE Fehlerbehandlung; d.h. falls mehr Zeilen da sein sollten als das Array breit ist, bleibt das Makro stehen.
Hier ist aber auch ein Widerspruch zwischen Deinem Text ("bis zu 8 Zeilen") und der Datei, in der Du auf "Liste2" nur die Spalten F-J, also fünf Spalten, nicht acht, vorgesehen hast.
Schöne Grüße,
Michael

Hi Mirko,
die neue Datei habe ich mir angesehen; dabei gibt es jedoch noch ein paar Fragen:
a) siehe gestern um 22:16: max. Anzahl der Zeilen bzw. Spalten: das läßt sich natürlich abfangen, nur: was soll passieren, wenn es mehr sein sollten?
b) was ist z.B. mit den Zeilen 87 und 88? Hier sind zwischen den "Überschriften" in Spalte B/C keine Zeilen mit Werten vorhanden. Sollen die ohne Werte übernommen werden? Oder gar nicht?
[werkel, werkel]
Eine gemeine Frage folgt aus Deinem statement jedoch scheitere ich den ganzen Tag schon!!:): Hast DU was besseres zu tun?
Ich schon, trotzdem habe ich mich der Geschichte angenommen. EIN Punkt, weshalb die bisherige Logik mit den specialcells nicht funktionieren konnte ist: siehe oben b).
Für die "Übersetzung" der Spalten von einer Tabelle in die andere habe ich ein gesondertes Array angelegt: so lassen sich die Spalten-Nummern zentral und übersichtlich anpassen.
Die Datei: https://www.herber.de/bbs/user/105103.xlsm
Die Ausgabe erfolgt im Moment in Liste ab Zeile 30, damit Du den direkten Vergleich hast.
"Machen" klicken und Liste2 angucken:
Die gelb markierten Zeilen wurden erzeugt, weil im Kopf des Codes

Const mitEinzelzeilen = True

festgelegt wurde (das sind die "Einzeiler" aus oben b)). Im Beispiel enthalten die ab BX auch keine Werte, deshalb werden sie gar nicht erst danach durchsucht.
Mit = false werden sie denn gar nicht übernommen - such Dir's aus.
Ach ja, wegen a) bei mehr als 8 kommt eine MsgBox.
Schöne Grüße,
Michael

Beliebteste Forumthreads (12 Monate)

18 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

18
Beiträge zum Forumthread

Beiträge zu diesem Forumthread