Als HTML speichern - variabler Name

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

...metrieren, G.
Also ungefähr so:


Sub test(Optional ByRef Wsh As Worksheet)
If Wsh = Nothing Then Set Wsh = ActiveSheet

Statt "Sheet1" schreibst du dann Wsh.Name.
Kann sein, dass sich die Subroutine dann nicht per "Knopfdruck" aufrufen lässt - trotz Optional (geht, glaube ich, nur mit optionalen Parametern vom Typ Variant)! Dann entweder entsprechend umstellen, wenn sich der Aufruf ohne Parameter lohnt (bei häufigem Verwenden des aktuellen Blattes) oder du musst dir einen Satz unparametrierter Aufruf-Subroutinen anlegen, die die das jeweilige Blatt als Parameter übergeben.
Alternativ könnte die Subroutine den Blattnamen auch abfragen, evtl aus einer Zelle. Hierbei könnte der Blattname auch mit einer Formel ermittelt wdn, z.B. als Ausblendung aus ZELLE("dateiname";Blatt!Bereich). So könnte allerdings auch der gesamte Pfad übergeben wdn.
Es sind auch noch andere Möglichkeiten der Blattnamensübergabe denkbar. So bspw mit einer Globalvariablen, evtl unter Einbeziehung einer Ereignisprozedur. Die einfachste mag aber die erstgenannte sein.
Gruß Luc :-?

Allerdings kannst du ja auch den anderen Weg wählen und den Namen aus einer festgelegten, stets gleichen Zelle auslesen, G.
Dann musst du allerdings noch eine Variable deklarieren (As String) die diesen Text aufnimmt: _ p>


Dim WshN As String
WshN = Range("diesezelle")

...und das dann ohne Parameter und "sheets1" durch WshN ersetzen.
Luc :-?
PS: Deine Kenntnisse sollten schon deiner Angabe entsprechen, sonst reden wir aneinander vorbei. In Fällen von Selbstüberhebung kennen wir keine Gnade... ;-)
Tipp: Mal die xl/VBA-Objektstruktur, die Befehlsliste und alle Hilfekapitel durchzählen nach dem Prinzip "Kenn ich - Kenn ich nicht", daraus eine %Zahl machen und die auf die Forums-Einstellungsmöglichkeiten für UserKenntnisse anwenden. Da sollte sich dann das Richtige ergeben... ;-)

Sub test() With ActiveWorkbook.PublishObjects.Add(xlSourceSheet, _ "\\myserver\sharename\folder\filename.htm", "" & ActiveSheet.Name & "", "", _ xlHtmlStatic, "", "") .Publish True .AutoRepublish = False End With End Sub

Beliebteste Forumthreads (12 Monate)

Als HTML speichern - variabler Name

6
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

300 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Als HTML speichern - variabler Name

6 Beiträge zum Forumthread Beiträge zu diesem Forumthread

300 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

6
Beiträge zum Forumthread

Beiträge zu diesem Forumthread