Live-Forum - Die aktuellen Beiträge
Datum
Titel
24.04.2024 20:38:58
Summe mit Bedingung, nur letzte Ergebnisse anzeigen
24.04.2024 19:29:30
Formel filter
24.04.2024 18:49:56
merge & select
24.04.2024 17:19:09
Formel mit Index-Funktion
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1272to1276
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1272to1276
1272to1276
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

verbundene Zellen auflösen

verbundene Zellen auflösen
Alfonso
Hallo VBA-Profis,
heute habe ich mal wieder eine Bitte zur Hilfestellung an Euch.
In einer Spalte sind mehrere Zellen verbunden und mit unterschiedlichen (willkürlichen) Inhalten gefüllt.
Dieser Zellverbund soll per VBA aufgehoben und die Inhalte in die nachfolgenden leeren Zellen eingetragen werden.
Anbei eine Beispieldatei: https://www.herber.de/bbs/user/81180.xlsx
Vielen Dank im voraus für die Unterstützung.
Gruß Alfonso

6
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Benutzer
Anzeige
AW: verbundene Zellen auflösen
27.07.2012 17:54:38
hary
hallo Alfonso
Mit meinem bescheidenem Wissen.Geht bestimmt noch eleganter. 

Sub fuellen()
Dim i As Long
Dim anzahl As Long
Application.ScreenUpdating = False
For i = 3 To Cells(Rows.Count, 2).End(xlUp).Row
Range("B" & i).Select
With Selection
anzahl = .Count - 1
.MergeCells = False
Range("B" & i & ":B" & i + anzahl).Value = ActiveCell.Value
End With
Next
Application.ScreenUpdating = False
End Sub

gruss hary
AW: sry korrektur
27.07.2012 17:57:00
hary
Hallo
letzte Codezeile 

Application.ScreenUpdating = False

aendern in 

Application.ScreenUpdating =True

gruss hary
Anzeige
AW: verbundene Zellen auflösen
27.07.2012 18:40:55
Alfonso
Hallo Hary,
vielen Dank für die Lösung. Es hat bei dieser Ausgangssituation prima funktioniert.
Was ist, wenn die Daten erst ab der 11. Zeile beginnen und dann noch 10 weitere verbundene Bereiche vorkommen?
Da ich den Code noch nicht verstanden habe, wäre ich an eine kurzen Erläuterung für solche Fälle interessiert.
Danke wiederum im voraus für die Mühe.
Gruß Alfonso
AW: verbundene Zellen auflösen
27.07.2012 18:54:24
hary
Hallo
Code auskommentiert. 

Sub fuellen()
Dim i As Long
Dim anzahl As Long
Application.ScreenUpdating = False
For i = 11 To Cells(Rows.Count, 2).End(xlUp).Row 'von Zeile 11 bis letzte Zeile
Range("B" & i).Select
With Selection
anzahl = .Count - 1 'stellt die Anzahl der zeilen im Verbund fest
.MergeCells = False 'loest den verbund
Range("B" & i & ":B" & i + anzahl).Value = ActiveCell.Value 'setzt den Text ein
End With
i = i + anzahl 'zusatz kuerzt die schleife
Next
Application.ScreenUpdating = True
End Sub

gruss hary
Anzeige
AW: verbundene Zellen auflösen
27.07.2012 19:35:28
Alfonso
Hallo Hary,
vielen Dank für Deine zusätzliche Mühe.
Jetzt ist es mir einigermaßen klar und kann auf individuelle Änderungen reagieren.
Wo bzw. wie hast Du Dir das Wissen angeeignet?
Ich habe schon 2 Bücher über VBA gelesen, aber so etwas oder andere Beispiele lernt man da nicht.
Gruß Alfonso
AW: verbundene Zellen auflösen
28.07.2012 12:17:09
hary
Hallo Alfonso 

Wo bzw. wie hast Du Dir das Wissen angeeignet?

Wo: Hier im Forum. Mitlesen/Archiv
Wie: Ich suche mir eine Aufgabe raus(ohne auf evtl.e Loesungen zu luxen). Wenn's nicht klappt kann man immer noch schauen oder halt nachfragen. Am Anfang keine Hammeraufgaben.
Warum: Nur als Hobby, also Spass an der Sache. Wobei der Com. schon oft auf dem Fensterbrett stand, um einen Sprung zu wagen. ;-)))
gruss hary
Anzeige

