Ich habe jetzt eine etwas andere Version genommen, aber bei dieser bekomme ich den gleichen Fehler:
'Deletes the column "Sub-Region" if it exists
Dim columnSubRegion As Long
columnSubRegion = Workbooks(dbName).Worksheets("Container1").Cells.Find("Sub-Region").Column
If Workbooks(dbName).Worksheets("Container1").Cells(5, columnSubRegion).Value = "Sub-Region" Then
Workbooks(dbName).Worksheets("Container1").Range(Columns(columnSubRegion), Columns(columnSubRegion)).Delete Shift:=xlShiftToLeft
Else: columnSubRegion = Workbooks(dbName).Worksheets("Container1").Cells.Find("Subregion").Column
If Workbooks(dbName).Worksheets("Container1").Cells(5, columnSubRegion).Value = "Subregion" Then
Workbooks(dbName).Worksheets("Container1").Range(Columns(columnSubRegion), Columns(columnSubRegion)).Delete Shift:=xlShiftToLeft
End If
End If
Problem ist in diesem Fall: Sub-Region gibt es nicht, es gibt nur Subregion. Allerdings möchte ich beide Versionen checken, da die Schreibweise variiert.
|