sheest löschen, die mit "_" beginnen

Antwort erstellen

BBCode ist eingeschaltet
[img] ist ausgeschaltet
[url] ist eingeschaltet
Smileys sind ausgeschaltet
Die letzten Beiträge des Themas
   

Ansicht erweitern Die letzten Beiträge des Themas: sheest löschen, die mit "_" beginnen

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

von kannenklaus » 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

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

von kannenklaus » 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

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

von komma4 » So, 14.07.2013 18:01

kannenklaus hat geschrieben:habens zwar nicht schneller
suche mal nach LOCKCONTROLLERS zum Schnellermachen

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

von kannenklaus » 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

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

von F3K Total » 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

sheest löschen, die mit "_" beginnen

von kannenklaus » 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

Nach oben