title image


Smiley Genau das macht Mein Makro : Die Checkbox in N erzeugt WAHR oder FALSCH
Hey Frisbos,



genau das macht mein Makro auch !!



Du kannst Dir gerne auf meiner Homepage http://www.excelei.de unter dem Menüpunkt Downloads

das Beispiel dazu herunterladen (29 kb).



Es enthält u.a. folgende Makros (analog zu dem geposteten Beispiel) :







Sub NeueZeileErstellen()

    'Neue Zeile für Checkbox

    nz =[N65536].End(xlUp).Row

    'Koordinaten der Checkbox in Abhängigkeit der Zelle in Spalte N

    x = Cells(nz, 14).Left + 5

    y = Cells(nz, 14).Top - 2



    'Zellen mit Zufallszahlen zwischen 1 und 20 belegen

    Range(Cells(nz, 15), Cells(nz, 24)).Value = Int(Rnd() * 20 + 1)



    'Zelle in N mit weisser Hintergrundfarbe, um nicht durch Checkbox zu sehen

    Cells(nz, 14).Font.Color = vbWhite

    Cells(nz, 14) = False



    'Checkbox hinzufügen und Eigenschaften ändern

    ActiveSheet.CheckBoxes.Add(x, y, 68.25, 17.25).Select

    With Selection

        .Value = xlOff

        .LinkedCell = Cells(nz, 14).Address

        .Display3DShading = False

        .Text = "Aktive Zeile"

    End With



    'Aufruf der Flexiblen SUMMEWENN()-Funktion :

    FlexibleSummeWennfunktion

   [N7].Select

End Sub

Sub FlexibleSummeWennfunktion()

    NeueZeile =[N65536].End(xlUp).Row + 1

    Range(Cells(NeueZeile, 15), Cells(NeueZeile, 24)).FormulaR1C1 = "=SUMIF(R8C14:R17C14,TRUE,R8C:R[-1]C)"

    Cells(NeueZeile, 14) = "Summe :"

    Cells(NeueZeile, 14).Font.Color = xlGeneral

End Sub



Mit dem gelben Button wird das Makro NeueZeileErstellen gestartet, das zunächst die Checkbox und die Werte erstellt und am Ende das (von dir gesuchte) Makro zum Erzeugen einer Flexiblen =SUMMEWENN(...) - Funktion.

Hier ein Screenshot, wie das VOR dem Betätigen des Butons aussieht und wie nach dreimaligem Betätigen des Buttons und Ankreuzen der Checkboxen (die Zeile SUMME enthält die per Makro erzeugte =SUMMEWENN(...) - Funktion !!) :

Grüße, NoNet

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



geschrieben von

Anhang
Bild 161 zu Artikel 35455

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: