AW: diesmal mit vb-script...funktioniert bei mir auch
10.08.2018 16:20:14
Oberschlumpf
Hi Tom,
da es ja nur um die Spalten T bis Z geht, ändere diesen Code
For lloNoMerge = 7 To .Cells(Rows.Count, 15).End(xlUp).Row
If .Range("T" & lloNoMerge).MergeCells Then
.Range("T" & lloNoMerge).UnMerge
End If
Next
um in
Dim lloCol As Long
For lloNoMerge = 7 To .Cells(Rows.Count, 20).End(xlUp).Row
For lloCol = 20 To 26
If .Cells(lloNoMerge, lloCol).MergeCells Then
.Cells(lloNoMerge, lloCol).UnMerge
End If
Next
Next
Mit For lloCol = 20 To 26 werden alle Spalten von T (20) bis Z (26) geprüft, ob deren Zellen verbunden sind.
Ich hatte in deiner Test-Datendatei nur die Spalte F überprüft, weil, wenn verbunden, dann alle Zellen in der gefundenen Zeile.
Sollte es in deinen Originaldateien auch Spalten VOR Spalte T geben, die verbundene Zellen enthalten, dann verringer einfach den Wert 20 so weit wie erforderlich.
Anstelle von 20 = 1 würdest du in Spalte A mit der Suche nach Zellverbünden beginnen.
Ciao
Thorsten
Ciao
Thorsten