'Deletes the column "Sub-Region" if it exists
Dim SR As Range
SR = Workbooks(dbName).Worksheets("Container1").Cells.Find("Sub-Region")
If Not SR Is Nothing Then
Range(SR.Column, SR.Column).Delete
Else
SR = Workbooks(dbName).Worksheets("Container1").Cells.Find("Subregion")
If Not SR Is Nothing Then
Range(SR.Column, SR.Column).Delete
End If
End If
Der Fehler kommt an dieser Stelle. Das meinte ich, als ich sagte, dass Range nicht mehr funktioniert. Besser ausgedrückt: Ich kann die Range nicht löschen.
Für Schleifen hat es gereicht :)
|