Thema Datum  Von Nutzer Rating
Antwort
07.06.2020 15:04:28 Robert
NotSolved
07.06.2020 15:10:56 Gast01233
NotSolved
08.06.2020 07:04:44 Gast13038
NotSolved
08.06.2020 07:18:53 Gast21882
NotSolved
08.06.2020 07:33:29 Robert
NotSolved
Blau Summe bilden
 09.06.2020 10:01:00 Robert
Solved

Ansicht des Beitrags:
Von:
Robert		 Datum:
09.06.2020 10:01:00		 Views:
565		 Rating:
     
Antwort:
 Nein
Thema:
Summe bilden

Hallo,
hab das Problem gelöst.
Sieht für die, die sich besser auskennen Laienhaft aus, aber es funktioniert. Wenn jemand eine einfachere Variante hat, dann bitte einfügen.

 

Sub gesamtumsatz()

Dim i As Integer
Dim ii As Integer
Dim gesamtumsatz As Double
Dim kdnr_1 As String
Dim size As Integer
Dim size_1 As Integer

size = WorksheetFunction.CountA(Worksheets("Tabelle2").Columns(1)) - 1
size_1 = WorksheetFunction.CountA(Worksheets("Tabelle1").Columns(1)) - 1

For i = 1 To size
 kdnr_1 = Worksheets("Tabelle2").Range("A" & i + 1)
  For ii = 1 To size_1
    If kdnr_1 = Worksheets("Tabelle1").Range("A" & ii + 1).Value Then
    gesamtumsatz = gesamtumsatz + Worksheets("tabelle1").Range("C" & ii + 1)
   End If
  Next ii
  Worksheets("Tabelle2").Range("B" & i + 1) = gesamtumsatz
  gesamtumsatz = 0
Next i
Worksheets("Tabelle2").Columns("B"). _
 NumberFormat = " #,##0.00€;[Red]-#,##0.00€"

End Sub

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
07.06.2020 15:04:28 Robert
NotSolved
07.06.2020 15:10:56 Gast01233
NotSolved
08.06.2020 07:04:44 Gast13038
NotSolved
08.06.2020 07:18:53 Gast21882
NotSolved
08.06.2020 07:33:29 Robert
NotSolved
Blau Summe bilden
 09.06.2020 10:01:00 Robert
Solved