Hey,
ich habe folgendes Problem und bitte euch um eure Unterstützung :)
In einer Excel Tabelle soll nach der Spalte "VTK" gesucht werden. Die Werte in der "VTK" Spalte sollen dann mittels Text in Spalten, getrennt durch Komma auf die Spalten nebean verteilt werden.
Bisher habe ich nur ein Programm hinbekommen, dass die Spalte "VTK" ausliest und selektiert...aber nicht den Text in Spalten Befehl.
Sub SpalteFinden()
Dim iSpalte As Integer
With ThisWorkbook.Worksheets(1)
For iSpalte = 1 To 256
If .Cells(4, iSpalte).Value = "VTK" Then
.Range(Cells(4, iSpalte), .Cells(30000, iSpalte)).Select
Exit For
End If
Next iSpalte
End With
End Sub
Kann mir da jemand helfen? :)
|