Problem mit Makro
28.09.2005 09:33:38
Michael
ich habe mal wieder ein Problem!
Ich möchte in einert Tabelle eine Plausibilitätsprüfung starten. Ich möchte zwei Dienstformen überprüfen. Die Dienstformen stehen aber in einem andern Blatt ("Dienste") beim starten des Makros gibt er immer den Fehler Typenunverträglichkeit.
Ich hoffe es kann mir jemand helfen.
Gruß
Michael
Private Sub plausi_Click()
Dim spalte As Integer
Dim zeile As Integer
Dim frueh As Integer
Dim plau1 As String
Dim plau2 As String
For spalte = 4 To 34
frueh = 0
plau1 = Worksheets("Dienste").Range("J2").Value
plau2 = Worksheets("Dienste").Range("K2").Value
For zeile = 4 To 119
If Cells(zeile, spalte) = plau1 Or plau2 Then
frueh = frueh + 1
End If
Next zeile
Cells(161, spalte) = frueh
Next spalte
End Sub