Formel durch Formel mit variable ersetzen
11.02.2015 12:46:01
Adrian
folgendes Szenario:
im Tabellenblatt "Eingabe" können neue Projekte (zB. TestProjekt) in eine Liste eingetragen werden.
Ein Makro erzeugt dazu neue Tabellenblätter mit Preislisten zB. Preise(TestProjekt).
Die Preise werden für Verrechnungen gebraucht, die mit Verweisen auf die entsprechenden Preislisten funktionieren.
Die Verweise müssen natürlich auf die richtigen Tabellenblätter zugreifen, hierfür müssen die Verweise angepasst werden. Da ich die Projektnamen vorher nicht kenne, muss ich hier mit Variablen arbeiten.
In diesem Beispiel würde in B27 jetzt Testprojekt stehen.
In D8 befindet sich der Verweis, der den Preis aus dem Testprojekt ziehen soll.
Sub formel()
Dim Projekt3 As String
Projekt3 = Sheets("Eingabe").Range("B27").Value
Worksheets("Eingabe").Range("D8").ClearContents
Worksheets("Eingabe").Range("D8").Formula = "=VERWEIS(2;1/(Preise(" & Projekt3 & "))!$A$1:$A$ _
1995=B8);(Preise(" & Projekt3 & "))!$C$1:$C$1995)"
End Sub
Leider kommt immer ein anwendungs- oder objektdefinierter Fehler
Woran liegts?
Anzeige