Office: (Office 365) Wort in einer Spalte finden und gesamte Spalte löschen?

Hallo,

Habe ein Problem mit einem Macro, bekomms einfach nicht dazu das zu machen was ich möchte.


Also die Aufgabe ist: Finde in dem Excel Sheet der gerade offen ist in Zeile A1:Z1 das wort „Durchschn“ oder „Durchsch“, wenn dies auftritt dann würde ich gerne die gesamte Spalte löschen.


Hab es erst versucht über „Durchschn“, aber dann wird auch nur „Durchschn“ gelöscht und nicht wenn noch etwas davor oder danach steht z.b. „Step_Durchsch_blaa“.


+----------------------------------------------------------------------------------------------------------------------------+


Sub Button1_Click()

'

' Button1_Click Macro


Set MR = Range("A1:Z1")

Dim Durchschn As String

For Each cell In MR

If cell.Value = "Durchschn" Or cell.Value = "Durchsch" Then cell.EntireColumn.Delete

Next

'

End Sub


Dieses löscht dann aber leider nur die Spalten in der GENAU diese Wörter stehen, *Durchschn* oder so funktioniert leider auch nicht L


+----------------------------------------------------------------------------------------------------------------------------+


Habe das ganze dann GENAU ausgegeben, also mit GENAU den kompletten namen die ich löschen möchte, was natürlich funktioniert .. aber auch nur auf Button Click, wenn ich es Automatisch als Call aufrufen möchte bekomm ich immer gesagt das ich eine Variable für „for each cell“ nicht vergeben hätte L


Sub Button1_Click()

'

Set MyRange = Range("A1:Z1")

For Each cell In MyRange

If cell.Value = "_STEP_1_M_1_ Tip Ø 1_Ø Durchschn" Or cell.Value = "_STEP_2_M_1_ Tip Ø 2_Ø Durchschn" Or cell.Value = "_STEP_3_M_1_ Tip Ø 2_Ø Durchschn" Or cell.Value = "_STEP_4_M_1_ Tip Ø 2_Ø Durchschn" Or cell.Value = "_STEP_5_M_1_ Tip Ø 2_Ø Durchschn" Or cell.Value = "_STEP_6_M_1_ Tip Ø 2_Ø Durchschn" Or cell.Value = "_STEP_7_M_1_ Tip Ø 2_Ø Durchschn" Or cell.Value = "_STEP_8_M_1_ Tip Ø 2_Ø Durchschn" Or cell.Value = "_STEP_9_M_1_ Tip Ø 2_Ø Durchschn" Or cell.Value = "_STEP_1_M_1_ NT Ø 2_Ø Durchschn_" Or cell.Value = "_STEP_2_M_1_ NT Ø 2_Ø Durchschn_" Or cell.Value = "_STEP_3_M_1_ NT Ø 2_Ø Durchschn_" Or cell.Value = "_STEP_4_M_1_ NT Ø 2_Ø Durchschn_" Or cell.Value = "_STEP_5_M_1_ NT Ø 2_Ø Durchschn_" Or cell.Value = "_STEP_6_M_1_ NT Ø 2_Ø Durchschn_" Or cell.Value = "_STEP_7_M_1_ NT Ø 2_Ø Durchschn_" Or cell.Value = "_STEP_8_M_1_ NT Ø 2_Ø Durchschn_" Or cell.Value = "_STEP_9_M_1_ NT Ø 2_Ø Durchschn_" Then cell.EntireColumn.Delete

Next

End Sub


+----------------------------------------------------------------------------------------------------------------------------+


Würde mich freuen wenn jemand eine bessere idee hätte.


Vielen DANK!

 

Hallo,

Code:

Option Explicit

Sub Button1_Click()
' Button1_Click Macro
  Dim MR As Range, Zelle As Range

  Set MR = Range("A1:Z1")

  For Each Zelle In MR.Cells
     If Zelle.Value Like "*Durchsch*" Then Zelle.EntireColumn.Delete
  Next Zelle

End Sub

 

Der Hammer! DER HAMMER!
Hat auf Anhieb geklappt, hab den Fehler auch erkannt.

Vielen Vielen DANK!