habe folgendes Problem. Ich möchte aus einer Tabelle Text auslesen, der in einer neuen Tabelle aufgelistet wird. Es kann aber sein das ein Text
mehrmals vorkommt, dann soll er mir in der neuen Tabelle den Wert wie oft der Text vorkommt hinter dem Text anzeigen.
mit folgedendem Makro zeigt er mir den ausgelesenen Text in der neuen Tabelle an, wie muß ich das Makro verändern, dass er Mehrfachnennungen zählt.
Sub FindAndCopy()
Dim spalte As Integer
Dim zeile As Integer
Dim i%, j%, Res(1000, 2) As String, N%, Temp$
spalte = 21
Worksheets("Grunddaten").Activate
For zeile = 2 To 78
If Cells(zeile, spalte).Value "" Then
N = N + 1
Res(N, 1) = Cells(zeile, spalte).Value
End If
Next
For i = 1 To N
Temp = Res(i, 1)
For j = i + 1 To N
If Res(j, 1) = Temp Then Res(j, 2) = "N"
Next j
Next i
Worksheets("Tabelle1").Activate
j = 0
For i = 1 To N
If Res(i, 2) "N" Then
j = j + 1
Cells(j, 1) = Res(i, 1)
End If
Next i
Danke für eure Mühe.
Gruß
Michael