Welcher Makro-Code schont PC-Ressourcen mehr?
Martin
ich möchte einige Werte als Zellnamen versteckt speichern. Dazu habe ich folgende Funktion geschrieben:
Function SaveVar(Name As String, Item As String)
ThisWorkbook.Names.Add Name:=Name, RefersTo:=Item
ThisWorkbook.Names(Name).Visible = False
End Function
Leider werden beim Auslesen der Werte jeweils ein Istgleich-Zeichen und zwei Anführungsstriche hinzugefügt. Ich habe zwei verschiedene Lösungen gefunden, um diese unerwünschen Sonderzeichen zu entfernen. Würde mir bitte jemand schreiben welche der beiden Lösungen schneller ist:'Lösung 1
Function ReadVar(Name As String)
ReadVar = Split(ThisWorkbook.Names(Name).Value, """")(1)
End Function
'Lösung 2
Function ReadVar(Name As String)
ReadVar = ThisWorkbook.Names(Name).Value
ReadVar = Mid(ReadVar, 3, Len(ReadVar) - 3)
End Function
Viele Grüße
Martin