|
Hallo zusammen,
ich muss ein Wort über die Find-Methode suchen und dann die Spalte löschen, die diese Überschrift hat. Ich habe nun folgenden Code:
'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
Leider kommt die oben genannte Fehlermeldung. In einem anderen Testdokument, funktioniert es wunderbar. Wo liegt der Fehler?
Ich danke euch!
|