|
Hallo Mackie,
vielen Dank für die triviale Lösung. Vor lauter Bäumen den Wald nicht gesehen.
Nun habe ich noch ein letztes Problem:
Folgender Code:
g = 0 ' Zeilenzähler
Spl = 7 'Spaltenzähler
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 Cells(17, Spl) = "Mo" Or Cells(17, Spl) = "Di" Or Cells(17, Spl) = "Mi" Or Cells(17, Spl) = "Do" Or Cells(17, Spl) = "Fr" Then
If Cells(20 + g, Spl).Value = "Anreise" Or Cells(20 + g, Spl).Value = "Abreise" Or Cells(20 + g, Spl).Value = "x" Or Cells(20 + g, Spl).Value = "X" Then
UnterderWoche = UnterderWoche + 1
End If
'Samstage zählen
ElseIf Cells(17, Spl) = "Sa" Then
If Cells(20 + g, Spl).Value = "Anreise" Or Cells(20 + g, Spl).Value = "Abreise" Or Cells(20 + g, Spl).Value = "x" Or Cells(20 + g, Spl).Value = "X" Then
Samstag = Samstag + 1
End If
'Sonntage zählen
ElseIf Cells(17, Spl) = "So" Then
If Cells(20 + g, Spl).Value = "Anreise" Or Cells(20 + g, Spl).Value = "Abreise" Or Cells(20 + g, Spl).Value = "x" Or Cells(20 + g, Spl).Value = "X" Then
Sonntag = Sonntag + 1
End If
End If
Else
End If
Spl = Spl + 1
'If Cells(g, Spl) = "" Then
' Exit Do
'End If
Loop Until Spl = 50
g = g + 1
If Cells(g, 6) = "" Then
Exit Do
End If
Loop Until g = 1000
Mein Problem: Wenn in bestimmter Zeile (Variable "g") und Spalte ("Variable "Spl") in der Zelle das Wort "Anreise" steht, erkennt er dieses nicht und beendet gleich die Schleife.
Der Rest funktioniert allerdings. Ich habe wie folgt deklariert:
Dim Mo, Di, Mi, Fr, Sa, So, Woche As String
Dim Sonntag As Integer
Dim Samstag As Integer
Wäre klasse, wenn du mir dazu auch eine triviale Lösung anbieten könntest.
Vielen Dank
|