Met onderstaande code, kopieer ik een RANGE naar een nieuw tabblad.
De rode regel in de code bepaalt de RANGE die gekopieerd moet worden.
Op het nieuwe blad verschijnt echter de Range A3:K20 i.p.v. Range A3:O20
Wat is er mis aan de code?
De rode regel in de code bepaalt de RANGE die gekopieerd moet worden.
Op het nieuwe blad verschijnt echter de Range A3:K20 i.p.v. Range A3:O20
Code:
Private Sub CommandButton2_Click()
'aanmaak nieuw tabblad mat als naam (maand + jaar)
tabnaam = Format([B3].Value, "mmmm yy")
For Each Sheet In ThisWorkbook.Sheets
If Sheet.Name = tabnaam Then bestaatal = True: Exit For
Next Sheet
If bestaatal = True Then
MsgBox "Het tabblad " & tabnaam & " bestaat al!"
Else
Application.ScreenUpdating = False
Worksheets.Add after:=Sheets(Sheets.Count)
ActiveSheet.Name = tabnaam
[COLOR="#FF0000"]Sheets("Blad1").Range("A3:O20").Copy[/COLOR]
With Sheets(tabnaam).Range("A1")
.PasteSpecial xlPasteValues
.PasteSpecial xlPasteColumnWidths
.PasteSpecial xlPasteFormats
.Range("A1").Select
End With
Application.ScreenUpdating = True
Sheets("Blad1").Select
Range("B5:O20").ClearContents
Range("B5").Select
End If
End Sub