AW: Durch "/" getrennte Wörter in einer Zelle Zählen
15.10.2010 14:31:03
Klaus
Hallo Tobson,
wenn du genau das in Spalte A schreibst (ohne die Anführungsstriche!!), dann lass mal folgendes Makro laufen.
Sub Ummodeln()
Dim r As Range
Dim t As String
With ActiveSheet
.Columns("A:A").TextToColumns Destination:=Range("A1"), DataType:=xlDelimited, _
TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=False, _
Semicolon:=False, Comma:=False, Space:=False, Other:=True, OtherChar _
:="/", FieldInfo:=Array(Array(1, 1), Array(2, 1), Array(3, 1), Array(4, 1)), _
TrailingMinusNumbers:=True
.Columns(1).ClearContents
'Im Beispiel wird das Wort "Prob" nicht in der Ausgabe genannt!
For Each r In .UsedRange
'r.Select
If t Like "*" & r.Value & "*" Then r.ClearContents
t = t & r.Value
Next r
End With
End Sub