Live-Forum - Die aktuellen Beiträge
Datum
Titel
26.09.2025 08:51:00
Teilinhalt einer Zelle vergleichen
25.09.2025 23:04:12
Einen von drei möglichen Einträgen in einer Zeile suchen
25.09.2025 19:59:48
Lebenserleichternde Datei, im Bezug auf die Essensauswahl
25.09.2025 16:01:26
VBA - Laufzeitfehler 9105 zu viele Zeichen 255
Keine passende Antwort im Forumarchiv gefunden?
Stelle deine Frage im Live-Forum
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1192to1196
1192to1196
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Codezeile verkürzen

Forumthread: Codezeile verkürzen

Codezeile verkürzen
Reinhard
Hallo Wissende,
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
Anzeige

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Benutzer
Anzeige
AW: Codezeile verkürzen
09.01.2011 13:01:42
Tino
Hallo,
versuch es mal so.
myVar = Range("'[personl.xls]Tabelle1'!myName").Value
oder so
myVar = ['[personl.xls.xls]Tabelle1'!myName].Value
Gruß Tino
AW: Codezeile verkürzen
09.01.2011 13:51:57
Reinhard
Hallo Tino,
danke, die erste Variante geht schon mal, die zweite nicht, 424, Objekt erforderlich. 
Sub tr_TestName()
Dim myVar1 As Integer, myVar2 As Integer, myVar3 'As Integer
Call benannteZelleA1
myVar1 = Workbooks("personl.xls").Worksheets("Tabelle1").Range("myName").Value
myVar2 = Range("'[personl.xls]Tabelle1'!myName").Value
'myVar3 = ['[personl.xls.xls]Tabelle1'!myName].Value
'Set myVar3 = ['[personl.xls.xls]Tabelle1'!myName]
MsgBox myVar1 & vbCr & myVar2 & vbCr & myVar3
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

Gruß
Reinhard
Anzeige
ein .xls zu viel
09.01.2011 13:54:45
Tino
Hallo,
da hat sich ein .xls zu viel reingeschlichen, sorry.
So soll die Zeile ausehen.
myVar = ['[personl.xls]Tabelle1'!myName].Value
Gruß Tino
Aargs
09.01.2011 14:03:39
Reinhard
ich Blindfisch *schäm* :-)
Klasse Tino,
jetzt klappt es.
Gruß
Reinhardf
;

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige