Thema Datum  Von Nutzer Rating
Antwort
20.09.2017 12:39:27 Gast10998
NotSolved
20.09.2017 16:35:52 Mackie
NotSolved
Rot Duplikate zusammenführen und das Duplikat löschen
 20.09.2017 18:36:13 Gast70117
NotSolved

Ansicht des Beitrags:
Von:
Gast70117		 Datum:
20.09.2017 18:36:13		 Views:
546		 Rating:
     
Antwort:
  Ja
Thema:
Duplikate zusammenführen und das Duplikat löschen		 
Option Explicit

Sub ss()
Dim RngS As Range
Dim arrD() As Variant, arrS() As Variant
Dim x As Long

   Set RngS = Selection
   If RngS.Columns.Count <> 2 Then Exit Sub
   arrD = GetDistinct(RngS.Columns(1))
   ReDim arrS(1 To UBound(arrD) + 1, 1 To 2)
   For x = LBound(arrD) To UBound(arrD)
      arrS(x + 1, 1) = arrD(x)
      arrS(x + 1, 2) = WorksheetFunction.SumIf(RngS.Columns(1), arrS(x + 1, 1), RngS.Columns(2))
   Next x
   RngS.ClearContents
   RngS.Cells(1).Resize(UBound(arrS, 1), UBound(arrS, 2)).Value = arrS
   
End Sub

Private Function GetDistinct(ByVal oTarget As Range) As Variant
'Zweck Dupplikate in übergegeben Bereich entfernen, als Array
''posted by Craig Hatmaker
Dim varArray As Variant
Dim objMyDic As Object
Dim v        As Variant
'
  Set objMyDic = CreateObject("Scripting.Dictionary")
  varArray = oTarget
  For Each v In varArray
    objMyDic(v) = v
  Next
  GetDistinct = objMyDic.Items()
End Function

 

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
20.09.2017 12:39:27 Gast10998
NotSolved
20.09.2017 16:35:52 Mackie
NotSolved
Rot Duplikate zusammenführen und das Duplikat löschen
 20.09.2017 18:36:13 Gast70117
NotSolved