Syntaxfehler und ich finde ihn nicht
26.05.2013 10:29:39
Jenny
unten stehendes Makro meldet beim Kompilieren im fett/kursiven Teil einen Syntaxfehler, kann mir da jemand helfen?
Gruß
Jenny
Sub Makro1()
' Makro1 Makro
' Tastenkombination: Strg+y
Dim lngAnzahl As Long, rngZelle As Range
lngAnzahl = 0
If Intersect(Sheets(Sheets.Count).Range("E2:AZ10000"), Sheets(Sheets.Count).UsedRange) Is _
_
_
_ 4
Nothing Then Exit Sub
For Each rngZelle In Intersect(Sheets(Sheets.Count).Range("E2:AZ10000"), Sheets(Sheets.Count). _
_
_
_
UsedRange)
If rngZelle.Font.ColorIndex = 3 Then lngAnzahl = lngAnzahl + 1
Next rngZelle
Sheets("alle").Cells(1, 4).Value = lngAnzahl
Dim objRange As Range
Dim lngRow As Long, lngColumn As Long
Randomize
With Application.FindFormat
.Clear
.Font.Color = vbBlack
End With
lngRow = Int((ActiveSheet.UsedRange.Rows.Count - 1 + 1) * Rnd + 1)
lngColumn = Int((52 - 5 + 1) * Rnd + 5)
Set objRange = Range(Cells(1, 5), Cells(Rows.Count, 52)).Find( _
What:="*", After:=Cells(lngRow, lngColumn), LookIn:=xlValues, _
LookAt:=xlPart, SearchFormat:=True)
objRange.Select
End Sub