Codezeile verkürzen
Reinhard
kann man diese Codezeile
myVar = Workbooks("personl.xls").Worksheets("Tabelle1").Range("myName").Value
verkürzt schreiben, irgendwie so:
[personl.xls]Tabelle1.myName
Ich habe mit [ ] ! . rumprobiert, nix klappte :-(
Danke ^ Gruß
Reinhard
Sub tr_TestName()
Dim myVar 'As Integer
Call benannteZelleA1
myVar = Workbooks("personl.xls").Worksheets("Tabelle1").Range("myName").Value
MsgBox myVar
End Sub
Sub benannteZelleA1()
With Workbooks("personl.xls")
.Names.Add Name:="myName", RefersToR1C1:="=Tabelle1!R1C1"
.Worksheets("Tabelle1").Range("myName").Value = 17
End With
End Sub