AW: Verknüpfen in Abhängigkeit von Eingabe
29.04.2004 11:35:22
Eingabe
Tja, selbst ist die Frau, mit unten aufgeführtem Code (hinter einem Button versteckt) funktioniert es. Vielleicht geht es noch eleganter?
Zusätzlich sollte auf jeden Fall noch
----------------
Private Sub Workbook_Open()
Application.ActiveWorkbook.UpdateRemoteReferences = False
End Sub
----------------
eingefügt werden, um die lästigen Selbstverknüpfungsversuche bei Öffnen der Datei zu unterbinden.
----------------
Private Sub cmbAktual_Click()
Dim sTxt As String, sTxtO As String, sTxtF As String, sTxtH As String
sTxt = "='" & Range("b3").Value 'Pfad
sTxt = sTxt & "[" & Range("B5").Value & ".xls]" 'Dateiname, ohne Endung
sTxtO = sTxt & "Objekt'!" 'Worksheet
sTxtF = sTxt & "Flächen'!" 'Worksheet
sTxtH = sTxt & "Heizwärme'!" 'Worksheet
Range("b7") = sTxtO & "D20" 'Objekt
Range("b8") = sTxtO & "D34" 'Bauherr
Range("b9") = sTxtO & "D21" 'Standort
Range("b10") = sTxtO & "D32" 'Gebäudetyp
Range("b11") = sTxtO & "D49" 'Aeb
Range("b12") = sTxtO & "D46" 'Baujahr
Range("b13") = sTxtO & "D47" 'WE
Range("b15") = sTxtH & "Q67" 'HWB
Range("f1") = sTxtF & "e7:e10"
'trägt Pfad zur Weiterverarbeitung in versteckte Zelle ein. Dort Bezug zur gewünschten Zelle mit Summenfunktion über INDIREKT und TEIL
Range("b17") = sTxtF & "E11" 'DFF
Range("b18") = sTxtF & "E12" 'Außentüren
Range("b19") = sTxtF & "E13" 'AW Luft
Range("b20") = sTxtF & "E14" 'AW G
Range("b21") = sTxtF & "E15" 'D
Range("b22") = sTxtF & "E16" 'G
End Sub
------------
Sicher nur ein Workaround, der aber erstmal funktioniert. Für Verbesserungsvorschläge bin ich dankbar.