Sub kontrolle()
Dim suche
Dim i As Integer
Dim f As Object
'With Worksheets("Analyse").Range(.Cells(spalte, 74), .Cells(spalte, 77)).ClearContents
'End With
For Each c In Range("D5:BI59").Cells
spalte = c.Column
wert = c.Value
zeile = 0
With Worksheets("Analyse").Range("d100:d354")
Set f = .Find(wert, LookIn:=xlValues)
If Not f Is Nothing Then zeile = 74
End With
With Worksheets("Analyse").Range("e100:e354")
Set f = .Find(wert, LookIn:=xlValues)
If Not f Is Nothing Then zeile = 75
End With
With Worksheets("Analyse").Range("f100:f354")
Set f = .Find(wert, LookIn:=xlValues)
If Not f Is Nothing Then zeile = 76
End With
With Worksheets("Analyse").Range("g100:g354")
Set f = .Find(wert, LookIn:=xlValues)
If Not f Is Nothing Then zeile = 77
End With
If zeile > 0 Then Cells(spalte, zeile).Value = Cells(spalte, zeile).Value + 1
Next
End Sub
Habe nun folgenden Code geschrieben der auf funktioniert aber,das Problem ist meine Kommentar Zeile:
Da schreibt er mir einen Fehler ... wie kann das sein!
In nachfolgender Spalte erhalte ich ebenfalls einen Fehler: Laufzeitfehler 13.
If zeile > 0 Then Cells(spalte, zeile).Value = Cells(spalte, zeile).Value + 1
|