Mit "a = .UsedRange.Column + .UsedRange.Columns.Count - 1" wähle ich den letzten Eintrag in Spalten.
Mit
Dim WKto As Variant
Dim b%
b = a - 1
lese ich die Spaltennummer links neben a aus.
Mit WKto = .Cells(2, b) wird der Kontonamen ausgelesen.
Nun möchte ich in die Zelle
.Cells(5, a - 2).Formula =
nachstehende Formel eingeben:
=Buchen_7041087789!$Q2
.Cells(5, a - 2).Formula = ?
Könnt ihr mir bitte helfen.
Gruss
Peter