Wie Schleife aufbauen?

Sub neu() Dim i As Integer Dim x As Integer For i = 5 To 14 Worksheets("Berechnung").Activate Range("C4") = Cells(i, 6).Value ' fügt den namen ein Range("C5").Value = Cells(i, 9) ' benennt den Urlaubsbeginn Cells(i, 10).Value = Range("C7") 'setzt das Enddatum ein Cells(i + 1, 9).Value = Cells(i, 10) + 1 ' nennt das neue Startdatum und addiert 1 Next i Worksheets("Auswertung").Activate For x = 4 To 13 Worksheets("Auswertung").Range("D" & x & ":E" & x).Value = Worksheets("Auswertung").Range("D1: _ E1").Value Next x End Sub

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Sub neu() Dim i As Integer Dim x As Integer With Worksheets("Berechnung") For i = 5 To 14 .Range("C4") = .Cells(i, 6).Value ' fügt den namen ein .Range("C5").Value = .Cells(i, 9) ' benennt den Urlaubsbeginn .Cells(i, 10).Value = .Range("C7") 'setzt das Enddatum ein .Cells(i + 1, 9).Value = .Cells(i, 10) + 1 ' nennt das neue Startdatum und addiert 1 Next i .Range("F5:F14").Copy Worksheets("Auswertung").Range("C4").PasteSpecial xlPasteValues .Range("I5:J14").Copy Worksheets("Auswertung").Range("D4").PasteSpecial xlPasteValues End With End Sub

Hallo Regina,
ich habe die Datei noch einmal besser strukturiert.
https:\/\/www.herber.de/bbs/user/137356.xlsm
Ich glaube ich habe das Problem auch etwas schlecht beschrieben. Die originale Datei kann ich aus Datenschutzgründe leider nicht hochladen. Aber der Aufbau entsprecht nun dem der Datei. Nur das es noch wesentlich mehr "Ergebniszellen gibt".
Ich habe im Tab "Berechnung" mehrere Ergebnisse. Diese ändern sich, wenn man eine neue Person eingibt. Die Ergebnisse hängen unter anderem davon ab, wann das "Enddatum" der vorherigen Person ist.
Im Tab Auswertung habe ich alle Ergebnisse in einer Zeile verlinkt für eine bessere Übersicht.
Nachdem also in der ersten Schleife die Werte für Person 1 berechnet wurden, soll die Ergebniszeile in die Tabelle kopiert werden.
Danach sollen dann die Ergebnisse für Person 2 berechnet werden. Die Ergebniszeile soll dann wieder in die Tabelle zu Person 2 kopiert werden.
Ich hoffe ich konnte mein Problem nun verständlicher machen :)
Danke für deine Unterstützung :)

Sub neu() Dim i As Integer Dim x As Integer Dim rng As Range For i = 5 To 14 With Worksheets("Berechnung") .Range("C4") = .Cells(i, 6).Value ' fügt den namen ein .Range("C5").Value = .Cells(i, 9) ' benennt den Urlaubsbeginn .Cells(i, 10).Value = .Range("C7") 'setzt das Enddatum ein .Cells(i + 1, 9).Value = .Cells(i, 10) + 1 ' nennt das neue Startdatum und addiert 1 Set rng = Worksheets("Auswertung").Range("C5:C14").Find(.Range("C4"), Lookat:=xlWhole) x = rng.Row Worksheets("Auswertung").Range("D2:H2").Copy Worksheets("Auswertung").Cells(x, 4).PasteSpecial xlPasteValues End With Next i End Sub

Set rng = Worksheets("Auswertung").Range("C5:C14").Find(.Range("C4"), Lookat:=xlWhole) x = rng.Row Worksheets("Auswertung").Range("D2:H2").Copy Worksheets("Auswertung").Cells(x, 4).PasteSpecial xlPasteValues

Hi Thomas,
dann versuche ich mal Dir das Ganze auseinander zu ziehen.
Man versucht in der VBA-programmierung Activate und auch Select zu vermeiden. Beides sorgt dafür, dass der Cursor "springt", erzeugt Flackern am Monitor (könnte man verhindern) und kostet Zeit. Hintergrund ist dabei: Der normale Exceluser muss den Cursor auf ein Blatt und auf eine Zelle setzen, um mit dieser Zelle zu arbeiten, via VBA kann man Zellen "anfassen", ohne sie zu aktivieren.
Wenn man in deinem Code auf das Activate verzichtet hätte, hätte man eigentlich vor jedes Range und vor jedes Cells ein Worksheets("Berechnung") schreiben müssen. Das macht den Code unübersichtlich und kostet außerdem eine Menge "Tipp-Arbeit". Daher habe ich hier eine sogenannte With-Konstruktion genutzt. Diese wird mit With gefolgt von einem Objekt eingeleitet und endet mit einem End With. Zwischen With und End With beziehen sich alle Objekte, denen ein Punkt vorangesetzt wird auf das Objekt, das hinter With steht.
Im konkreten Beispiel bezieht sich alles auf das Tabellenblatt "Berechnungen". man muss dabei nur höllisch aufpassen, dass man keinen Punkt vergisst.


With Worksheets("Berechnung")
.Range("C4") = Cells(i, 6).Value
End With

Dadurch das vor Cells der Punkt fehlt, würde sich Cells hier nicht automatisch auf Worksheets("Berechnung") beziehen, sondern auf das gerade aktive Tabellenblatt.
Zu Deiner 2. Frage: Du willst ja im Blatt "Auswertung" die "richtige" Person finden. dazu hättest Du mit einer Schleife durchlaufen können, um die Person zu finden und in der "richtigen" Zeile die Eintragungen vorzunehmen. Das dauert aber u.U. (vielleicht wird die Liste auch mal länger) eine Weile. Daher habe ich die Find-Methode vorgezogen. Bei einem Treffer gibt diese Method die Zelle als Range-Objekt zurück, in der der gesuchte Wert gefunden wurde. Aus dem Range-Objekt kann man dann die Zeile auslesen.
Such zu dem Thema mal nach "Excel VBA Find".
Gruß Regina

Beliebteste Forumthreads (12 Monate)

10 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

10
Beiträge zum Forumthread

Beiträge zu diesem Forumthread