Schleife mit Bedingungsabfrage
11.12.2003 14:09:54
Peter
ich möchte die Bereichsabfrage (Bereich "Perszahl") von
einer Datumsbedingung abhängig machen damit nur Daten eingefügt
werden, die dieser Bedingung entsprechen.
So richtig funktioniert die Sache nicht.
Könnt Ihr nochmal helfen?
Danke im voraus
Peter
~begin~
Sub MitarbEintragen()
Dim Perszahl As Long
Dim Zähler As Long
Dim Zeichenfolge, ArbBereich As String
Dim intZeile As Integer, intZähler As Integer
'>>>Mitarbeiter Überrüfen
'Perszahl = Sheets("Mitarbeiter").[B2].End(xlDown).Row
intZeile = Sheets("Mitarbeiter").Cells(Rows.Count, 2).End(xlUp).Row
For intZähler = intZeile To 2 Step -1
If Cells(intZähler, 2).Offset(0, 3).Value >= DateSerial(Year(Date), Month(Date), 1) Then
'###>>>Fehler Cells(intZähler, 2) = Perszahl '.Interior.ColorIndex = 6
End If
Next intZähler
'>>>Mitarbeiterdaten eintragen
For Zähler = 2 To Perszahl
ArbBereich = Sheets("Mitarbeiter").Cells(Zähler, 1).Value
Zeichenfolge = Sheets("Mitarbeiter").Cells(Zähler, 2).Value
ArbBereich = Left(Sheets("Mitarbeiter").Cells(Zähler, 1).Value, 3)
Zeichenfolge = Zeichenfolge & ", " & Left(Sheets("Mitarbeiter").Cells(Zähler, 3).Value, 1) & "."
Cells(Zähler + 6, 1) = ArbBereich
Cells(Zähler + 6, 2) = Zeichenfolge
Next
End Sub
~end~