Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
516to520
516to520
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Vorkommnisse

Forumthread: Vorkommnisse

Vorkommnisse
17.11.2004 20:49:27
franz
Hallo, ist Volker noch da oder sonst?
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
Anzeige

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Vorkommnisse
17.11.2004 22:42:46
Josef
Hallo Franz!
Meinst du so?

Sub suche()
Dim wks As Worksheet
Dim rng As Range, rngF As Range
Dim iCnt As Integer, iRow As Integer
Set rng = Sheets(1).UsedRange
Set wks = Sheets(3)
iRow = 1
For iCnt = 1 To 30
Set rngF = rng.Find("<s" & iCnt & ">")
If Not rngF Is Nothing Then
wks.Cells(iRow, 1) = "<s" & iCnt & ">"
wks.Cells(iRow, 2) = Application.CountIf(rng, "=<s" & iCnt & ">")
iRow = iRow + 1
End If
Next
End Sub

Gruß Sepp
Anzeige
AW: Vorkommnisse
17.11.2004 22:48:10
franz
Vielen Dank, daß sie sich noch gemeldet haben.
Ich werde Ihr Makro mit Sicherheit Morgen in aller Früh
ausprobieren.
Vielen Dank
franz
;

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Anzeige