Schüler anordnen

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Benutzer

Hallo,
in dem Makro von Hubert, was mir sehr geholfen hat (https://www.herber.de/bbs/user/74306.xls) gibt es einen Abschnitt, dass ich so oft wiederholen muss wieviele Elternzeile vorhanden....und da sind ca. 100 Zeilen :-(
Bsp:
Range("C15").Select
Sheets("Inputsdatei").Select
Range("Y4:AF4").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Hilfstabelle").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=True
nächstes wäre dann mit "C15"+6 = "C21", danach "C27", "C33", "C39" etc.
und "Y4:AF4"+ 1= ""Y5:AF5", danach "Y6:AF6","Y7:AF7", "Y8:AF8" etc.
also würde der nächste heißen:
Range("C21").Select
Sheets("Inputsdatei").Select
Range("Y5:AF5").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Hilfstabelle").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=True
Range("C27").Select
Sheets("Inputsdatei").Select
Range("Y6:AF6").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Hilfstabelle").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=True
und so weiter. Und dies müßte ich dann ca. 100mal (wenn nicht 200 später) kopieren, damit die Liste abgearbeitet wird.
Frage: Gibt es eine Wiederholungsmöglichkeit dieses Abschnittes mit der Abänderung dieser zwei Zellen?
Danke im voraus,
Meli

Hallo Mustafa,
vielen lieben Dank für deine elegante Makro für meine Lösung. Ich habe sie auf meine echte Datei rüberkopiert und ein paar Anpassungen gemacht:
1. Schleife soll bis max. Zeile 200 (von Inputsdatei) gehen
2. Von Inputsdatei soll er nicht alle 8 Spalten mit Kindern kopieren, sondern nur 6.(weil es sehr unwahrscheinlich ist, dass jemand wirklich 8 Kinder hat).
3. In der Hilfsdatei soll er den Bereich A3:G1250 sicherheitshalber ins Ergebnistabelle kopieren (wenn nämlich 200 Zeilen haben werde a 6 mögliche Kinder)
4. Im Ergebnisdatei von max. 200 Zeilen ausgegangen
So: habe den unten stehenden Makro ausgeführt, und dann ist er bei Zeile 55 in Ergebnistabelle stehengeblieben. ...und diesen "Satz" wks2.Range("A3:G1250").Copy gelb markiert.
Ich bin nicht draufgekommen, wo mein Fehler liegen könnte. Kannst du mir bitte da weiterhelfen?
Vielen Dank im voraus.

Sub ErgebnistabelleAktualisieren()
Dim wks1 As Worksheet, wks2 As Worksheet, wks3 As Worksheet
Dim lngZeile1 As Long, lngZeile2 As Long
Dim Zelle As Range
Application.ScreenUpdating = False
Set wks1 = Worksheets("Inputsdatei")
Set wks2 = Worksheets("Hilfstabelle")
Set wks3 = Worksheets("Ergebnis")
' Schleife reicht bis Zeile 200 in der Inputsdatei. Wenn mehr, dann muss man unten anpassen.
For lngZeile1 = 2 To 200
If lngZeile2

Beliebteste Forumthreads (12 Monate)

14 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

14
Beiträge zum Forumthread

Beiträge zu diesem Forumthread