1004 bei CountIf
29.11.2005 16:14:15
Reinhard
im nachfolgenden färbt der Debugger die CountIf-Zeile (=12te Zeile).
letzte hat den Wert 17.
Code steht im Codebereich von Tabelle1 und Excel zeigt Tabelle1 an.
Danke für Hilfe
Gruß
Reinhard
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Cells.Count <> 1 Then GoTo weiter
If Target.Column < 2 And Target.Column > 5 Then Exit Sub
With Worksheets("Automaten")
Select Case Target.Column
Case 2, 5 ' Namenseingabe
If Cells(Target.Row, 2) = "" Or Cells(Target.Row, 5) = "" Then Exit Sub
'letzte ist die Zeilennummer des letzten Automaten, quasi iws die Automatenanzahl
letzte = .Range("B65536").End(xlUp).Row
'wieviele davon sind gerade frei
.Activate
freie = Application.WorksheetFunction.CountIf(.Range("B2:17"), "Ja")
If freie = 0 Then
Cells(Target.Row, 6) = "keiner frei"
Else
For n = 2 To .Rows.Count
If Cells(n, 2) = "Ja" Then
Cells(Target.Row, 6) = Cells(n, 1)
Cells(n, 2) = "Nein"
End If
Next n
End If
Case 3, 4 'Punkteeingabe
If Target.Value <> 2 Then Exit Sub
.Cells(Cells(Target.Row, 6) + 1, 2) = "Ja"
End Select
End With
weiter:
End Sub