VBA editor: Slette alt i regnearket.

Sub Makro3()

    Cells.Select
    Sheets(Array("Ark1", "Ark2", "Ark3")).Select
    Selection.ClearContents
End Sub

Sub Makro3()

Cells.Select
Sheets(Array("Ark1", "Ark2", "Ark3")).Select
Selection.ClearContents
Sheets("Ark1").Select
Range("A1").Select

End Sub

Tilføj disse to linier hvis det hele ikke skal være markeret efter sletning

Eller evt:

Sub SletAlt()
    For Each s In ActiveWorkbook.Sheets
        s.Select
        Cells.Select
        Selection.ClearContents
        Range("a1").Select
    Next s
    Sheets(1).Select
End Sub

chewie -> det virker ikke nå der er nogle celler som er merged. Den skal også fjerne al formatering.

Prøv denne her:

-----------------------
Public Sub sletAlt()

For i = 1 To ActiveWorkbook.Sheets.Count
    Sheets(i).Cells.Delete
Next i

End Sub
-----------------------

Sub Makro1()
'
' Makro1 Makro
' Makro indspillet 03-06-2003 af hba
'

'
    Cells.Select
    Selection.Clear
    Range("A1").Select
End Sub

Marker fanerne på de ark der skal tømmes

Sætter formattet til standard

Sub Makro3()

Cells.Select
Sheets(Array("Ark1", "Ark2", "Ark3")).Select
Selection.ClearContents
Selection.NumberFormat = "General"
Sheets("Ark1").Select
Range("A1").Select

End Sub

Dette burde kunne gøre det. Sletter såvel indhold som format fra alle ark, unaset hvor mange der er.

Sub SletAlt()
    For Each s In ActiveWorkbook.Sheets
        s.Select
        Cells.Select
        Selection.Clear
        Range("a1").Select
    Next s
    Sheets(1).Select
End Sub

Ikke for at blande mig, jkrons, men din kode vil fejle hvis der er et diagramark i projektmappen, for du bruger sheets og ikke worksheets.
sheets dækker alle typer ark, worksheets kun regneark.
Let omskrevet, virker det bedre:

Sub SletAlt()
Dim s As Worksheet
    For Each s In ActiveWorkbook.Worksheets
        s.Cells.Clear
    Next s
    Sheets(1).Select
End Sub

bak-> Du har selvfølgelig ret. Måske har jeg overset det, fordi jeg stort set aldrig bruger diagrammer.

Er der diagramark (eller integrerede diagramnmer) opstår det jo det interessante fænomen, at når alle data slettes, bliver diagrammerne meningsløse - og så skal de vel også slettes.

Denne version ser på om et akr faktisk indeholder celler. I så fald ryddes de for indhold og format - i modsat fald slettes det pågældende ark helt fra mappen:

Sub SletAlt()
    For Each s In ActiveWorkbook.Sheets
   
        s.Select
        On Error Resume Next
        Cells.Select
        If Err.Number = 1004 Then
            Application.DisplayAlerts = False
            ActiveSheet.Delete
            Application.DisplayAlerts = True
        Else
            Selection.Clear
            Range("a1").Select
        End If
 
    Next s
   
    Sheets(1).Select
   
End Sub