Hallo Otto,
also ehrlich gesagt ist mir nicht so ganz klar, was du eigentlich willst. Da wäre eine genauere Beschreibung nötig.
Mal was Grundsätzliches:
x = ActiveCell.SpecialCells(xlLastCell).Column
ergibt die Spaltennummer als Ganzzahl, dann sollte die Variable x aber auch als Long oder Integer und nicht als String Dim(ensioniert) sein.
Das gleiche gilt für die Variablen y und z
Vielleicht willst du ja folgendes erreichen:
Public Sub Markieren()
Dim x As Long
Dim y As Long
Dim z As Long
x = Cells(ActiveCell.Row, Columns.Count).End(xlToLeft).Column
y = Cells(Rows.Count, ActiveCell.Column).End(xlUp).Row
If x <= y Then z = y
If y <= x Then z = x
Range(Cells(ActiveCell.Row, ActiveCell.Column), Cells(z, z)).Select
End Sub
Gruß Werner
|