Range probleem lege regel!!

[Demeter]

Wil met deze code bereiken dat ik in de eerst volgende lege rij kolommen A tm F opmaak met:
- Grijze achtergrond (indexkleur 15)
- Randopmaak (geen tussen stijlen)
- Cel in kolom A krijgt de tekst 'TEchnicus'
- Cellen in kolom B tm F krijgen een '-' en krijgen ook de kleurindex 15 mee.

Code werkte redelijk tot dat ik deze wilde laten zoeken naar de lege regel in het document. Denk dat het Resizen niet gaat volgens afspraak?

Sub Macro3()
Dim MyRange As Range

legeregel = Sheets(1).Range("A" & 100).End(xlUp).Row

'Het is de bedoeling dat NaamFunctie later vanuit een andere macro
'hier wordt ingevoerd zodat deze macro variabel ingezet kan worden.
'wil namelijk voor ieder functie binnen het bedrijf een extra regel toevoegen
'nadat de vorige functie is geplaatst.
NaamFunctie = "Technicus"

Set MyRange = Sheets(1).Range("A" & legeregel)

Sheets(1).Range("A1").Resize(0, 5).Select
    Selection.Borders.LineStyle = xlContinuous
    Selection.Borders(xlInsideVertical).LineStyle = xlNone
    Selection.Interior.ColorIndex = 15

MyRange.Select
    Selection.Font.Bold = True
    Selection = "Technicus"
   
MyRange.Offset(0, 1).Resize(0, 4).Select
    Selection = NaamFunctie
        With Selection.Font
            .Name = "Arial"
            .Size = 10
            .ColorIndex = 15
        End With
        
End Sub

Iemand misschien een idee?


Thanks,
Ferenc

 

[Spiderman]

Hoi Demeter,

Wat je probeert te doen kan natuurlijk niet.

Je probeert de hoogte van een stukje uit een rij op 0 te zetten. Je kan alleen de hele rij op nul zetten.

Oplossing is: 'MyRange.Resize(, 5).Select'

 

[Demeter]

En wederom:

Thank you Spiderman.

Dacht dat als je de 0 zou laten staan er dan niks verticaal zou gebeuren.
Bedankt voor de snelle reaktie.


Groet,
Ferenc