geht's auch einfacher

Sub testlauf() Dim i As Integer Dim j As Integer Dim a As Integer For i = 4 To 203 'If Cells(8, i) = "" Then Next i ' funktioniert ja nicht, oder ? For j = 11 To 376 If Cells(8, i) = "" Then Exit For ' dann hab ich das eben so gemacht If Cells(j, i) = "H" Then a = a + 1 If Cells(j, 3) >= Now Then Cells(9, i) = a a = 0 Exit For End If Next j Next i End Sub

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Sub testlauf() Dim i As Integer Dim j As Integer Dim a As Integer For i = 4 To 203 If Cells(8, i) <> "" Then For j = 11 To 376 If Cells(j, i) = "H" Then a = a + 1 Else If Cells(j, 3) >= Now Then Cells(9, i) = a a = 0 Exit For End If End If Next j End If Next i End Sub

Sub testlauf() Dim i As Integer Dim zeile As Integer For zeile = 11 To 376 If Cells(zeile, 3) >= Now Then Exit For Next zeile For i = 4 To 203 If Cells(8, i) <> "" Then Cells(9, i) = _ Application.WorksheetFunction.CountIf(Range(Cells(11, i), Cells(zeile, i)), "H") Next i End Sub

Hallo Ingo,
danke dass Du mir helfen willst, Deine Lösung sieht sehr gut aus aber klappt nicht.
Die Lösung von Hans funktioniert auch nicht.
An dieser Stelle auch ein Danke an Hans.
Vorweg, was hast Du damit gemeint,
" Now ist für einen Datumsvergleich übrigens kritisch, da der Zeitanteil dazu führt, dass zB heute 09.02.2007" ?
Hast Du da zu früh aufgehört zu schreiben, oder bin ich total blöd?
Vielleicht hätte ich mal sofort die Aufgabe beschrieben.
Also:
In Zeile 8 D-GU (4-203) stehen die Mitarbeiter. Wobei nicht alle Spalten belegt sind.
In Spalte C 11-376 stehen die Tagesdaten (Datum: C11=1.1.,C12=2.1.,C13=3.1. usw. )
1. es soll Zeile 8 von 4 - 203 auf einen Mitarbeiter gepüft werden.
2. wenn Mitarbeiter dann soll der Spalte von 11-376 die Einträge "H" bis zum aktuellen Datum (Heute) gezählt werden und in Zeile,9 geschrieben werden.
Wenn kein Mitarbeiter in Zeile, dann nächte Zeile auf Mitarbeiter prüfen (schnellerer Durchlauf der Prüfung).
Es soll also für jeden Mitarbeiter festgestellt werden wieviel mal ("H"), bis zum aktuellen Datum (also Heute), in "seiner" Zeile steht.
Ergebnis soll sein: Der Mitarbeiter hat bis heute x mal halbtags gearbeitet.
Nochmals, wobei zu beachten ist, dass nicht in jeder Spalte (8 D-GU (4-203)) ein Mitarbeiter steht.
Ich hoffe ich habe mich verständlich ausgedrückt und Du kannst mir weiterhelfen.
gruss
sonja.ausHH

Sub testlauf() Dim i As Integer Dim zeile As Integer Range("D9:GU9").ClearContents For zeile = 11 To 376 If Cells(zeile, 3) >= Int(Now) Then Exit For Next zeile For i = 4 To 203 If Cells(8, i) <> "" Then Cells(9, i) = _ Application.WorksheetFunction.CountIf(Range(Cells(11, i), Cells(zeile, i)), "H") Next i End Sub

Hallo Sonja,
nun wird das Ergebis in die Zelle 9, x ausgegeben.

'
'   hat der Mitarbeiter bis zum heutigen Tag halbtags gearbeitet ?
'
Public Sub Halbtags()
Dim lZeile       As Long     ' For/Next Index der Zeilen
Dim lLetzte      As Long     ' letzte belegte Zeile in Spalte C
Dim iSpalte      As Integer  ' For/Next Index der Spalten
Dim lSpalte      As Integer  ' letzte Belegte Spalte in Zeile 8
Dim iLfdTag      As Integer  ' der aktuell laufende Tag im Jahr
Dim iAnzHalbtag  As Integer  ' Anzahl der mit H gekennzeichneten Tage
'
'   den aktuell laufenden Tag aus dem Tagesdatum ermitteln
'
   iLfdTag = CDate(Date) - DateSerial(Year(CDate(Date)), 1, 0)
'
'   im Tabellenblatt Urlaub die Tage je Mitarbeiter zählen, die mit
'   einem "H" gekennzeichnet sind - und zwar bis zum lfd Tag des Jahres
'
   With Worksheets("Urlaub")                     ' im Tabellenblatt "Urlaub"
      lLetzte = IIf(.Range("C65536") <> "", 65536, .Range("C65536").End(xlUp).Row)
      lSpalte = IIf(.Cells(8, 256) <> "", 256, .Cells(8, 256).End(xlToLeft).Column)
      For iSpalte = 4 To lSpalte                 ' ab Spalte C bis Ende
         iAnzHalbtag = 0                         ' Zähler löschen
         If Cells(8, iSpalte).Value <> "" Then   ' ist ein MA eingetragen ?
            For lZeile = 11 To iLfdTag + 11      ' ab Zeile 11 bis lfd Tag
               If UCase(Cells(lZeile, iSpalte).Value) = "H" Then ' ein großes "H"
                  iAnzHalbtag = iAnzHalbtag + 1  ' Zähler aufaddieren
               End If
            Next lZeile                          ' nächste Zeile
         End If
         If iAnzHalbtag > 0 Then                 ' gab es Halbtagsarbeit ?
            .Cells(9, iSpalte).Value = iAnzHalbtag
          Else
            .Cells(9, iSpalte).Value = ""
         End If
      Next iSpalte                               ' nächster Mitarbeiter
   End With
End Sub

Viele Grüße Peter
Eine kurze Nachricht, ob es läuft, wäre nett - danke.

Beliebteste Forumthreads (12 Monate)

15 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

15
Beiträge zum Forumthread

Beiträge zu diesem Forumthread