Hallo,
ich hänge an einer Datei in der ich mehrere nicht zusammenhängende Spalten löschen möchte. Die zu löschenden Spalten werden aus dem ersten tabellensheet aus der ersten spalte ausgelesen (dort stehen untereinander z.b. "B", "M", etc.). ich setze so einen Hilfstring zusammen, der nachher dem Range-objekt übergeben wird. So weit so gut, aber beim selektieren des Range-objektes bekomme ich immer eine Fehlermeldung "Laufzeitfehler 1004 Anwendungs- oder objektdefinierter Fehler"....
hier mein code:
' Das Arbeitsblatt mit den Rohdaten kopieren!---------------------
Worksheets(2).Activate
ActiveSheet.Copy After:=Sheets(2)
Worksheets(3).Activate
ActiveSheet.Name = "Ergebnis"
'Die benannten Spalten löschen!-----------------------------------
Worksheets(1).Activate
cS = 1
zS = 2
work = ""
ActiveSheet.Cells(zS, cS).Activate
If ActiveCell.Value = "" Then
MsgBox "Keine zu löschenden Spalten angegeben!"
Else
cE = ActiveCell.Value
MsgBox cE
work = Chr(34) & cE & ":" & cE & Chr(34)
MsgBox work
zS = zS + 1
ActiveSheet.Cells(zS, cS).Activate
cE = ActiveCell.Value
MsgBox cE
End If
Do While cE <> ""
work = work & "," & Chr(34) & cE & ":" & cE & Chr(34)
MsgBox work
zS = zS + 1
ActiveSheet.Cells(zS, cS).Activate
cE = ActiveCell.Value
MsgBox cE
Loop
MsgBox "Keine weiteren zu löschenden Spalten angegeben!"
MsgBox work
Worksheets(3).Activate
ActiveSheet.Range(work).Select
Evtl. kann jemand helfen...?