ich habe folgendes Problem: Eine Arbeitsmappe "xy". In dieser steht der betreffende Code. (Ich nenne Sie "xy", da der Dateiname vom Benutzer erst beim Arbeiten festgelegt wird.) In dieser Mappe "xy" befindet sich u.a. Tabellenblatt "Übersicht", "Grundrezept". Die Zelle "I35" in "Grundrezept" enthält einen Wert, der in eine andere Arbeitsmappe "# Rohstoffliste.xls" an das Ende einer fortlaufende Tabelle übertragen werden soll. Dieser Wert soll jedoch so übertragen werden, dass bei jeder Änderung in "xy" der Wert in "# Rohstoffliste.xls" auch geändert wird. Demnach soll in der Zelle in "# Rohsoffliste.xls" stehen:
='C:\[Grundrezept xy.xls]Grundrezept'!I35
Jetzt komme ich zu dem schwierigen Teil: Denn diese Zeile setzt sich aus verschieden Teilen zusammen. Zur besseren Übersicht folgen die Teile untereinander:
='
Sheets("Übersicht").Range("B70").Value
[Grundrezept_
TextBox1.Value
.xls]Grundrezept'!I35
Wenn ich nun aber den Code dafür schreibe, hängt er immer an dieser langen Zeile und gibt Fehlermeldung. Ich habe dann versucht den Code nach und nach aufzubauen.
1. "='" funktioniert nicht
2. "=" funktioniert
3. ("'") funktioniert
4. "=" & "("'") funktioniert nicht.
schon da komme ich nicht weiter. Was mache ich falsch? Bitte helft mir.
Hier der Code:
Workbooks.open("# Rohstoffliste.xls")
Dim z As Range
With Workbooks("# rohstoffliste.xls")
Set z = Range("b65536").End(xlUp).Offset(1, 1)
z.Offset(0, -2) = "GR " & TextBox1.Value
z.Offset(0, 1) = "='" & Sheets("Übersicht").Range("B70").Value & "[Grundrezept " & TextBox1.Value & ".xls]Grundrezept'!I35"
Set z = Nothing
End With
Vielen Dank und Grüße
Alex