Automatisierungsfehler b. Übergabe WSheet-Variable
06.03.2013 16:56:46
Peter
Ich möchte eine Spalte in einem Tabellenblatt verschieben.
Das Tabellenblatt habe ich der Variable aSheet übergeben:
Set aBook = ThisWorkbook
Set aSheet = aBook.Sheets("Buchungen")
Innerhalb meines codes rufe ich nachfolgenden Code auf:
Call ShiftColumnInWorksheet(aSheet, 2, 1)
Sub ShiftColumnInWorksheet(ws As Worksheet, lngColumnSource As Long, lngColumnTarget As Long)
With ws
.Columns(lngColumnSource).Cut
.Columns(lngColumnTarget).Insert Shift:=xlToRight
End With
End Sub
Bei ShiftColumnInWorksheet erhalte ich folgenden Fehler: "Laufzeitfehler '-2147221080 (800401a8): Automatisierungsfehler.
Was muss ich ändern?
Gruss Peter
Anzeige