Hallo Gast24210,
vielen Dank für die Rückmeldung, allerdings möchte ich das gerne irgendwie mittels VBA lösen.
Mein aktuelles Problem liegt denke ich in Deklaration:
Bei folgender Abfrage wird nicht in die Spalte eingegangen:
Spl = 7 ' Spaltenzähler der nach jedem Schritt um 1 erhöht wird
g = 0 'Zeilenzähler ' Zeilenzähler der nach jedem Schritt um 1 erhöht wird.
If Cells(17,Spl) = "So" Then
If Cells(20+g,Spl) = "Anreise" or Cells(20+g,Spl) = "x) Then
Sonntag = Sonntag + 1
End If
End If
Loop----> Erhöhung um 1 der beiden Zähler (g und Spl).
DIe erste If-Überprüfung ist erfolgreich, allerdings die zweite If-Anweisung nicht. Er erkennt sogar, dass in der entsprechenden Zelle "Anreise" steht, aber geht nicht nach Sonntag = Sonntag +1 , sondern beendet die Schleife.
g und Spl sind als Integer deklariert.
Woran könnte das liegen, eine Idee?
Vielen Dank.
|