14 Forumthreads zu ähnlichen Themen

Zellenhöhe bei verbundenen Zellen (VBA Code?)
Micha

Hallo liebe Spezialisten,
ich habe folgendes Problem und würde mich über einen VBA-Code riesig freuen.
In der Tabelle1 sind in dem Bereich B53:AI63 die Zellen verbunden.
Der in diesem Bereich von anderen Usern eingegebene Text ist unterschiedlich lang.
Der Zeilenumbruch funktion...
17.09.2009 13:18:38
Thread-ID: 1103550
2 Beiträge
Anzeige
VBA kopieren von verbundenen Zellen
verbundenen

Hallo zusammen
Stehe wieder mal auf dem Schlauch ,Ich habe mir eine kleine Exceldatei zur Ertellung von Lieferanten Bestellungen ,mit Hilfe von diversen Code "Schnipseln" aus dem Forum erstellt,welche auch ganz gut für meine Bedürfnisse:-)funktioniert .Ich verzweifle nun aber am Versuch Dat...
04.03.2014 14:00:18
Thread-ID: 1352129
3 Beiträge
Verbundene Zellen in gesamter Arbeitsmappe suchen
Volker

Liebe Forumsgemeinde!
Ich suche nach einer Möglichkeit, einen bestimmten Zellbereich (allerdings in allen Tabellenblättern der Arbeitsmappe) nach verbundenen Zellen zu durchsuchen und die Zelladresse sowie den Blattnamen aller Fundstellen nach Gesamtdurchlauf der Suche in einer Messagebox...
02.03.2016 12:10:31
Thread-ID: 1479225
9 Beiträge
Anzeige
Zeilenhöhe per VBA bei verbundenen Zellen
Markus

Hallo,
ich habe ein Blatt (Blatt3), in dem ich die Zeilenhöhe von Zeile 8 per VBA automatisch anpassen möchte.
Das Problem dabei ist, dass F8:O8 verbundene Zellen sind, deren Inhalt dynamisch per Formel (Verketten) generiert wird und stark in der Textlänge variiert. Die restlichen Zel...
12.12.2017 23:29:57
Thread-ID: 1596866
2 Beiträge
VBA Zellen mit mehreren Werten trennen
ult

Hallo zusammen,
über einen Report bekomme ich eine Excel-Datei mit mehreren Werten in einer Zelle (siehe https://www.herber.de/bbs/user/118755.xlsx im Tab "Ist"). Wie in Spalte B zu sehen ist, sind die Anzahl der Abteilungen nicht an jedem Standort gleich. Je nach Report kann sich die Anzah...
07.01.2018 18:22:36
Thread-ID: 1600755
3 Beiträge
Verbindung verbundener Zellen per Makro aufheben
DonFiala

Hallo,
suche das Makro um Verbundene Zellen zu normalen Zellen zu machen, um also die Verbindung aufzuheben, kanns aber einfach net finden :-(
Vielen Dank
28.04.2005 10:03:52
Thread-ID: 604970
4 Beiträge
Makro: verbundene Zeilen trennen
maik

Hallo liebe Excel Gemeinde,
ich würde gerne per Makro verbundene Zeilen einer Spalte wieder trennen. Soweit komme ich noch, nun mein Problem:
in den verbundenen Zeilen stehen Werte, die nach der Trennung im jeder einzelnen Zeile des Vorher verbunden Bereichs stehen sollen.
Hat jeman...
08.07.2005 10:49:52
Thread-ID: 634632
4 Beiträge
VBA: in verbundene Zellen springen
MikelF:)

Hallo,
ich suche eine TEIL-Formel die (ausgelöst per Symbol auf der Symbolleiste!) automatisch (hintereinander) auf die verbundene Zelle springt ...damit (im 2. Teil) die Zeilenhöhe bei verbundenen Zellen angepasst werden kann!
Die VBA-Formel des 2. Teils (habe ich aus diesem Forum!) la...
14.06.2007 15:48:41
Thread-ID: 878031
3 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige
Archiv - Verwandte Themen
Forumthread
Beiträge
1
6
2
8
5
1
2
3
3
2
2
6
3
5