Hallo,
ja, das ist wenn ein Laie mit einem Profi über Mail kommuniziert :-)
Ich versuchs nochmal als Laie zu erklären. Ich beziehe aus einer Combobox alles Zahlen (für Spalten und Zeilen) sowie ein Tabellenname (Text).
Da ich aus der Combobox für die Spalten Zahlen erhalte, scheint mir die A1 Schreibweise ungeeignet, aber vielleicht kenne ich mich einfach zu wenig aus.
Diese Werte sollen in eine sverweis-Formel. In der sverweis-Formel werden diese Werte in einer Variable "hinterlegt". Die Werte sind deshalb in einer Variablen hinterlegt, da ich später die Werte und somit die Formel verändern muss, um sie wiederum in einem anderen Zellenbereich zu verwenden.
Nun sollen aber alle Bezüge absolut sein, da ich die selbe sverweis-Formel schlussendlich in einen ganzen Bereich hineinkopieren möchte.
Ich habe dies mit untenstehendem Makro nochmals versucht. Die Msg.Box scheint die korrekte Formel auszugeben. Es erscheint jedoch eine Fehlermeldung bei "Range("B1") = strPA", d.h. das Makro kann die Formel der Zelle nicht zuordnen.
Es wäre sehr nett, wenn mir jemand einen Tipp oder sogar die Lösung zum Problem geben könnte.
Beste Grüsse,
Jörg
Option Explicit
Sub AbsoluteBezüge2() '2.10.2013 14:00h
Dim a As Long
Dim b As Long
Dim c As Long
Dim d As Long
Dim x As String
Dim e As Long
Dim VergleichsspalteBis As Long
Dim f As Long
Dim Keyspalte As Long
Dim Spaltenindex As Long
Dim strPA As String
'Ziel ist folgende sverweis-Formel in Zelle B1: =SVERWEIS($A$1:$A$5;'Tab1'!$A$1:$B$5;2;0)
'Suchkriterium: A1:A5
a = 1 '1
b = 1 'A
c = 5 '5
d = 1 'A
'Tabelle: Tab1
x = "Tab1" 'von 1. Tabelle
'Matrix: A1:B5
e = 1
Keyspalte = 1 'A
f = 5
VergleichsspalteBis = 2 'E
'Spaltenindex: 2
Spaltenindex = 2 'B
Sheets("Ziel").Select
strPA = "=VLOOKUP(R" & a & "C" & b & ":R" & c & "C" & d & "," & x & "!R" & e & "C" & Keyspalte & ":R " & f & "C" & VergleichsspalteBis & " ," & Spaltenindex & ", 0)"
MsgBox strPA '=VLOOKUP(R1C1:R5C1,Tab1!R1C1:R5C2,2,0)
Range("B1") = strPA
End Sub
|