|
Hey,
ich habe eine Problem mit dem Laufzeitfehler 1004. Hat jemand von euch eventuell eine Idee? Habe mir den Code auch nur geliehen, er hat aber schonmal funktioniert.
Das verwundert mich etwas. Es geht darum komplete Spalten mit bestimmten Wörter in einer Zeile (12) komplett zu löschen.
Sub SpaltenLöschen()
Dim KillSpalten As Range, rngTmp As Range
Dim ArBegriffe(), ArWS_Ausnahme()
Dim oWSh As Worksheet
'Begriffe die erhalten bleiben sollen
ArBegriffe = Array("File Name", "Sample Name", "Sample", "RT Target Cmpd", "Area Target Cmpd", "Theor. Conc. Unit")
'Ausnahme Tabellen in denen nicht gelöscht werden soll
ArWS_Ausnahme() = Array("Tabelle1", "Tabelle2", "Tabelle3")
For Each oWSh In ActiveWorkbook.Worksheets
If Not IsNumeric(Application.Match(oWSh.Name, ArWS_Ausnahme, 0)) Then
For Each rngTmp In oWSh.UsedRange.Rows(12).Cells
If Not IsNumeric(Application.Match(rngTmp.Value, ArBegriffe, 0)) Then
If Not KillSpalten Is Nothing Then
Set KillSpalten = Union(rngTmp.EntireColumn, KillSpalten)
Else
Set KillSpalten = rngTmp
End If
End If
Next rngTmp
If Not KillSpalten Is Nothing Then
KillSpalten.EntireColumn.Delete
Set KillSpalten = NoCthing
End If
End If
Next oWSh
Gruß John
|