Ich habe ein Problem in einem VBA Code und zwar soll in eine Zelle der absolute Wert (also nicht der negative, der aktuell drin steht) eines anderen Tabellenblatts importiert werden. Am Anfang des Codes funktioniert die Formel als Wert6 = Abs(TbI.Cells(x,11).Value) auch noch, hinten dran wenn er den Wert kopieren soll, aber nicht mehr. Viele Dank im Voraus! Anbei der Code:
Sub Aktien_entf()
Dim TbI, TbA, LetzteZeileI As Long, LetzteZeileA As Long
Dim x As Long, Wert, Wert2, Wert3, Wert4, NextRow As Long
Dim Wert5 As Variant
Set TbI = Worksheets("Input")
Set TbA = Worksheets("Aktien")
Set TbW = Worksheets("Input Währung")
Set LookupRange = Worksheets("Input Währung").Range("B3:C23")
LetzteZeileI = TbI.Cells(TbI.Rows.Count, 1).End(xlUp).Row
LetzteZeileA = TbA.Cells(TbA.Rows.Count, 1).End(xlUp).Row
LetzteZeileB = TbA.Cells(TbA.Rows.Count, 2).End(xlUp).Row
For x = 2 To LetzteZeileI Step 1
For y = 2 To LetzteZeileA Step 1
Wert = TbI.Cells(x, 10).Value
' Wertpapierart Input
Wert2 = TbI.Cells(x, 11).Value
' Quantität Input
Wert3 = TbI.Cells(x, 7).Value
' BBG Ticker Input
Wert4 = TbA.Cells(y, 8).Value
' BBG Ticker Aktien
Wert5 = TbA.Cells(y, 5).Value
' Stückzahl Aktien
Wert6 = Abs(TbI.Cells(x, 11).Value)
' Betrag Quantität Input
Wert7 = TbI.Cells(x, 3).Value
' Datum Input
If Wert3 = Wert4 And TbA.Cells(y, 3).Value = "offen" And Wert = "EQUITIES" And Wert2 Wert6.Copy Destination:=TbA.Cells(y, 5)
' Füllt die Stückzahl ein
End If
Next y
Next x
End Sub
Der Debugger sagt "Objekt erforderlich" und wenn man direkt die Adresse eingibt: Fehler beim Kompilieren: Erwartet: Bezeichner