ich habe nur eine kurze Frage.
Gibt es eine Möglichkeit Spalten (1,5,7) mit dem Befehl Columns(1, 5, 7).Select zu markieren?
Liebe Grüße!
Dasha
Sub SpaltenNachNummerlisteSelektieren()
SpZ = "1,5,7" 'hier würde man stattdessen ein Argument verwenden
Arr = Split(SpZ, ",")
For Each i In Arr
SpB = SpB & "," & Chr(i + 64) & ":" & Chr(i + 64)
Next
Range(Mid(SpB, 2, 999)).Select
End Sub
Sub SpaltenNachNummerlisteSelektieren()
SpZ = "27,29,53"
Arr = Split(SpZ, ",")
For Each i In Arr
j = Evaluate("=SUBSTITUTE(ADDRESS(1," & i & ",4),1,)")
SpB = SpB & "," & j & ":" & j
Next
Range(Mid(SpB, 2, 999)).Select
End Sub
Sub Beispiel()
GetColumns(1, 3, 5).Select
End Sub
Function GetColumns(ParamArray arrCol() As Variant) As Range
Dim i As Integer, rngCols As Range
For i = 0 To UBound(arrCol)
If i = 0 Then
Set rngCols = Columns(arrCol(i))
Else
Set rngCols = Application.Union(rngCols, Columns(arrCol(i)))
End If
Next
Set GetColumns = rngCols
End Function
Viele GrüßeSub Beispiel()
GetColumns(1, "E:E", 7).Select
End Sub
Function GetColumns(ParamArray arrCol() As Variant) As Range
Dim i As Integer, rngCols As Range
For i = 0 To UBound(arrCol)
If i = 0 Then
Set rngCols = Columns(arrCol(i))
Else
Set rngCols = Application.Union(rngCols, Columns(arrCol(i)))
End If
Next
Set GetColumns = rngCols
End Function