Spalten in Excel sortieren
06.03.2007 11:44:34
janni80@web.de
habe folgendes Problem, bei dem ich nicht weiterkomme. Ich habe ein Makro geschrieben, bei dem ich 16 Spalten habe. Ich habe in VBA meine Spaltenreihenfolge definiert und die stimmt mit den vorhanden Spalten nicht überein, was ja auch kein Problem ist. Denn die Sortierung soll ja mein Makro übernehmen. Die Spalten sollen sortiert, doch mein Makro bricht ab, und zwar an der Stelle Columns.Insert mit der Fehlermeldung: "'Laufzeitfehler 1004' Die Informationen können nicht eingefügt werden, da der Bereich Ausschneiden und der Bereich zum Einfügen unterschiedliche Formen und Größen haben...."
Zur Info ich benutze Excel 97.
Ich hoffe das mir jemand weiterhelfen kann.
Hier mein Code:
Sub Sortieren()
Dim Spalten(16) 'Anzahl von Spalten
Spalten(1) = "Reportname"
Spalten(2) = "FNAME"
Spalten(3) = "Erstmalig am"
Spalten(4) = "Tranchierungskriterium"
Spalten(5) = "Tabelle"
Spalten(6) = "Vorgänger"
Spalten(7) = "Nachfolger"
Spalten(8) = "Laufzeit"
Spalten(9) = "Variantenbeschreibung"
Spalten(10) = "Selektionsvariable"
Spalten(11) = "Mandant"
Spalten(12) = "Fachliche Abhängigkeiten"
Spalten(13) = "Kurzbeschreibung der Änderung"
Spalten(14) = "FORMNAME"
Spalten(15) = "PID"
Spalten(16) = "Variante"
For i = 16 To 1 Step -1
Set c = ActiveSheet.UsedRange.Find(Spalten(i), LookIn:=xlValues)
If Not c Is Nothing Then
If c.Column <> 1 Then
Columns(c.Column).Cut
Cells(1, i).Select
Columns.Insert
If i = 1 Then
c.Sort _
Key1:=ActiveSheet.Columns("A"), _
Header:=xlGuess
End If
End If
End If
Next i
frm_Auswahl_credit_return.Show
End Sub