Thema Datum  Von Nutzer Rating
Antwort
08.08.2017 17:28:43 Oelle74
NotSolved
Blau Variablennamen mit Werten aus array kombinieren
 08.08.2017 18:19:49 Gast70117
NotSolved
09.08.2017 07:17:31 Gast92739
NotSolved

Ansicht des Beitrags:
Von:
Gast70117		 Datum:
08.08.2017 18:19:49		 Views:
547		 Rating:
     
Antwort:
  Ja
Thema:
Variablennamen mit Werten aus array kombinieren

Quick&Dirty

Option Explicit

Sub ZähleBegriffe()
'Daten in Spalte "A", zugehörige Werte in Spalte "B", Ergebnis 2 Spalten "Rechts von"
'Ergebnisse schreiben - Zielpunkt festlegen - hier "D1"
'alle aktive Tabelle

Dim Arng As Range, Zrng As Range
Dim Aarr() As Variant, V As Variant
Dim y As Long

   'Bereich Spalte "A" - hat Überschrift
   Set Arng = Range(Cells(2, 1), Cells(Rows.Count, 1).End(xlUp))
   'ohne Duplikate
   Aarr = GetDistinct(Arng)
   'schreiben - Zielpunkt festlegen
   Set Zrng = Range("D1").Resize(1, UBound(Aarr) + 1)
   With Zrng
      .Value = Aarr
      'durchlaufen
      For Each V In Aarr
         y = y + 1
         With Zrng.Cells(y).Offset(1)
            .Value = WorksheetFunction.SumIf(Arng, V, Arng.Offset(, 1))
         End With
      Next V
   End With
   
End Sub
''
Private Function GetDistinct(ByVal oTarget As Range) As Variant
''Zweck Dupplikate in gegebenen 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
08.08.2017 17:28:43 Oelle74
NotSolved
Blau Variablennamen mit Werten aus array kombinieren
 08.08.2017 18:19:49 Gast70117
NotSolved
09.08.2017 07:17:31 Gast92739
NotSolved