title image


Smiley Re: Problem-Fall
Hallo,

eine Möglichkeit:





      

Sub NeuSpaltenBeiTreffer()



    Dim ws As Worksheet

    Dim c As Range

    

    For Each ws In ActiveWorkbook.Worksheets

        

        Set c = ws.Rows(1).Find(what:="1. Suchbegriff")

            If c Is Nothing Then

               Set c = ws.Rows(1).Find(what:="2. Suchbegriff")

               If c Is Nothing Then

                  Set c = ws.Rows(1).Find(what:="3. Suchbegriff")

                  If c Is Nothing Then

                     Set c = ws.Rows(1).Find(what:="4. Suchbegriff")

                     If c Is Nothing Then

                     Else

                        c.EntireColumn.Insert

                        c.Offset(0, -1).Value = "Gesamt"

                     End If

                  Else

                     c.EntireColumn.Insert

                     c.Offset(0, -1).Value = "Gesamt"

                  End If

               Else

                  c.EntireColumn.Insert

                  c.Offset(0, -1).Value = "Gesamt"

               End If

            Else

               c.EntireColumn.Insert

               c.Offset(0, -1).Value = "Gesamt"

            End If

    

    Next ws

    

End Sub

 



Code eingefügt mit Syntaxhighlighter 3.0






Gruß Worti <img src="http://media2.giga.de/2015/06/snapchat-smiley-sonnenbrille.png">



geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: