Ich müsste folgendes per VBA machen.
Ich habe in Spalte B diverse Einträge:
16H4
16K1
16S1
16S6
16S8
18K2
Die Eintäge sollte ich in ein anderes Tabellenblatt kopieren und zusätzlich alle die ein "K" enthalten verdoppeln.
Danke für eure Hilfe
Raphi
Sub xxxx()
Dim rngC As Range, oDict As Object, lngCounter As Long
Set oDict = CreateObject("Scripting.Dictionary")
For Each rngC In Range(Cells(1, 2), Cells(Rows.Count, 1).End(xlUp))
lngCounter = lngCounter + 1
oDict(lngCounter) = rngC.Value
If InStr(rngC, "K") Then
lngCounter = lngCounter + 1
oDict(lngCounter) = rngC.Value
End If
Next
Sheets(2).Cells(1, 1).Resize(lngCounter) = _
Application.Transpose(oDict.items)
End Sub