Thema Datum  Von Nutzer Rating
Antwort
11.05.2012 15:23:24 Pribbel
NotSolved
Blau VBA Summe mit mehreren Bedingen
11.05.2012 15:51:36 Holger
NotSolved
13.05.2012 00:36:58 Till
Solved
14.05.2012 10:38:53 Gast81202
NotSolved

Ansicht des Beitrags:
Von:
Holger
Datum:
11.05.2012 15:51:36
Views:
1062
Rating: Antwort:
  Ja
Thema:
VBA Summe mit mehreren Bedingen

Hallo Pribbel,

26 Buchstaben heißt wohl alle Buchstaben des deutschen Alphabets ohen Umlaute. Ich würde die UCase-Werte der 2. Spalte auf den ASCII-Code 65 bis 90 prüfen. Ich nehme mal an, dass die 1. Spalte A und die zweite B heißen.

redim summe(25)
for j=65 to 90
for i=1 to Cells(Rows.Count, 2).End(xlUp).Row '2 bedeutet Spalte B
if ucase(cells(i,2))=chr(j) then summe(j)=summe(j)+cells(i,1)
next i
next j
 

Im Array summe stehen dann die einzelnen Summen beginnend mit A im Index 0. Wie willst du diese ausgeben? Vielleicht in Spalte C den Buchstaben und in Spalte D den Wert. Das Makro wäre dann zu ergänzen mit:
for i=0 to 25
cells(i+1,3)=chr(i+65)
cells(i+1,4)=summe(i)
next i

Gruß
Holger

 


Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:



  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
11.05.2012 15:23:24 Pribbel
NotSolved
Blau VBA Summe mit mehreren Bedingen
11.05.2012 15:51:36 Holger
NotSolved
13.05.2012 00:36:58 Till
Solved
14.05.2012 10:38:53 Gast81202
NotSolved