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:
1812		 Rating:
     
Antwort:
  Ja
Thema:
Vertikale Zellen zusammenfuehren

Hallo,

im Web konnte ich bereits folgenden VBA Code finden:
 

?
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
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

?
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
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:
WYSIWYG-Editor, ctl00_Content_editor1



  • 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