[VBA] Columns mit Zahlen ansprechen

[codeman2001]

Moin,

ich will komplette spalten nicht mit dem spalten buchstaben, sonder mit einer zahl ansprechen.

nicht:

Columns("B:D").Select

sondern (sinngemäß):

i=2

j=4

Columns(i:j).Select

wie geht das? danke schon einmal im vorraus

gruß

[Amstelchen]

über umwege:

Public Function GetColumnName(intSpaltennummer As Integer) As String

  If intSpaltennummer <= 0 Or intSpaltennummer > Columns.Count Then

    GetColumnName = CVErr(xlVar)

  Else

    GetColumnName = Left$(Cells(1, intSpaltennummer).Address(False, False), _

      Len(Cells(1, intSpaltennummer).Address(False, False)) - 1)

  End If

End Function

und dann:

    Columns(GetColumnName(2) & ":" & GetColumnName(4)).Select

s'Amstel

[codeman2001]

dankeschön. werd ich nachher mal testen...