sheest löschen, die mit "_" beginnen

[kannenklaus]

hallo zusammen,

alle sheets, die am anfang mit "_" beginnen sollen gelöscht werden. dazu habe ich folg. makro. meine frage ist nun ob die variable i zurückgesetzt werden muss. freue mich auch auf jede verbesserung. später sollen über 500 sheets gelöscht werden.

danke schon mal im voraus klaus

Code: Alles auswählen

Sub DossierLoeschen()
Dim i as Double, alleSheets as Double
Dim s as String
oCalc =ThisComponent
mySheets=oCalc.sheets
strPrefix=mySheets.getByName("Basic_Einstellungen").getCellRangeByName("B4").Formula
alleSheets=mySheets.count-1
'msgbox alleSheets
	for i=0 to alleSheets
									
        If Left(mySheets(i).Name, 1) = strPrefix Then	
        	s=mySheets(i).Name	
			mySheets.RemoveByName(mySheets(i).Name)
			i=i-1
		else
		exit sub
		end if
	next i

end Sub

[F3K Total]

Hi, da fängst Du besser hinten an:

Code: Alles auswählen

    Sub DossierLoeschen()
    Dim i as integer, alleSheets as integer
    Dim s as String
    oCalc =ThisComponent
    mySheets=oCalc.sheets
    strPrefix=mySheets.getByName("Basic_Einstellungen").getCellRangeByName("B4").Formula
    alleSheets=mySheets.count-1
    'msgbox alleSheets
       for i=alleSheets to 0 step -1
                               
            If Left(mySheets(i).Name, 1) = strPrefix Then   
               s=mySheets(i).Name   
             mySheets.RemoveByName(s)
          else
          exit sub
          end if
       next i

    end Sub

Gruß R

[kannenklaus]

hallo rik,

DANKE: diee umkehrung von i to sheets.count-1 und der step -1 habens zwar nicht schneller ABER einfacher gemacht

viele grüße
klaus

[komma4]

habens zwar nicht schneller

suche mal nach LOCKCONTROLLERS zum Schnellermachen

[kannenklaus]

hallo rik,

DANKE: diee umkehrung von i to sheets.count-1 und der step -1 habens zwar nicht schneller ABER einfacher gemacht

viele grüße
klaus

[kannenklaus]

hallo zusammen,

alle sheets, die am anfang mit "_" beginnen sollen gelöscht werden. dazu habe ich folg. makro. meine frage ist nun ob die variable i zurückgesetzt werden muss. freue mich auch auf jede verbesserung. später sollen über 500 sheets gelöscht werden.

danke schon mal im voraus klaus

Code: Alles auswählen

Sub DossierLoeschen()
Dim i as Double, alleSheets as Double
Dim s as String
oCalc =ThisComponent
mySheets=oCalc.sheets
strPrefix=mySheets.getByName("Basic_Einstellungen").getCellRangeByName("B4").Formula
alleSheets=mySheets.count-1
'msgbox alleSheets
	for i=0 to alleSheets
									
        If Left(mySheets(i).Name, 1) = strPrefix Then	
        	s=mySheets(i).Name	
			mySheets.RemoveByName(mySheets(i).Name)
			i=i-1
		else
		exit sub
		end if
	next i

end Sub