overflødige rækker/kolonner i Excel

Jeg anvender denne - fundet på nettet:

Sub DeleteUnused()

Dim myLastRow As Long
Dim myLastCol As Long
Dim wks As Worksheet
Dim dummyRng As Range


For Each wks In ActiveWorkbook.Worksheets
  With wks
    myLastRow = 0
    myLastCol = 0
    Set dummyRng = .UsedRange
    On Error Resume Next
    myLastRow = _
      .Cells.Find("*", after:=.Cells(1), _
        LookIn:=xlFormulas, lookat:=xlWhole, _
        searchdirection:=xlPrevious, _
        searchorder:=xlByRows).Row
    myLastCol = _
      .Cells.Find("*", after:=.Cells(1), _
        LookIn:=xlFormulas, lookat:=xlWhole, _
        searchdirection:=xlPrevious, _
        searchorder:=xlByColumns).Column
    On Error GoTo 0

    If myLastRow * myLastCol = 0 Then
        .Columns.Delete
    Else
        .Range(.Cells(myLastRow + 1, 1), _
          .Cells(.Rows.Count, 1)).EntireRow.Delete
        .Range(.Cells(1, myLastCol + 1), _
          .Cells(1, .Columns.Count)).EntireColumn.Delete
    End If
  End With
Next wks

End Sub

Hvabehar! Det er da ikke en forståelig forklaring! Folk, de kan gennemskue meningen i dette computerhebraiske sprog, døjer nok ikke med mit lille og enkelt formulerede problem. Løsningen må ligge i korrekt brug af piletasterne og Ctrl, Shift, End m m.

gakxxk39(asfk(((
Flemming

Mit indlæg er et forslag til at løse dit problem
jeg hjælper gerne med at bruge denne løsning
Men hvorfor microsoft har lavet Excel som de har, det må microsoft selv redde sig ud af :-)

Så skal jeg lave en anvisning til hvordan mit forslag anvendes ?
Eller mener du løsning er en helt anden ?

Du har ret i, at Microsoft ikke ved, hvordan problemet løses, for jeg har forgæves spurgt deres support, og de har også i Hjælp-menuen nogle kryptiske forslag, hvor de slutter af med at skrive: "Så skulle problemet været løst"!!!! Det er det ikke.
Kan du give mig en forklaring for Dummies, er jeg meget lydhør

mvh.

Flemming

ja den kommer her :

1. Start med at indlæse din projektmappe
2. Derefter kopierer du koden jeg indsatte herover (CTRL+c)
3. Retur til et ark i projektmappen
4. Tast ALT+F11
5. I menuen "Insert" vælger du "Module"
6. Indsæt koden i det tomme vindue som fremkommer (CTRL+v)
7. ALT+F11 bringer dig tilbage til arket
8. tast ALT+F8 marker "DeleteUnused" og klik "Afspil" (UK-RUN)

Når jeg har det problem, som du beskriver, placerer jeg markøren i første celle i den første tomme række. Derefter Ctrl+Shift+End. Jeg har nu fat i de tomme rækker. Højreklik, slet rækker .... og så det vigtige. Ctrl+Home, så jeg kommer op i øverste celle. Gem (det springende punkt her er at gemme med det samme).

Jeg har forsøgt dit forslag, og det burde faktisk virke, men det gør det ikke. Heller ikke med Ctrl + Pil ned. Jeg prøver alternativt excelents forslag, men skal lige sætte mig ind i, hvad der sker ved det. Der er så mange fejl i Excel 2007. Et andet, som Microsoft heller ikke kan give en fornuftig løsning på, er følgende: hvis man gemmer et Excel-dokument, bliver man undertiden helt umotiveret spurgt, om man vil tilføje en række? Ifølge Microsoft DK er der indtil videre kun den mulige løsning at køre i fejlsikret tilstand (I Kør bruges kommandoen: excel /safe).

Jeg troede Service Pack 1 til Office 2007 ville løse problemerne, men nej.

Til excelent: kan du give mig et link til det sted på nettet, hvor du fandt løsningen.

hilsen igen

Flemming

Det er længe siden jeg fandt koden, så det kan jeg ikke huske
Kører selv xl2003 - noget tyder på xl2007 giver en del problemer

husk lige at lukke
marker box med navn og klik accepter