VBA: Loop på kolonner

Prøv at kigge her:
http://www.kursusmaterialer.dk/Excel%20VBA/Excel%20VBA%20-%20kode/Værktøjskasse.aspx

Jeg plejer at have et bogstav-array liggende, som jeg smider ind i starten af koden.

ColName("A","B","C"...)

for i = 1 to AntalKolonner

range(ColName(i) &"1").select

next i

Prøv denne her...
------------------


Public Sub colLoop()

Dim startCol As Integer
Dim endCol As Integer
Dim startRow As Integer
Dim endRow As Integer
Dim i As Integer
Dim j As Integer

startCol = 1
endCol = 5
startRow = 1
endRow = 5

For i = startCol To endCol
    For j = startRow To endRow
        With Sheets(1)
            .Range(Cells(j, i), Cells(j, i)) = i * j
        End With
    Next j
Next i



End Sub

-----------------

'i * j' kan erstattes med det som du gerne vil udføre i hver celle.

Eller lidt mere elegant...
------------
Public Sub colLoop2()

Dim rng As Range
Set rng = Range("A1:E5")

For Each c In rng
    c.Value = 2
Next

End Sub
-------------------

Nemmest må vel være:

For Each c In ActiveSheet.Columns("A:F")
>Din kode her<
Next c

Definer dit range til de kolonner, du vil gennemløbe.