VBA Code irgenwie seltsam ! Bitte um Hilfe
18.10.2013 10:02:27
Thorben
mein Code verhält sich nicht konform, kann mir mal einer helfen?
Dim Spa As Long
Dim x As Range
Spa = Application.Match("SUP", Rows(1), 0) 'A
Columns(Spa).Cut _
Destination:=Cells(1, Cells(1, Columns.Count).End(xlToLeft).Column + 1)
Columns(Spa).Delete
auf diese Weise sortiere ich mir 22 Spalten!
Alle nicht in der Sortierung Spa = Application.Match aufgeführten Spalten stehen am Ende links neben SUP (ergibt sich aus dem code!)
Nach dem sortieren möchte ich nun alle Spalten die links neben SUP stehen mit folgendem code löschen:
Ich deklariere die Spalte SUP und weise an alles was nicht SUP ist zu löschen
mit column - 1 (also nach links)
Set x = Cells.Find("SUP", After:=Cells(Rows.Count, Columns.Count), searchorder:=xlByColumns, searchdirection:=xlPrevious)
If Not x Is Nothing Then If x.Column > 1 Then Range(Cells(1, 1), Cells(1, x.Column - 1)).EntireColumn.Delete
Das funktioniert auch so weit nur leider mit dem Effekt das auch SUP gelöscht wird!
Kann mir mal jemand Licht ans Fahrad machen...
Besten Dank
MfG
Thorben