title image


Smiley SummeWenn-Funktion per VBA erstellen
Hallo toni,



schau Dir mal dieses Beispiel an :



In Zelle C8 werden alle Zellen des Bereiches A8:A11 summiert, in deren benachbarter Zelle (B8:B11) ein "a" steht !



Sub SummeWennPerVBA()

Bereich = "B8:B11"

Kriterium = Chr(34) & "a" & Chr(34)

Summenbereich = "A8:A11"

Cells(8, "c").Formula = "=sumif(" & Bereich & "," & Kriterium & "," & Summenbereich & ")"

End Sub



Alle Variablen sind vom Typ STRING (nicht RANGE !!)



Gruß, JerryB
Bezeichnungen der Elemente eines Excel XP Fensters (Bild, ca. 170 KB).

geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: