VBA Mehrfachvorkommen mit Präfix
06.02.2006 11:22:20
HorstH
meine Lösung funktioniert nicht. Wer kann bitte behiflich sein und mein script korrigieren:
Ziel: in Spalte "B" kann ein Begriff bis zu 6 mal vorkommen. Zeilenanzahl immer variabel. In Spalte "A" möchte ich nun den String aus "B" plus den jeweiligen Buchstaben A,B,C,D,E oder F - je nachdem, ob 2 mal gleiches Vorkommen (also 1. zuzügl. A, 2. zuzügl. B usw. bis max. 6-faches Vorkommen, das dann F angehängt bekommt. Habe versucht, selbst zu schreiben - kann aber so nicht richtig sein.
Beispiel mit script:
https://www.herber.de/bbs/user/30710.xls
<pre>
Sub Mehrfachvorkommen()
Dim A(6) As String
A(0) = "A"
A(1) = "B"
For j = 1 To 10000 ' sollte variabel sein
If Cells(i, "B") Then
For i = 1 To 6
If Cells(j, "A") = "" Then
If Cells(j, "B") = Cells(j + i, "B") Then
Cells(j + i, "A") = Cells(j + i, "B") & A(i)
End If
End If
Next i
Cells(j, "A") = Cells(j, "B") & "A"
End If
Next j
End Sub</pre>
Wer hilft mir bitte?
Danke!
Gruß
Horst