Vorkommnisse
17.11.2004 20:49:27
franz
Wenn..
Die letzte VBA funktioniert nicht.
Kommt nur Durcheinander raus..
Hier nochmal das 1. funktionierende Makro:
Das Makro zählt eindeutige Vorkommnisse (einen String). Schreibt mir
auch toll raus, was er eindeutig (ohne Duplikate) findet.
Nun wollte ich, dass die Anzahl nebendran geschrieben wird...
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(3).Cells(j, 1) = "<s" & i & ">"
j = j + 1
End If
End With
Next
End Sub
Gruss
franz