ich möchte im u.a. Code die "803" vairable gestalten, bzw. durch eine Variable ersetzen
strAdr = Cells(1, [k803].End(xlToRight).Column + 1).Address
Danke für euere Hilfe
Sub ttt()
Dim strAdr As String, intCol As Integer
intCol = 803
strAdr = Cells(1, Range("K" & intCol).End(xlToRight).Column + 1).Address
MsgBox strAdr
End Sub
Gruss