Thema Datum  Von Nutzer Rating
Antwort
21.03.2013 14:23:41 Jonnx
NotSolved
Blau Vertikale Zellen zusammenfuehren
 21.03.2013 20:18:49 Jonnx
NotSolved
22.03.2013 02:47:44 Gast88706
NotSolved
22.03.2013 19:57:39 Jonnx
NotSolved
23.03.2013 06:20:08 Gast88706
Solved

Ansicht des Beitrags:
Von:
Jonnx		 Datum:
21.03.2013 20:18:49		 Views:
1019		 Rating:
     
Antwort:
  Ja
Thema:
Vertikale Zellen zusammenfuehren

Hi nochmal,

ich bin noch neuling was VBA angeht...Ich habe fuer meinen Fall was besseres im web gefunden (siehe Code)

Mit diesem kann ich in Spalte A nach duplikaten schauen die nacheinander kommen und dann anschliessend die dazugehohrigen Werte in Spalte B zusammenfasst. Aber wie kann ich diesen modifizieren um mein urspruengliches Problem zu loesen (Also statt in Spalte A nach duplikaten zu schauen, soll in Spalte A + Spalte B + Spalte C + Spalte D nach Duplikaten gesucht werden und anschliessend die Werte von Spalte E zusammenfassen)?

 

Sub merge() 
Dim objDic As Object 
Dim c As Range 
Dim vntKeys As Variant 
Dim vntItems As Variant 

Set objDic = CreateObject("Scripting.Dictionary") 

For Each c In Range("A1:A" & Cells(Rows.Count, 1).End(xlUp).Row) 

If Not objDic.exists(c.Value) Then 
    objDic.Add c.Value, c.Offset(, 1).Value 
Else 
    objDic(c.Value) = objDic(c.Value) & ", " & c.Offset(, 1).Value 
End If 
Next 
vntKeys = objDic.keys 
vntItems = objDic.items 

Range("A1:B" & Cells(Rows.Count, 1).End(xlUp).Row).ClearContents 
Cells(1, 1).Resize(UBound(vntKeys) + 1) = WorksheetFunction.Transpose(vntKeys) 
Cells(1, 2).Resize(UBound(vntItems) + 1) = WorksheetFunction.Transpose(vntItems) 


End Sub

 

 

Gruesse

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
21.03.2013 14:23:41 Jonnx
NotSolved
Blau Vertikale Zellen zusammenfuehren
 21.03.2013 20:18:49 Jonnx
NotSolved
22.03.2013 02:47:44 Gast88706
NotSolved
22.03.2013 19:57:39 Jonnx
NotSolved
23.03.2013 06:20:08 Gast88706
Solved