Daten mit Schleife abarbeiten

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hallo Tino,
vielen Dank für das Feedback, allerdings sind die Files eine ziemliche Baustelle, so dass es eher schwierig ist mit der Bsp.-Datei. Vergiss aber am besten mal den Code weiter oben.
Folgendes: Ich habe ein Dropdownfeld in dem Namen stehen und so ausgewählt werden können. Je nach Auswahl ändert sich die Zelle O1 (bei Name 2 steht dort dann eben eine 2) Die Zellen A1:C1 sind jeweils verformelt, so dass diese Werte sich je nach Auswahl Namen ändern. Nun sollte ich eben eine Schleife haben, die alle Namen im Dropdown abarbeitet. Entweder dass das Makro in O1 nacheinander die Werte 1 bis 50 reinschreibt und abarbeitet (also der oben aufgeführte Copy-Befehl). Ganz klasse wäre natürlich dass das Makro selbständig erkennt wieviel Einträge im Dropdown stehen, also nicht nur fix 50 Einträge abarbeitet. Ist das nun verständlich? Sorry, ist manchmal gar nicht so einfach zu erklären..
Danke und Gruss
Nik

Sub Makro1() Dim n&, nn&, MerkWert With Application .ScreenUpdating = False .EnableEvents = False With Worksheets("Rechnung") 'Name des Dropdown evtl. anpassen nn = Range(.Shapes("Dropdown 1").DrawingObject.ListFillRange).Rows.Count MerkWert = .Range("O1").Value End With With Worksheets("Zusammenfassung") For n = 1 To nn Worksheets("Rechnung").Range("O1") = n 'kann evtl. gelöscht werden wenn Berechnung auf Auto... steht Worksheets("Rechnung").Calculate .Cells(.Rows.Count, 1).End(xlUp).Offset(1, 0).Resize(, 10).Value = _ Worksheets("Rechnung").Range("P2:Y2").Value Next n End With Worksheets("Rechnung").Range("O1").Value = MerkWert .EnableEvents = True .ScreenUpdating = True End With End Sub

Habe es eben rausgefunden...DANKE! Allerdings wird jeder Datensatz nun doppelt in die Zusammenfassung geschrieben...:-(
Dim n&, nn&, MerkWert
With Application
.ScreenUpdating = False
.EnableEvents = False
Worksheets("Zusammenfassung").Select
Range("A2:K1000").Delete
Worksheets("Rechnung").Select
With Worksheets("Rechnung")
'Name des Dropdown evtl. anpassen
nn = Range(.Shapes("Listenfeld 3").DrawingObject.ListFillRange).Rows.Count
MerkWert = .Range("O1").Value
End With
With Worksheets("Zusammenfassung")
For n = 1 To nn
Worksheets("Rechnung").Range("O1") = n
.Cells(.Rows.Count, 1).End(xlUp).Offset(1, 0).Resize(, 10).Value = _
Worksheets("Rechnung").Range("P2:Y2").Value
Worksheets("Rechnung").Select
Range("P2:Y2").Copy
Worksheets("Zusammenfassung").Select
Cells(65000, 1).End(xlUp).Offset(1, 0).Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Next n
End With
Worksheets("Rechnung").Range("O1").Value = MerkWert
.EnableEvents = True
.ScreenUpdating = True
End With
Was läuft hier falsch?

Beliebteste Forumthreads (12 Monate)

7 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

7
Beiträge zum Forumthread

Beiträge zu diesem Forumthread