VBA: Hvordan slette rækker?

[N. Foldager]

Jeg ønsker at sortere rækker fra et faneblad til en række andre
faneblade. Derved opstår (for min nuværende løsning) tomme rækker i de
modtagende faneblade.

Derfor ønsker jeg en funktion, som kan fjerne tomme rækker i et
regneark. Jeg kan ikke finde nogen metode i VBA Excel, der kan slette
en range (f.eks. en række). Er der nogen, der har et godt tip?

Hvis der ikke findes en metode til at slette, er der så én, der kan
kopiere rækker; så kunne jeg måske lave en lavine ned gennem arket.

Mvh

N. Foldager

[Jan Kronsell]

"N. Foldager" <nfoldager-t...@yahoo.com> skrev i meddelelsen
news:3jpk16hlnob3ns00p...@4ax.com...
>
> Jeg �nsker at sortere r�kker fra et faneblad til en r�kke andre
> faneblade. Derved opst�r (for min nuv�rende l�sning) tomme r�kker i de
> modtagende faneblade.
>
> Derfor �nsker jeg en funktion, som kan fjerne tomme r�kker i et

> regneark. Jeg kan ikke finde nogen metode i VBA Excel, der kan slette

> en range (f.eks. en r�kke). Er der nogen, der har et godt tip?
>
> Hvis der ikke findes en metode til at slette, er der s� �n, der kan
> kopiere r�kker; s� kunne jeg m�ske lave en lavine ned gennem arket.
>
> Mvh
>
Denne sletter tomme r�kker (her A-kolonnen er tom, me4n det kan �ndres)

Sub SletTomA()
lstrow =
ActiveSheet.UsedRange.Rows(UBound(ActiveSheet.UsedRange.Value)).Row
For i = lstrow To 1 Step -1
If IsEmpty(Range("a" & i)) Then
Range("a" & i).EntireRow.Delete
End If
Next i
End Sub

Jan