Macro cellen verwijderen neemt steeds dezelfde regel.

[Natasja Witteve]

Hoi,

Ik heb een uitgebreid Excel bestand waarvan ik alle regels moet doorlopen (dit moet handmatig, i.v.m. een check) en de meeste wil verwijderen. Om tijd te sparen had ik een macro gemaakt die, vanaf de positie waar ik sta, 8 cellen naar rechts selecteert, deze verwijdert en vervolgens op de eerstvolgende cel gaat staan. Althans, dat is de bedoeling. Maar de macro verwijdert nu telkens regel 8 in plaats van de regel waar ik met de cursor sta. Weet iemand hoe ik dit aanpas?

Groetjes,
Natasja

 

[Roncancio]

Hoi,

Ik heb een uitgebreid Excel bestand waarvan ik alle regels moet doorlopen (dit moet handmatig, i.v.m. een check) en de meeste wil verwijderen. Om tijd te sparen had ik een macro gemaakt die, vanaf de positie waar ik sta, 8 cellen naar rechts selecteert, deze verwijdert en vervolgens op de eerstvolgende cel gaat staan. Althans, dat is de bedoeling. Maar de macro verwijdert nu telkens regel 8 in plaats van de regel waar ik met de cursor sta. Weet iemand hoe ik dit aanpas?

Groetjes,
Natasja

Dan moet je ActiveCell.Column + 8 gebruiken in je code.
Voeg anders je code toe.

Met vriendelijke groet,


Roncancio

 

[Natasja Witteve]

Hoi Ron (jij weer!!!!)

Hier mijn code (kan ik Active.Cell ook in het Duits gebruiken trouwens?):

Sub Makro3()
'
' Makro3 Makro
' Makro am 04.02.2009 von 036 aufgezeichnet
'
' Tastenkombination: Strg+v
'
Range("A8:F8").Select
Selection.Delete Shift:=xlUp
Range("A8").Select
End Sub

Dan moet je ActiveCell.Column + 8 gebruiken in je code.
Voeg anders je code toe.

Met vriendelijke groet,


Roncancio

 

[Roncancio]

Ja ik weer,

Sub Makro3()
'
' Makro3 Makro
' Makro am 04.02.2009 von 036 aufgezeichnet
'
' Tastenkombination: Strg+v
'
Range(ActiveCell.Address, ActiveCell.Offset(0, 5)).Delete
End Sub

Ik heb de macro aangepast aan jouw macro hoewel die iets afwijkt van je vraag.

Je hoeft niets te vertalen naar het Duits.

Met vriendelijke groet,


Roncancio

 

[snb]

Het maakt uit of je cellen verwijdert of een hele regel.

Sub weg()
  activecell.entirerow.delete
End Sub

Verwijdert de regel waarin de cursor staat en gaat daardoor automatisch naar de volgende regel

 

[Natasja Witteve]

Hoi Ron,

Bedankt voor je, als altijd snelle en werkende reactie!

Groetjes,
Natasja

Ja ik weer,

Sub Makro3()
'
' Makro3 Makro
' Makro am 04.02.2009 von 036 aufgezeichnet
'
' Tastenkombination: Strg+v
'
Range(ActiveCell.Address, ActiveCell.Offset(0, 5)).Delete
End Sub

Ik heb de macro aangepast aan jouw macro hoewel die iets afwijkt van je vraag.

Je hoeft niets te vertalen naar het Duits.

Met vriendelijke groet,


Roncancio

 

[Natasja Witteve]

Hoi Snb,

Ja klopt, alleen voor mijn bestand doet het er niet toe, aangezien dit opgebouwd is uit vijf kolommen. Bedankt echter voor de opmerkzaamheid.

Groetjes,
Natasja

Het maakt uit of je cellen verwijdert of een hele regel.

Sub weg()
  activecell.entirerow.delete
End Sub

Verwijdert de regel waarin de cursor staat en gaat daardoor automatisch naar de volgende regel