Es soll die maximale Anzahl von Kommas in einer Zelle in einer Spalte ermittelt werden:
Wie macht man dass die Variable icountSep (Anzahl Kommas) den Wert 4 hat?
so sieht die Spalte aus:
Überschrift1
a, B
aaa
aa, bbb
a, b, d
aa, bbbb, c, ddd
Hier ein erster Versuch, ist ein Teil von einem grossen Makro. Funktioniert auch alles, nur nicht dass die maximale Kommaanzahl ausgegeben wird.
Wie ermittelt man diese? Vermutlich ja mit Array, aber da habe ich so gar keine Ahnung von.
https://www.herber.de/bbs/user/108282.xlsm
Sub AnzahlTrennzeichen()
Dim i As Integer
Dim k As Integer
Dim sTest As String
Dim oRange As Range
Dim sSeparator As String
Dim iCountSep As Integer
sSeparator = ","
Set oRange = Tabelle1.Columns(1)
'mit dieser Schleife werden die Zellen einer Spalte durchlaufen
For k = 2 To Tabelle1.Cells(Rows.Count, 1).End(xlUp).Row
sTest = oRange.Cells(k, 1)
'mit dieser Schleife wird der Textinhalt der Zelle durchlaufen
'es wird nach der Anzahl der Kommas gesucht und in die Variable _
iCountSep geschrieben
For i = 1 To Len(sTest)
If Mid(sTest, i, 1) = sSeparator Then iCountSep = iCountSep _
+ 1
Next i
'wenn die Schleife fertig ist möchte ich als variable iCountSep den Wert _
4 haben (in diesem Beispiel sind es maximal 4 Wörter (von Kommas getrennt) in einer Zelle in der Spalte)
Next k
' 'Nun werden so viele neue Spalten eingefügt wie es Wörter in der "grö _
ssten" Zelle gibt
' For i = 1 To iCountSep 'Anzahl Kommas
' oRange.Offset(0, i).EntireColumn.Insert
' Next i
End Sub
Viele Grüsse