Zellverbund aufheben, Wert in alle Zellen einfügen

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Option Explicit Sub Verbundene_trennen() Dim rngM As Range, rngC As Range If Selection.MergeCells Then Set rngM = Selection rngM.MergeCells = False For Each rngC In rngM If rngC.Address rngM.Cells(1).Address Then rngC = rngM.Cells(1) Next rngC End If End Sub

Hallo Erich,
vielen Dank für Deine schnelle Hilfe! Das Makro funktioniert einwandfrei.
Gibt es auch eine Funktion in Excel, die das Gleiche leistet? Ich habe eine Formel, in die ich eine solche Funktion gerne einbauen möchte. Ansonsten muß ich in allen Blättern erst sämtliche verbundene Zellen mit Deinem Makro bearbeiten.
Eine Tabelle möchte ich anhand von zwei Kriterien (Spalte A und C) durchsuchen:
Userbild

Die Formel lautet:
=SUMMENPRODUKT((Januar!$A$5:$A$250=B$1)*(Januar!$C$5:$C$250=$A3)*Januar!$B$5:$B$250)
Das erste Suchkriterium steht immer in einem Zellverbund. Daher findet die Formel ein Ergebnis immer nur in der obersten Zeile rechts neben dem Zellverbund, also beispielsweise "40".
Grüsse vom (zur Zeit) sonnigen Bodensee

Hallo Wolfgang,
mein Rat: Löse alle verbundenen Zellen auf, sie machen (wie bei deinen Formeln) viel Ärger.
Hier ein Makro, das im aktiven Blatt alle Zellverbünde in Spalte A auflöst, und ein weiteres Makro,
mit dem du alle (bis auf Ausnahmen) Blätter schnell ändern kannst.


Option Explicit
Sub Verbundene_trennenA()   ' (Vertikal verbundene Zellen in Spalte A)
Dim rngM As Range, rngC As Range, zz As Long
For zz = Cells(Rows.Count, 1).End(xlUp).Row To 2 Step -1
If Cells(zz, 1).MergeCells Then
Set rngM = Cells(zz, 1).MergeArea
rngM.MergeCells = False
For Each rngC In rngM
If rngC.Address  rngM.Cells(1).Address Then rngC = rngM.Cells(1)
Next rngC
zz = rngM.Row
End If
Next zz
End Sub
Sub InAllenBlaettern()
Dim wks As Worksheet
For Each wks In ActiveWorkbook.Worksheets
Select Case wks.Name
Case "xyz", "Summe" ' Blätter, die NICHT bearbeitet werden sollen
Case Else
wks.Select
Verbundene_trennenA
End Select
Next wks
End Sub

Noch ein evtl. nützlicher Tipp:
Ist es sinnvoll/nötig, die gleichartigen Daten monatsweise auf etliche Blätter zu verteilen?
Mit einer Spalte "Monat" hättest du die Infos alle in einem Blatt
und könntest sie z. B. mit Pivottabelle leicht auswerten.
Hier ein Beispiel: https://www.herber.de/bbs/user/49469.xls
Rückmeldung wäre nett! - Grüße von Erich aus Kamp-Lintfort

Beliebteste Forumthreads (12 Monate)

Zellverbund aufheben, Wert in alle Zellen einfügen

3
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

4 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Zellverbund aufheben, Wert in alle Zellen einfügen

3 Beiträge zum Forumthread Beiträge zu diesem Forumthread

4 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

3
Beiträge zum Forumthread

Beiträge zu diesem Forumthread