Namen ändern

Hallo Excel-Freunde
aufgrund eines Threads von gestern konnte ich Dank eurer Hilfe eine Lösung finden.
Jetzt mach ich leider nochmal einen Thread auf, da sich mein "Problem" nun noch etwas anders "gestaltet"
Ich frage per Code einige Daten aus dem Inet ab. Dabei wird mir ein Bereichname vergeben.
Hier der Code-"Schnipsel"
...
With ActiveSheet.QueryTables.Add(Connection:= _
"URL;" & sHTML, Destination:=Range("a20"))
.Name = "Currency"
...
Wenn ich den Code mehrfach ausführe, wird mit der Name immer wieder neu erstellt,
aber leider immer mit einer Ergänzung - nämlich mit einem Unterstrich zzgl. einer fortlaufenden Zahl.
Wenn ich den Code 10 x ausführe, entsteht der Name Currency_10
Da ich aber die Bereichnamen für eine Formel benötige, dachte ich an folgende Lösung:
Nachdem der Name vom Code eingefügt wurde, soll der Name per VBA geändert werden
in Currency - d.h. ohne die Ergänzung von _ (Unterstrich) und Nr.
Kann man so etwas via VBA hinkriegen ?
Oder kann mein Code so erweitert werden, dass die Namenvergabe nicht immer diesen Unterstrich / Nr erzeugt ?
Freu mich auf eine Antwort
Gruß
Stef@n

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Benutzer

…Robert,
das Gegentück, DeCode, dann in der Post…
Kannst die codierte Adresse auch im Quellcode verstecken (ignoriertes Pseudo-Tag oder span-Tag mit title="…" → maussensitiv), damit's nicht jedem auffällt. Außerdem kannst du auch die PgmKonstanten defZVs u.maxZVs anders festlegen, falls beim Codieren nichtdruckbare Zeichen entstehen sollten.

Rem udFkt codiert Arg1 zu irregulärem Ausdruck als Pass- bzw Kennwort
'   Arg1:=Merkwort (Quelltext), Arg2:=ZeichenVschieb -> wirksam defZVsmaxZVs
'   Die Fktskonstanten können je nach Bedarf individuell eingestellt wdn; nur
'   b.leerem ErsZ wdn dn defZVs u.maxZVs zu Ergebnisbestandteilen, d.and nie!
'   Vs 1.2/1 -Autor: LSr -CD: 20110321 -1Pub: 20110324/herber -LUpd: 20110323t
Function EnCode(ByVal Vwert As String, Optional ByVal ZVs As Integer)
Const defZVs As Integer = 40, maxLKw As Integer = 0, maxZVs As Integer = _
105, ErsZ As String = "", txMwZ As String = _
"1032547698@ABCDEF.abcdefMLKJIHGmlkjihgNOPQRSTnopqrstZYXWVUzyxwvu-"
Dim rBw(1) As Boolean, rIx As Integer, dTz As String, Kw As String, _
arKw, arVw, arZVs, eZ As Variant
If Vwert = "" Then Exit Function
dTz = Application.International(xlDecimalSeparator)
Randomize: arVw = Split(IsoLet(Vwert)): arZVs = Array(defZVs, maxZVs)
If ZVs  maxZVs Then ZVs = ZVs Mod maxZVs
If ZVs

Bis dann, Luc :-?

Beliebteste Forumthreads (12 Monate)

19 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

19
Beiträge zum Forumthread

Beiträge zu diesem Forumthread