title image


Smiley Einene habe ich auch noch (inkl. Lösung der Zusatzaufgabe)
Hey Diavolos,



hier mein Lösungsvorschlag :

      

Sub BegriffSuchenUndSpalteEinfügen()

    Dim Suchbegriff()

    Suchbegriff = Array("Haus", "Wohnung", "Katze", "Miete") 'Suchbegriffe hier eingeben

    On Error Resume Next

    For t = 0 To UBound(Suchbegriff)

        spalte = WorksheetFunction.Match(Suchbegriff(t),[1:1], 0)

        If spalte <> "" Then t = UBound(Suchbegriff)

    Next

    If spalte <> "" Then

        Columns(spalte).Insert Shift:=xlToRight

        Cells(1, spalte) = "Gesamt" 'Hier die neue Überschrift eingeben

        ls = Cells(1, spalte).End(xlToRight).Column 'LetzteSpalte

        lz = Cells(1, spalte).CurrentRegion.Rows.Count 'LetzteZeile

        Range(Cells(2, spalte), Cells(lz, spalte)).Formula = _

            "=sum(RC[1]:RC[" & ls - spalte & "])"

    Else

        MsgBox "Keiner der Suchbegriffe wurde in Zeile 1 gefunden !"

    End If

End Sub 



Aus dieser Tabelle :

 ABCDEF1MonatElefantHundKatzeAffeMaulwurf2Januar15101219153Februar15101419134März15161218145April15201512116Mai15141918197Juni1513191718

Wird nach Ausführung des Makros folgende Tabelle :

 ABCDEFG1MonatElefantHundGesamtKatzeAffeMaulwurf2Januar1510=SUMME(E2:G2)1219153Februar1510=SUMME(E3:G3)1419134März1516=SUMME(E4:G4)1218145April1520=SUMME(E5:G5)1512116Mai1514=SUMME(E6:G6)1918197Juni1513=SUMME(E7:G7)191718

Mit folgendem Ergebnis :

 ABCDEFG1MonatElefantHundGesamtKatzeAffeMaulwurf2Januar1510461219153Februar1510461419134März1516441218145April1520381512116Mai1514561918197Juni151354191718

Ich hoffe mal, das war das, was Du wolltest ?!?



Tierische Grüße, NoNet

Grüße, NoNet

  1,2,3 - kleine Excelei :   Infos + Anmeldung zum Jährlichen Exceltreffen



geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: