OFFSET Eigenschaft
meixner
habe ein Problem mit dem unteren Makro. In sheets(2).range("C:C") wird der RIC Aktie gesucht und dann in Sheets(4).range("A12") eingetragen. Mein Problem ist, dass ich möchte das der Wert, der sich zwei Spalten weiter von sheets(2).range("C:C") also in Spalte A befindet auch in Sheets(4).range("b12") eingetragen werden soll. Nur irgendwie klappt das nicht mit dem unteren Makro. Ich bekomme die Fehlermeldung. Laufzeitfehler 438. Objekt unterstützd die Eigenschaft oder Methode nicht.
Vielen Dank im Voraus für Tips.
Dani
Sub Austausch()
Dim RICAktie As String
RICAktie = InputBox("Bitte RIC Aktie eingeben:", "Dateneingabe:")
With Workbooks("Template BZR in Arbeit.xls")
If Not .Worksheets(2).Range("c:c") _
.Find(What:=RICAktie, LookAt:=xlPart) Is Nothing Then
.Worksheets(1).Range("p8") = RICAktie
.Worksheets(4).Range("A3") = RICAktie
.Worksheets(4).Range("b12") = Worksheets(2).Offset(-2, RICAktie) (HIER IST DAS Problem)
.Worksheets(4).Range("A12") = RICAktie
Else
MsgBox "Die Aktie ist nicht vorhanden bzw. die Eingabe wurde abgebrochen!", _
vbCritical, "Nur Zahlen eingeben!"
End If
End With