Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
1392to1396
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
Inhaltsverzeichnis

Zellenverbund auflösen auf usedrange

Zellenverbund auflösen auf usedrange
18.11.2014 13:36:44
Sparrow
Hey,
würdet ihr mich eben den Code so umschreiben dass dieser nicht nur Spalte A durchläuft sondern die UsedRange des Tabellenblatts?
sorry - stehe gerade auf dem Schlauch!
Sub fuellen1()
Dim i As Long
Dim anzahl As Long
Application.ScreenUpdating = False
For i = 2 To Cells(Rows.Count, 2).End(xlUp).Row
Range("A" & i).Select
With Selection
anzahl = .Count - 1
.MergeCells = False
Range("A" & i & ":A" & i + anzahl).Value = ActiveCell.Value
End With
i = i + anzahl
Next
Application.ScreenUpdating = True
End Sub

Vielen Dank
Sascha

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

Betreff
Datum
Anwender
Anzeige
AW: Zellenverbund auflösen auf usedrange
18.11.2014 13:45:48
Hajo_Zi
Hallo Sascha,
ungetestet
Option Explicit
Sub fuellen1()
Dim i As Long
Dim anzahl As Long
Dim RaZelle As Range
Application.ScreenUpdating = False
For Each RaZelle In ActiveSheet.UsedRange
With RaZelle
anzahl = .Count - 1
.MergeCells = False
Range("A" & i & ":A" & i + anzahl) = RaZelle.Value
End With
i = i + anzahl
Next
Application.ScreenUpdating = True
End Sub

AW: Zellenverbund auflösen auf usedrange
18.11.2014 13:48:26
Sparrow
Hey,
Danke für die schnelle Antwort - diese Zeile meckert:
Range("A" & i & ":A" & i + anzahl) = RaZelle.Value
Ne Idee?
Vg Sascha

Anzeige
AW: Zellenverbund auflösen auf usedrange
18.11.2014 13:50:08
Daniel
Hi
probier mal das:
Sub VerbundzellenAuflösen()
Dim Zelle As Range
Dim Wert As Variant
For Each Zelle In ActiveSheet.UsedRange
If Zelle.MergeCells = True Then
With Zelle.MergeArea
Wert = .Cells(1, 1).Value
.MergeCells = False
.Value = Wert
End With
End If
Next
End Sub
Gruß Daniel

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige