Zellbezug
23.11.2012 16:02:27
Ulf
mittels VBA schreibe ich in Berechnung.xlsm eine Zelle:
Range("BV").Formula = "='Daten.xlsm'!Bauvorh"
Bezug ist OK.
danach schreibe ich Range("BV")="?"
Schließe alle Dateien, öffne nur Berechnung.xlsm .
in Range("BV") steht "?" (hab ja so gespeichert)
Schreibe ich nun
Range("BV").Formula = "='Daten.xlsm'!Bauvorh"
bezieht er sich auf die alte 'Daten.xlsm',
das will ich aber nicht, er soll eigentlich meckern wenn keine
'Daten.xlsm' geöffnet ist.
Habe es schon mal so versucht:
On Error Resume Next
Range("BV") = Workbooks("Daten.xlsm").Sheets("Eingabe").Range("BV")
Dim errnum As Integer
errnum = Err
On Error GoTo 0
If Antw = 6 And errnum = 1004 Then
MsgBox " Es ist keine Daten-Datei geöffnet! "
Exit Sub
End If
klappt nicht so richtig
Gruß
Ulf