|
Hallo Gast77950,
vielen Dank für deine Rückmeldung.
Nun habe ich noch das Problem, dass ich in einer bestimmen Zeile (im Bsp. untern 17) und unterschiedlichen Spalte (im Bsp. unten Spl) nach diesen "Text1" etc. suchen möchte.
Hierzu der Auszug:
g = 0 ' Gibt die aktuelle Zeile an, in der gesucht werden soll und wir durch Schleife um 1 erhöht
Spl = 7 ' Gibt die aktuelle Spalte an, in der der Text "Text1" etc. gesucht werden soll und wird mit Schleife um 1 Spalte nach rechts erhöht.
Do
Do
'Tage unter der Woche zählen
'Person finden, für die Kalkuliert werden soll
If Cells(20 + g, 6) = "Bauleiter INTERN" Then
If Range("17:Spl") = "Mo" Or Range("17:Spl") = "Di" Or Range("17:Spl") = "Mi" Or Range("17:Spl") = "Do" Or Range("17:Spl") = "Fr" Then
If Range(20 + g, Spl) = "Anreise" Or Range(20 + g, Spl) = "Abreise" Or Range(20 + g, Spl) = "x" Or Range(20 + g, Spl) = "X" Then
UnterderWoche = Cells(20 + g, Spl).Count
'Samstage zählen
ElseIf Cells(17, Spl) = "Sa" Then
If Cells(20 + g, Spl) = "Anreise" Or Cells(20 + g, Spl) = "Abreise" Or Cells(20 + g, Spl) = "x" Then
Sa = Cells(20 + g, Spl).Count
End If
'Sonntag zählen
ElseIf Cells(17, Spl) = "So" Then
If Cells(20 + g, Spl) = "Anreise" Or Cells(20 + g, Spl) = "Abreise" Or Cells(20 + g, Spl) = "x" Then
So = Cells(20 + g, Spl).Count
End If
End If
End If
Else
End If
UnterderWoche = Mo + Di + Mi + Don + Fr
Sa = Sa
So = So
Spl = Spl + 1
If Cells(g, Spl) = "" Then
Exit Do
End If
Loop Until Spl = 50
If Cells(g, 6) = "" Then
Exit Do
End If
g = g + 1
Loop Until g = 1000
Mein Ziel ist es also, wenn in der Zeile 17 an verschiedenen Tagen Mo-So ein x, Anreise oder Abreise steht, dass:
-Gesamtanzahl an Tagen die Mo-Fr gearbeitet wird (Bsp: in Woche 1 ein "x" bei Mo,Di,Mi,Sa,So und in Woche 2 ein "x" bei Mo,Di,Mi,Sa,So).
Heitß ich habe 6 mal x für 2x Mo, 2xDi, 2xMi
2x Sa
2x So
Diese jeweiligen Anzahlen soll er in die Variablen UnterderWoche für Mo-Fr schreiben = 6 in diesem Beispiel
Samstag für Sa = 2 in diesem Beispiel
Sonntag für So = 2 In diesem Beispiel
Wäre klasse, wenn du vllt. noch einen Satz dazu weißt, wie man das umsetzen könnte.
Vielen Dank dafür.
|