Hallo,

ich hoffe ich krieg das jetzt einigermaßen erklärt.
Ich schreibe greade an einer Möglichkeit die Eintragungen in einerm Bericht in einer Übersicht zu sammeln.

Das heißt es gibt ein Tabellenblatt am Anfang der Mappe in das die Daten hineingeschrieben werden sollen und danach folgen unterschiedlich viele Blätter mit den eizelnen Berichten in denen Personalstunden, Maschinen und Material täglich erfasst wird. Die Blätter sind immer absolut gleich aufgebaut.

Nun soll der Nutzer die Möglichkeit erhalten wenn er einen Bericht fertig hat die eingetragenen Werte an das erste Blatt zu senden.
Dabei soll am Beispiel der Mitarbeiterstunden geprüft werden ob es den MA in der Liste in Blatt 1 schon gibt und dann dessen Stunden aufgerechnet werden. Wenn es im Bericht einen neuen MA gibt dann soll dieser mit seinen Stunden in die Liste aufgenommen werden.

Ich habe das schon mit zwei verschachtelten For - Next Schleife versucht, aber das funktioniert bisher nicht weil ja erst immer die innere Schleife vollständig abläuft und dann erst der nächste schritt der äußeren schleife erfolgt.

Ich wäre für einen Tip sehr sehr dankbar.

Gruß

Geroellheimer

Mein bisheriger Versuch :

Sub personal()
Dim Wert1 As String 'MA
Dim Wert2 As String 'MA Prüfung
Dim Wert3 As String 'Stunden

Dim WS As Worksheet
Dim WS2 As Worksheet
Set WS = ActiveSheet
Set WS2 = ThisWorkbook.Worksheets("Werte")
For i = 20 To 25
Wert1 = WS.Range("A" & i).Value
Wert3 = WS.Range("Q" & i).Value
If Wert1 = "" Then
Exit For
End If
For k = 11 To 20
Wert2 = WS2.Range("A" & k).Value

If Wert1 = Wert2 Then
WS2.Range("B" & k).Value = Wert3
WS2.Range("C" & k).Value = Now
Wert4 = Wert1
End If

If Wert1 <> Wert2 Then
WS2.Range("A" & k).Value = Wert1
WS2.Range("B" & k).Value = Wert3
WS2.Range("C" & k).Value = Now
Wert4 = Wert1
End If

Next k
Next i
End Sub