Hi,

ich habe einen Datensatz in einem Excelfile und willdie Spalten mit den Achsen tauschen.

Dafür will ich bestimmen wie viele Spalten und Zeilen der Datensatz hat.

Danach will ich bestimmen ob die Anzahl der Spalten oder Zeilen größer ist.

Mit dem größeren  der beiden Wertem wil ich dann den quadaratischen Bereich im File auswählen, das klappt leider nicht. 

Könnt ihr mir da helfen ?

Dim x, y As String
  
  x = ActiveCell.SpecialCells(xlLastCell).Column
  y = ActiveCell.SpecialCells(xlLastCell).Row
  
Dim z As String
  
  If x < y Then y = z
  If y < x Then x = z
    
    
  Range("z:z").Select