Thema Datum  Von Nutzer Rating
Antwort
Rot Vertikale Zellen zusammenfuehren
 21.03.2013 14:23:41 Jonnx
NotSolved
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 14:23:41		 Views:
1609		 Rating:
     
Antwort:
  Ja
Thema:
Vertikale Zellen zusammenfuehren

Hallo,

im Web konnte ich bereits folgenden VBA Code finden:
 

Sub JoinAndMerge() 
Dim outputText As String 
delim = ", " 
On Error Resume Next 
For Each cell In Selection 
outputText = outputText & cell.Value & delim 
Next cell 
With Selection 
.Clear 
.Cells(1).Value = outputText 
.Merge 
.HorizontalAlignment = xlGeneral 
.VerticalAlignment = xlCenter 
.WrapText = True 
End With 
End Sub

 

Mit diesem werden die markierten Zellen praktisch nur vereint. Meine Frage ist jetzt, wie ich das ganze automatisieren koennte, sodass z. B. in Spalte D nach Duplikate gesucht wird und dann die jeweiligen Werte in einer Zelle zusammengefasst wreden:.

 

Vorher

Spalte A        Spalte B        Spalte C       Spalte D         Spalte E        Spalte F 
Name            vName           nName          Muster           Martin           2013
Name            vName           nName          Muster           Klaus            2013 
Name            vName           nName          Muster           Ralf             2013




Ergebnis nach Codeausfuehrung (optimal):

Spalte A        Spalte B        Spalte C       Spalte D         Spalte E               Spalte F 
Name            vName           nName          Muster           Martin, Klaus, Ralf     2013  


Ich wuerde mich ueber Hilfestellungen freuen. Vielen Dank!


Gruesse

Jonnx

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
Rot Vertikale Zellen zusammenfuehren
 21.03.2013 14:23:41 Jonnx
NotSolved
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