Hallo VBA Pros,
ich habe eine Tabelle mit vielen Einträgen und jeweiligen Überschriften. Ich möchte die Spalten in eine bestimmte, von mir vorgegeben Reihenfolge bringen.
Als erstes habe ich ein Makro erstellt, dass die Überschriften im Ziel-Sheet "Sorted" in der richtigen Reihenfolge einfügt.
Als nächstes versuche ich ein Makro zu erstellen, welches in der Quelldatei (Sheet1) nach der Überschrift sucht, die Spalte speichert und in Sorted wieder einfügt.
Leider gelingt es mir jedoch bisher nicht, Es wäre sehr nett, wenn mir jemand sagen könnte, was ich falsch mache und was ich anders machen muss. Vielen Dank im Voraus.
Option Explicit
Sub searchHeadline()
Dim targetColumn As Range
Dim i As Long
Dim TargetCell As Range
Dim MyColumn As Long
Dim strArray
'array input here#
strArray = Array("PmyCode", "PONumber", "WaveWise", "WaveBatch", "CC")
'SheetName#
With ThisWorkbook.Worksheets("Sheet1")
MyColumn = .UsedRange.Rows.Count
For i = 0 To MyColumn
If .Cells(0, i).value = strArray(i) Then
.Rows(i).Copy Destination:=Sorted.Rows(i)
'Set MyColumn = .Rows(1).Find(what:=strArray(i), lookat:=xlWhole)
ActiveCell.Offset(8, 7) = MyColumn
Next i
End With
End Sub
|