VBA-Forum - Das Forum zu Microsoft VBA

VBA Excel VBA Word VBA Access VBA VBScript VB C# Objective-C C++ SQL JAVA VBA (English) Jobs Übersicht

Thema	Datum	Von Nutzer	Rating	Antwort
2 Arrays zusammenfassen und doppelte eleminieren	01.12.2016 15:00:10	Phillip
2 Arrays zusammenfassen und doppelte eleminieren	01.12.2016 16:38:37	Gast77774
2 Arrays zusammenfassen und doppelte eleminieren	01.12.2016 17:46:22	Gast42624

Ansicht des Beitrags:

Von:
Gast42624

Datum:
01.12.2016 17:46:22

Views:
631

Rating:

Antwort:

Thema:
2 Arrays zusammenfassen und doppelte eleminieren

So in der Art:

Option Explicit

Sub Example()
  
  Dim dic As Object
  Dim v, t
  
  Set dic = CreateObject("Scripting.Dictionary")
  
  For Each v In Range("A1:A2").Value '<< Zelle1 & Zelle2 in diesem Beispiel
    For Each t In Split(v, vbLf)
      dic(t) = dic(t) + 1 'existert der Schlüssel noch nicht, wird er hier autom. mit angelegt
    Next
  Next
  
  'Ausgabe in zwei Zellen (Schlüssel und deren Wert)
  Range("A4:B4").Value = Array(Join(dic.Keys, vbLf), Join(dic.items, vbLf))
  
End Sub

(Ist nur eine von mehreren Möglichkeiten dies zu lösen.)

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
2 Arrays zusammenfassen und doppelte eleminieren	01.12.2016 15:00:10	Phillip
2 Arrays zusammenfassen und doppelte eleminieren	01.12.2016 16:38:37	Gast77774
2 Arrays zusammenfassen und doppelte eleminieren	01.12.2016 17:46:22	Gast42624