Beste allemaal,
Ik ben weer een beetje bezig met het opmaken van een standaard werkblad. Het werkblad bevat meerdere randen en samengevoegde cellen. Dit werkblad kan ik dan middels een knop direct nieuw aanmaken. Copy voldeed moet niet en dus moest ik uitwijken naar een andere mogelijkheid. Een mogelijkheid wat op zicht is gelukt. Echter plaats ik toch vraagtekens over 2 code regels. In beide selecteer ik.
De bedoeling is dat er van de eerste rij 10 x 10 kolommen worden samengevoegd en dit naast elkaar.
Range A1:A10, Range A11:A20, Range A21:A30 enz.
Je ziet dat ik feitelijk 2 keer selecteer. Klopt dit. Mij staat namelijk bij dat dit niet nodig is.
Ik hoor graag van jullie.
Alvast bedankt
Ik ben weer een beetje bezig met het opmaken van een standaard werkblad. Het werkblad bevat meerdere randen en samengevoegde cellen. Dit werkblad kan ik dan middels een knop direct nieuw aanmaken. Copy voldeed moet niet en dus moest ik uitwijken naar een andere mogelijkheid. Een mogelijkheid wat op zicht is gelukt. Echter plaats ik toch vraagtekens over 2 code regels. In beide selecteer ik.
De bedoeling is dat er van de eerste rij 10 x 10 kolommen worden samengevoegd en dit naast elkaar.
Range A1:A10, Range A11:A20, Range A21:A30 enz.
Code:
Dim KolStart, Nummer As Integer
KolStart = 1
Nummer = 0
Sheets.Add After:=Sheets(Sheets.Count)
Cells.ColumnWidth = 1
Do While Nummer <= 9
[COLOR="#FF8C00"]Cells(1, KolStart).Select
Range(Cells(1, KolStart), ActiveCell.Offset(0, 9)).Select[/COLOR]
With Selection
.Merge
.HorizontalAlignment = xlCenter
.Borders(xlEdgeLeft).LineStyle = xlContinuous
.Borders(xlEdgeTop).LineStyle = xlContinuous
.Borders(xlEdgeBottom).LineStyle = xlContinuous
.Borders(xlEdgeRight).LineStyle = xlContinuous
.Value = Nummer
End With
KolStart = KolStart + 10
Nummer = Nummer + 1
Loop
Je ziet dat ik feitelijk 2 keer selecteer. Klopt dit. Mij staat namelijk bij dat dit niet nodig is.
Ik hoor graag van jullie.
Alvast bedankt
Laatst bewerkt: