title image


Smiley Re: Problem-Fall
Hallo,

versuchs mal so:









Sub diavolo3()

Dim cell, bereich As Range

Set bereich = ActiveSheet.[A1:IV1]

For Each cell In bereich

    Select Case cell.Value

        Case Is = "haus", "wohnung", "miete", "katze"

        ActiveSheet.Columns(cell.Column).Insert

        ActiveSheet.Cells(1, cell.Column - 1) = "Neue Spalte"

        Exit Sub

    End Select

Next

End Sub





Code eingefügt mit Syntaxhighlighter 4.0







Gruß JoWE
Wie auch immer, alles wird besser! Grüße, Jochen

geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: