Workbooknaam

[verluc]

In een msgbox wil ik via een macro graag de naam van het workbook vermelden.
Kan iemand mij een tip geven waar ik deze naam kan vandaan halen?
Bedankt op voorhand.

 

[RvanGalenLast]

Dat kan op de volgende manier

MsgBox ActiveWorkbook.Name

mvg

Ronald

 

[verluc]

Zeer bedankt Roland,

Ik heb thans de volgende code dewelke correct werkt:

Range("A11") = ActiveWorkbook.Name
varResponse = MsgBox " Versie:" & Worksheets("Invoer").Range("A11").Value
If varResponse = vbYes Then ......

Mijn vraag is of het niet mogelijk is om deze opdracht in één lijn weer te geven zonder een tussenstation van Range A11 ?
Met dank.

 

[snb]

Verluc,

Ook jij bent inmiddels gerechtigd tot het gebruik van de VBA-codetagsfaciliteit, zoals bijv.

Sub korter()
  If MsgBox (" Versie:" & ActiveWorkbook.Name) = vbYes Then ......
End Sub

 

[verluc]

Zeer bedankt SNB voor deze verkorte uitgave !!!
Als U mij een hint kan geven waar en hoe ik de VBA-codetagsfaciliteit kan toepassen, zal ik hiervan vanzelfsprekend gebruik maken.
Nogmaals gewaardeerde dank.

 

[RvanGalenLast]

Bij het stellen van een vraag of beantwoorden hiervan zie je in de opmaakbalk dit teken:Als je de code in deze box hebt gekopieerd dan selecteer je de tekst van de code en klik je op het # teken.

zo dus

Met vriendelijke groet,

Ronald

 

[verluc]

Zeer bedankt voor deze uitleg !!!

 

[verluc]

snb,

U adviseert om in een code geen Select of Activate te gebruiken.
Welk is dan het alternatief voor :

Sub terug()
Sheets("Invoer").Select
End Sub

 

[Wigi]

snb,

U adviseert om in een code geen Select of Activate te gebruiken.
Welk is dan het alternatief voor :

Sub terug()
Sheets("Invoer").Select
End Sub

Dat hangt ervan af wat er nog volgt: welke commando's en andere acties op dat blad.

 

[verluc]

Met dank voor de info !!