Herbers Excel/VBA-Archiv

Zelleninhalt kopieren

• Zelleninhalt kopieren von Basti vom 14.10.2020 13:38:14
• AW: Zelleninhalt kopieren - von Rudi Maintaire am 14.10.2020 14:00:37
  • AW: Zelleninhalt kopieren - von Basti am 14.10.2020 14:08:27
    • AW: Zelleninhalt kopieren - von Basti am 14.10.2020 14:26:17

Betrifft: Zelleninhalt kopieren von: Basti
Geschrieben am: 14.10.2020 13:38:14

Hallo Forum,

seit längerem benötige mal wieder Eure VBA-Hilfe.

Ich möchte den Zellenverbund, im markierten Bereich, auflösen und anschließend die leeren Zellen mit den Zelleninhalt inkl. Formel befüllen.

Bei meiner Recherche habe ich den folgenden Code im Netz gefunden, Dieser funktionert gut nur leider kopiert er nicht die Formel, wenn der Zellenverbund aufgelöst wird.

Könnt ihr mir helfen den Code so zu gestalten, dass auch Formeln kopiert werden?

Public Sub Unmerge_CopyValue()
'Programm löscht Zellenverbindung im markierten Bereich und trägt in die leeren Zellen dann den  _
jeweils darüberliegenden Wert ein.

Dim rngRange As Range, rngCell As Range
Dim strTempArddress As String
Dim vntTempValue As Variant

Application.ScreenUpdating = False

    Set rngRange = Application.Intersect(Selection, ActiveSheet.UsedRange)
    If Not rngRange Is Nothing Then
        For Each rngCell In rngRange.Cells
            If rngCell.MergeCells Then
                strTempArddress = rngCell.MergeArea.Address
                vntTempValue = Range(strTempArddress).Cells(1)
                rngCell.MergeArea.UnMerge
                Range(strTempArddress).Value = vntTempValue
            End If
        Next
    End If

 Application.ScreenUpdating = True
End Sub

Danke und Gruß
Bastia

  

Betrifft: AW: Zelleninhalt kopieren
von: Rudi Maintaire
Geschrieben am: 14.10.2020 14:00:37


hallo,
versuch mal

                vntTempValue = Range(strTempArddress).Cells(1).formula
                rngCell.MergeArea.UnMerge
                Range(strTempArddress).formula= vntTempValue

  

Betrifft: AW: Zelleninhalt kopieren
von: Basti
Geschrieben am: 14.10.2020 14:08:27

Hallo Rudi,

klappt leider nicht. Bekomme Laufzeitfehler '1004" Die Methode 'Range für das Objekt ' _ _Global' ist fehlgeschlagen direkt bei

vntTempValue = Range(strTempArddress).Cells(1).Formula

Gruß
Basti

  

Betrifft: AW: Zelleninhalt kopieren
von: Basti
Geschrieben am: 14.10.2020 14:26:17

Mein Fehler, Rudi!

Funktionert doch! Hatte ein Zeile gelöscht.

Vielen Dank für deine Hilfe.

Gruß
Basti