OpenOffice.info

Verfasst: **So, 14.07.2013 13:30**

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

Verfasst: **So, 14.07.2013 14:18**

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

Verfasst: **So, 14.07.2013 14:55**

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

Verfasst: **So, 14.07.2013 18:01**

kannenklaus hat geschrieben:habens zwar nicht schneller

suche mal nach LOCKCONTROLLERS zum Schnellermachen

Verfasst: **Fr, 16.08.2013 14:12**

kannenklaus hat geschrieben: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

Verfasst: **Fr, 16.08.2013 14:14**

kannenklaus hat geschrieben: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

OpenOffice.info

sheest löschen, die mit "_" beginnen

sheest löschen, die mit "_" beginnen

Re: sheest löschen, die mit "_" beginnen

Re: sheest löschen, die mit "_" beginnen

Re: sheest löschen, die mit "_" beginnen

[gelöst]Re: sheest löschen, die mit "_" beginnen

[gelöst]Re: sheets löschen, die mit "_" beginnen