Moin Leute
Ich bin wider auf ein Problem gestoßen bei dem ich hilfe brauche.
Diese Excel Formel:
INDIREKT("Messwerte!"&ADRESSE(3;2+(INDEX(Zusammenfassung!$A$8:$A$25;VERGLEICH(Werksprüfzeugnis!$A$12;Zusammenfassung!$B$8:$B$25;0))-1)*9)&":"&ADRESSE(102;2+(INDEX(Zusammenfassung!$A$8:$A$25;VERGLEICH(Werksprüfzeugnis!$A$12;Zusammenfassung!$B$8:$B$25;0))-1)*9))
brauch ich in VBA bzw. das Ergebnis der Formel.
Mein versuch sieht so aus:
ComboBox2.ListFillRange = Application.WorksheetFunction.INDIRECT("Sheet("Messwerte").Range(""& Application.WorksheetFunction.Address(3, 2 + (Application.WorksheetFunction.Index(Sheets("Zusammenfassung").Range("A8:A25"), Application.WorksheetFunction.Match(Sheets("Werksprüfzeugnis").Range("A12"), Sheets("Zusammenfassung").Range("B8:B25"), 0)) - 1) * 9) & ":" & Application.WorksheetFunction.Address(102, 2 + (Application.WorksheetFunction.Index(Sheets("Zusammenfassung").Range("A8:A25"), Application.WorksheetFunction.Match(Sheets("Werksprüfzeugnis").Range("A12"), Sheets("Zusammenfassung").Range("B8:B25"), 0)) - 1) * 9))
Den Fehler habe ich gefunden, der Teil
INDIRECT("Sheet("Messwerte").Range(""&
kann mit den ganzen Gänsefüsschen nicht funktionieren.
Aber ich weiß nicht wie ich das Problem gelöst bekomme.
Also wie bekomme ich die obrige Excel Formel in VBA Übersetzt?
Gruß
Martin