Zellverbund aufheben, Wert in alle Zellen einfügen
05.10.2016 13:57:21
Hasi
Ich muss jeden Monat ein Reporting erstellen, wo die "Rohdaten" im Excel verbunden sind. In den Spalten A und B befinden sich mehrere, untereinander zusammengefügte Zeilen mit Namen. (z.B. Daten 1 verbunden A1-A15; Daten 2 verbunden A16;A19; usw.)
Ich habe im Archiv eine Lösung gefunden, um einen Zellverbund mit dem Namen so aufzuheben, dass danach in jeder einzelnen Zelle der gleiche Name steht, wie zuvor im Zellverbund.
https://www.herber.de/forum/archiv/944to948/945851_Zellverbund_aufheben_Wert_in_alle_Zellen_einfuegen.html#946019
Die Antwort von Erich aus Kamp-Lintfort hat super funktioniert für Spalte A. Wenn ich jetzt die gleiche Logik für Spalte B anwenden möchte, funktioniert es leider nicht (auch wenn ich A durch B in der Formel ersetze):
--------------------------------
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
-----------------------------------------------
Habt ihr vielleicht eine Lösung?
Herzlichen Dank im Voraus!
Hasi