Thema Datum  Von Nutzer Rating
Antwort
Rot VBA Zellen mit gleichem Inhalt verbinden
 22.10.2015 10:53:14 mabon
NotSolved
22.10.2015 10:58:55 Gast75585
NotSolved

Ansicht des Beitrags:
Von:
mabon		 Datum:
22.10.2015 10:53:14		 Views:
1272		 Rating:
     
Antwort:
  Ja
Thema:
VBA Zellen mit gleichem Inhalt verbinden
Hallo, folgende Aufstellung habe ich in Excel __________________________________________ A B C D FS6262333 103467 15553 63 FS6262333 103473 15553 33 FS6262333 103796 15553 97 FS6262333 103796 15553 105 FS6262333 103796 15553 106 FS6262333 103796 15553 107 __________________________________________ Ich versuche mit folgendem Code zu erreichen, dass alle Zellen mit gleichem Inhalt verbunden werden. __________________________________________ Sub ZellenVerticalMerge() Const cCol As Long = 1 ' Gilt für Spalte-Nr. Dim lRow As Long, lFirstR As Long lRow = 2 ' Gilt ab Zeile-Nr. lFirstR = lRow With ActiveSheet Application.DisplayAlerts = False Do lRow = lRow + 1 If .Cells(lRow, cCol) <> .Cells(lFirstR, cCol) Then .Range(.Cells(lRow - 1, cCol), .Cells(lFirstR, cCol)).Merge (False) lFirstR = lRow End If Loop While .Cells(lRow, cCol) <> "" Application.DisplayAlerts = True End With End Sub ________________________________________________________________ Der Code funktioniert, wird aber lediglich auf Spalte 1 angewendet. Mir ist klar warum, aber ich möchte dass das für alle Spalten funktioniert. Idee, wie man den Code umprogrammieren muss, dass das Ergebnis wie folgt aussieht? Zellen gleichen Inhalts verbunden und Werte zentriert: __________________________________________________________________ A B C D FS6262333 103467 15553 63 103473 33 103796 97 105 106 107

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 VBA Zellen mit gleichem Inhalt verbinden
 22.10.2015 10:53:14 mabon
NotSolved
22.10.2015 10:58:55 Gast75585
NotSolved