Pfad und Dateiname in FormulaLocal

Hallo,
folgenden Codeteil bringe ich nicht zum funktionieren:
wksAus.Range("B5:P21").FormulaLocal = "='" & wksAus.Range("$A$1") & "\" & wksAus.Range("B$3").Value & "\[" & wksAus.Range("$A5").Value & "]Jahresübersicht'!" & wksAus.Range("B$2") & ""
1.) Der erste Teil des Pfades soll aus der Zelle $A$1 ausgelesen werden.
2.) In B$3 steht der Ordnername (Spalte B ist veränderbar).
3.) In $A5 steht der Dateiname.xls (hier ist die Zeilennummer veränderbar).
4.) In B$2 steht die Zelladresse, z.B. $A$5 (Spalte B ist veränderbar). Das heißt, in C$2 steht z.B. $A$6 usw.
Wenn ich den Code laufen lasse wird in der Zelle B5 die richtige Formel eingetragen.
Allerdings wird beim Weiterkopieren die Formel 1:1 in alle Zellen eingetragen, d.h. die spaltenweisen und zeilenweisen Änderungen werden nicht übernommen und so steht in allen Zellen das gleiche Ergebnis.
Besten Dank für die Hilfe und Servus, Walter

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hi
das Konzept absoluter/relativer Zellbezug funktioniert nur in Excelformeln und nicht in VBA.
Der Range-Funktion ist es vollkommen egal, ob du Range("A1") oder Range("$A$1") verwendest, es wird immer der Wert aus der Zelle A1 gelesen.
der Workarund wäre hier folgender:
1. Erstelle die Formel mit dem externen Zellbezug zunächst nicht direkt als Formel, sondern als Formel, die einen Text erstellt, der aussieht wie die spätere Formel. Innerhalb dieser Texterstellungsformel kannst du dann die relativen Zellbezüge verwenden.
2. Ersetze dann die Textformeln durch ihren Wert mit .Formula = .Value, das ist für Excel wie eine Neueingabe und es wird die Formeln berechnen.

With wksAus.Range("B5:P21")
.Formula = "=""='""&$A$1&""\""&B$3&""\[""&$A5&""]Jahresübersicht'!""&B$2"
.Formula = .Value
End With

Beachte hierbei, dass der Text immer in der .Formula-Schreibweise geschrieben werden muss (A1-Bezüge mit englischen Funktionsnamen und dem Komma als Parametertrennzeichen, ist hier aber egal, weil sich bei einfachen Bezügen deutsche und englische Schreibweise nicht unterscheiden)
Gruß Daniel

Sub aaa() Dim z As Long, s As Long Dim a(5 To 21, 2 To 16) With wksAus For z = 5 To 21 For s = 2 To 16 a(z, s) = "='" & .Cells(1, 1) & "\" _ & .Cells(3, s) & "\[" _ & .Cells(z, 1) & "]Jahresübersicht'!" _ & .Cells(2, s) Next s Next z .Range("B5:P21").FormulaLocal = a End With End Sub

Beliebteste Forumthreads (12 Monate)

Pfad und Dateiname in FormulaLocal

5
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

300 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Pfad und Dateiname in FormulaLocal

5 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)

5
Beiträge zum Forumthread

Beiträge zu diesem Forumthread