Schleife mit Bedingungsabfrage

Bild

Betrifft: Schleife mit Bedingungsabfrage
von: Peter
Geschrieben am: 11.12.2003 14:09:54

Hallo Forum,
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~
Bild


Betrifft: AW: Schleife mit Bedingungsabfrage
von: Ulf
Geschrieben am: 12.12.2003 00:43:37

Hallo,

welche Bedingung willst du denn einbauen?

Gruß Ulf


Bild

Beiträge aus den Excel-Beispielen zum Thema " Schleife mit Bedingungsabfrage"