title image


Smiley Re: Problem-Fall
Hello again, ;-)



mal sehen, meinst du das so?







Sub diavolo2()

Const Suchwort As String = "Katze" 'hier gesuchte Überschrift eingeben

Dim S As Integer

S = WorksheetFunction.Match(Suchwort, ActiveSheet.Range("1:1"), 0)

ActiveSheet.Columns(S).Insert

ActiveSheet.Cells(1, S) = "Gesamt"

End Sub







Code eingefügt mit Syntaxhighlighter 4.0






Gruß,



geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: