Vorkommnisse
17.11.2004 18:18:47
franz
Volker hat mir folgendes Makro geschrieben:
Sub Suche()
Sheets(1).Activate
j = 1
For i = 1 To 30
With ActiveSheet.UsedRange
Set hilf = .Find("<s" & i & ">")
If Not hilf Is Nothing Then
Sheets(2).Cells(j, 1) = "<s" & i & ">"
j = j + 1
End If
End With
Next
End Sub
In diesem Makro werden in Spalte j Vorkommnisse gesucht.
Klappt ganz toll.
Könnte man hier auch die Anzahl der Vorkommnisse -je Vorkommnis-
als Summe darstellen lassen ?
Gruss
franz
Anzeige