ich benötige wieder einmal eure Hilfe.
Mit dem nachstehenden Code ermittle bzw. markiere ich die Zelle, welche in die Formel eingebaut werden soll.
In anderer Tabelle - hier Tabelle1 Range("C6") soll eingefügt werden: = aktive Zelle aus Tabelle2 - jedoch als Formel.
Ich habe hier leider ein Problem.
Sub markiert_letzte_beschriebene_Zelle_SpalteO_02()
Dim ws As String
Dim lZ As Long
Dim s As Long
Dim aZ As Object
Sheets("Tabelle2").Select 'wechselt zu Tabelle Unterkonten
Application.Goto Reference:="test19" 'markiert gewähltes Unterkonto
With ActiveSheet
s = Selection.Column
lZ = .Cells(Rows.Count, s).End(xlUp).Row 'ermittelt letzte _
beschriebene Zelle in Spalte "s"
.Range(.Cells(lZ, s), .Cells(lZ, s)).Offset(0, 5).Select 'markiert letzte _
beschriebene Zelle in Spalte O
MsgBox Selection.Row
MsgBox Selection.Column
End With
'ws = Worksheets("Tabelle2")
Set aZ = Selection
Sheets("Tabelle1").Select
Range("C6").Select
ActiveCell.FormulaR1C1 = "=Tabelle2!R[-1]C[-1]"
End Sub
Besten Dank für eure Hilfe.
Gruss
Peter