Dansk Regneark Forum
  Hjælp Hjælp  Søg i forum   Arrangementer   Opret ny bruger Opret ny bruger  Log ind Log ind


Emne lukketRyd alle tabeller

 Besvar Besvar
Forfatter
BjarkeKK Se dropdown
Forum Begynder
Forum Begynder
Avatar

Medlem: 13.Jan.2017
Land: Danmark
Status: Offline
Point: 3
Direkte link til dette indlæg Emne: Ryd alle tabeller
    Sendt: 24.Nov.2019 kl. 16:15
Hej Alle

Er der en måde man kan slette alt indhold fra ALLE tabeller i sit Excelark, i stedet for en af gangen, som jeg gør nu?

Sub RydAlleTabeller() 

 With Range("Løn_Oktober").ListObject 
 If Not .DataBodyRange Is Nothing Then 
 .DataBodyRange.Delete 
 End If 
 End With 
 With Range("Streaming_Tjenester_Oktober").ListObject 
 If Not .DataBodyRange Is Nothing Then 
 .DataBodyRange.Delete 
 End If 
 End With 
 With Range("Kickstarter_Oktober").ListObject 
 If Not .DataBodyRange Is Nothing Then 
 .DataBodyRange.Delete 
 End If 
 End With 

'Osv. osv...
End Sub
 

Takker på forhånd!
Til top



Til top
 Besvar Besvar

Skift forum Forum tilladelser Se dropdown

© 2010 - 2024 Dansk Regneark Forum - en del af Excel-regneark.dk