ich möchte mit dem angefügten vba- code eine verknüpfung mit der aktivierten xls- zelle zu einer zelle in einem anderen xls- sheet realisieren. wie geht das?!!!
gruss räny.ch
Public Sub einfügen_Click()
Dim Verknuepfung As Range
ActiveCell.Value = Text.Text 'funktioniert 'Text in aktiver Zelle
ActiveCell.Offset(0, -2).Value = PosText.Text 'dito 'Positionsnummer
ActiveCell.Offset(0, 4).Formula = Worksheets("Einzelpositionen").Range("G" & (ArrPosition + 2)) 'nimmt nur Wert!!!!Verweis auf die Preiszelle nicht
'ActiveCell.Offset(0, 4).Formula = "Worksheets("Einzelpositionen").Range("G" & (ArrPosition + 2))" 'now way!
'ActiveCell.Offset(0, 4).Formula = "=A1" 'geht!!!
'ActiveCell.Offset(0, 4) = Worksheets("Einzelpositionen").Range("G" & (ArrPosition + 2))
'With Verknuepfung 'no way!
'.Worksheets
' ("Einzelpositionen").Range ("G" & (ArrPosition + 2))
'End With
'ActiveCell.Offset(0, 4) = "= Verknuepfung"
End Sub