Thema Datum  Von Nutzer Rating
Antwort
Rot VBA Makro für "Summenprodukt" mit vielen Variablen
15.01.2015 16:47:52 Cress
NotSolved

Ansicht des Beitrags:
Von:
Cress
Datum:
15.01.2015 16:47:52
Views:
727
Rating: Antwort:
  Ja
Thema:
VBA Makro für "Summenprodukt" mit vielen Variablen
Hallo Zusammen, 

ich benötige wirklich sehr dringend Hilfe :/ Ich habe eine Excel Tabelle mit 4 Spalten. In der ersten steht nur das Datum und ist irrelevant.
In der nächsten (B) stehen MR-Nummern und in der darauf (C) LN-Nummern in der letzten (D) Stunden.

Nun möchte ich, dass Excel die MR-Nummern mit den LN-Nummern vergleicht und identische Paare die Stunden zusammenzählt.

Dies sollte wie folgt aussehen:

Datum	MR-Nummer	LN-NUmmer	Stunden

2015	555		333		4	
2015	555		232		9
2015	555		333		15
2015	555		232		6	

Die MR-Nummer sowie die LN-Nummern und die Stunden sind Variiable!!! Das Ergebnis sollte dann so aussehn:
Datum MR-Nummer LN-NUmmer Stunden

2015 	555 		333 		19
2015 	555 		232		 5

Ich habe was aus dem Internet, dort wird aber nur spalte B zusammen gerechnet ://





Sub Test()

Dim wsQ As Worksheet
Dim wsZ As Worksheet
Dim sFormel As String

Set wsQ = Worksheets("Tabelle1")
Set wsZ = Worksheets("Tabelle2")

wsZ.UsedRange.ClearContents
wsQ.Range("A1").CurrentRegion.Copy Tabelle2.Cells(1)
wsZ.Range("A1").CurrentRegion.RemoveDuplicates Columns:=Array(1, 2, 3), Header:=xlYes

With wsZ.Range("A1").CurrentRegion
    With .Resize(.Rows.Count - 1).Offset(1).Columns(2)
        sFormel = "=SUMIFS(" & _
            wsQ.Name & "!C," & _
            wsQ.Name & "!C[-1],RC[-1]," & _
            wsQ.Name & "!C[1],RC[1]," & _
            wsQ.Name & "!C[2],RC[2])"
        .FormulaR1C1 = sFormel
        .Value = .Value
    End With
End With
End Sub

 

 

BITTE HELFT MIR :)))!


Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst genau und ausführlich
  • 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
  • Bitte markieren Sie Ihre Anfrage als erledigt wenn Ihnen geholfen wurde
Thema: Name: Email:

 
 

Thema Datum  Von Nutzer Rating
Antwort
Rot VBA Makro für "Summenprodukt" mit vielen Variablen
15.01.2015 16:47:52 Cress
NotSolved