Thema Datum  Von Nutzer Rating
Antwort
31.07.2014 09:31:17 M_182
NotSolved
31.07.2014 09:36:57 chris2589
NotSolved
31.07.2014 09:54:36 Gast86177
NotSolved
Blau Werte mit Gleicher Bezeichung in Andern Reiter addieren
 31.07.2014 10:07:58 Gast94628
NotSolved

Ansicht des Beitrags:
Von:
Gast94628		 Datum:
31.07.2014 10:07:58		 Views:
716		 Rating:
     
Antwort:
  Ja
Thema:
Werte mit Gleicher Bezeichung in Andern Reiter addieren

Warum nicht sowas wie:

Dim vDict As Dictionary
Dim row As Long
Dim vehicle As String
Dim fuel As Double

Set vDict = New Scripting.Dictionary
vDict.CompareMode = BinaryCompare
vDict.RemoveAll

For row = 3 To IZ
vehicle = Range("A"&row).value
fuel = CDbl(Range("B"&row).value)
If Not vDict.Exists(vehicle) Then
vDict.Add vehicle, fuel
Else
vDict.Item(vehicle) = vDict.Item(vehicle) + fuel
End If
Next

So in etwa hätte ichs mir vorgestellt.
Letztendlich musst du dann noch das Dict ausgeben, aber das sollte kein Problem sein.

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
31.07.2014 09:31:17 M_182
NotSolved
31.07.2014 09:36:57 chris2589
NotSolved
31.07.2014 09:54:36 Gast86177
NotSolved
Blau Werte mit Gleicher Bezeichung in Andern Reiter addieren
 31.07.2014 10:07:58 Gast94628
NotSolved