Thema Datum  Von Nutzer Rating
Antwort
09.04.2008 10:59:12 Anfänger
NotSolved
09.04.2008 11:44:53 Holger
NotSolved
09.04.2008 13:52:30 Anfänger
NotSolved
Blau Aw:Aw:Aw:Summen bilden
 10.04.2008 10:05:02 Holger
NotSolved

Ansicht des Beitrags:
Von:
Holger		 Datum:
10.04.2008 10:05:02		 Views:
1004		 Rating:
     
Antwort:
  Ja
Thema:
Aw:Aw:Aw:Summen bilden
Hallo Anfänger,
du musst das Ganze in VBA in eine Porzedur einbinden (Sub ... End Sub). In der Zeile If Cells ... musst du die 1 durch die Spaltennummer deiner Spalte mit den Artikelnamen und die 2 durch die Spaltennummer deiner Werte für die Summe ersetzen. Spalte A ist 1, 2 ist B, ..., K=11, usw. Um die Summe irgendwohin auszugeben, kannst du für Zeile und Spalte in Cells(Zeile,Spalte) gewünschte Werte einsetzen. Ich habe am Ende noch ein Ausgabefenster hinzugefügt.

Sub Titel()
Dim a, Summe, i, Artikelname
Artikelname=InputBox("Artikelname eingeben")
a = ActiveSheet.UsedRange.SpecialCells(xlCellTypeLastCell).Row
Summe = 0
For i = 1 To a
If Cells(i, 1) = Artikelname Then Summe = Summe + Cells(i, 2) 'A=1, B=2, ...)
Next i
Cells(Zeile,Spalte)=Summe
MsgBox summe
End sub

Viel Erfolg
Holger


Anfänger schrieb am 09.04.2008 13:52:30:

Hallo Holger,

danke, sieht soweit ganz gut aus, aber ich bekomme das Makro nicht zum laufen. Wechle Teile muss ich denn auf meine Tabelle hin anpassen?

Gruß
Christian

Holger schrieb am 09.04.2008 11:44:53:

Hallo Anfänger,
ich vermute, du hast ein Tabellenblatt, in dem deine zu addierenden Zahlen sowie in einer Spalte die Artikelnamen und in einer anderen die Artikelnummern stehen. Sei A die Spalte mit den Artikelnamen und B die Spalte mit den Zahlen. Dann geht z.B.

a = ActiveSheet.UsedRange.SpecialCells(xlCellTypeLastCell).Row
Summe = 0
For i = 1 To a
If Cells(i, 1) = Artikelname Then Summe = Summe + Cells(i, 2) 'A=1, B=2, ...)
Next i

Viel Erfolg
Holger

Anfänger schrieb am 09.04.2008 10:59:12:

Hallo,

wie summiert man denn Zahlen zu Artikeln mit gleichem Namen aber unterschiedlicher Artikelnummern?

Danke im Voraus
Christian

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
09.04.2008 10:59:12 Anfänger
NotSolved
09.04.2008 11:44:53 Holger
NotSolved
09.04.2008 13:52:30 Anfänger
NotSolved
Blau Aw:Aw:Aw:Summen bilden
 10.04.2008 10:05:02 Holger
NotSolved