title image


Smiley Re: Problem-Fall
Ich hab auch noch was:









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"

        ActiveSheet.Cells(2, cell.Column - 1).Formula = _

            "=Sum(" & ActiveSheet.Cells(2, cell.Column).Address(False, False) _

            & ":" & ActiveSheet.Cells(2, ActiveSheet.Cells(1, _

            cell.Column).End(xlToRight).Column).Address(False, False) & ")"

        ActiveSheet.Cells(2, cell.Column - 1).AutoFill _

            Destination:=ActiveSheet.Range(Cells(2, cell.Column - 1), _

            Cells(ActiveSheet.Range(cell.Address).CurrentRegion.Rows.Count, _

            cell.Column - 1))

        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: