Meerder vensters aansturen met vba in excel

Status
Niet open voor verdere reacties.
H

harrydlk

Gebruiker
Lid geworden
31 okt 2014
Berichten
7
Ik heb in mijn programma een aantal vensters openstaan die in vba via macro aanstuur.

voorbeeld

Windows(ThisWorkbook.Name & ":1").Activate
With ActiveWindow
.WindowState = xlNormal
.Zoom = 120
.DisplayHorizontalScrollBar = False
.DisplayVerticalScrollBar = False
.DisplayWorkbookTabs = False
.Left = 0
.Top = 0
.Width = 105
.Height = 550
End With

Echter sinds de laatste update van excel 2016 (office 365) werkt de code Windows(ThisWorkbook.Name & ":1").Activate niet meer
De dubbele punt is in de vensternaam verdwenen en is map1 - 1
Ik kan geen mogelijkheid vinden om dit in vba aan te passen

Iemand het zelfde probleem? en of oplossing
 
Toch niet van 32bits Office 2013 "geüpgradet" naar 64-bits Office 2016, höop ik?
Sowieso bij voorkeur wegblijven van de 64-bits Office versies, vanwege compatibiliteitsproblemen.

Tijs.
 
Neen, probleem na automatische update office 365
terug oude versie opgezet, probleem weg
opnieuw update probleem opnieuw
 
Vreemd, een dubbelpunt is een ongeldig teken in een bestandsnaam.
Dus het zou sowieso niet kunnen in Excel (een bestand opslaan met daarin de dubbele punt).
Maar als jij schrijft dat het voor de update wel werkte in O-365 dan moet ik dat maar geloven.
 
Laatst bewerkt:
De dubbele punt staat niet in de bestandsnaam, maar geeft aan welk venster er geopend is.
Voorheen was dat vb. map1:1, map1:2 enz
Na de laatste update = het map1 - 1, map1 - 2 enz

voorbeeld.png
 
Ik kan het niet reproduceren, maar misschien...
Code: 
Windows(ThisWorkbook.Name & "[COLOR=#ff0000]*[/COLOR]1").Activate
 
Waarom gebruik je de macorecorder niet ?
 
Heb ik geprobeerd, in de marco geen verschil meer tussen de verschillende windows, hebben allen de zelfde naam
 
Wat levert deze macro aan gegevens op ?

Code: 
Sub M_snb()
   msgbox ActiveWorkbook.Windows.Count
   msgbox ActiveWorkbook.Windows(1).Caption
   msgbox ActiveWorkbook.Windows(2).Caption
   msgbox ActiveWorkbook.Windows(1).Panes.Count
End Sub
 
Status
Niet open voor verdere reacties.
Steun Ons

Nieuwste berichten

Terug
Bovenaan Onderaan