Gennemløb af kolonner enkeltvis via en iterator som lægger 1 til

Hvad med at bruge Opslag ?

=KOLONNE(D:D) giver dig svaret 4, altså at kolonne D er nummer 4. Er det sådan noget, du skal bruge?

Det er måske et skridt på vejen. Men jeg har jo også brug for at lægge 1 til 4-tallet, og så ud fra 5-tallet returnere =KOLONNE(E:E)

Det hele skal selvsagt gøres i VBA-kode, men jeg er ikke helt klar over syntaksen for det?

for k = 1 to 5
    værdi = cells(1,kolonne)  'her ændres konnen - men via tal
next k

om igen

for kolonne = 1 to 5
    værdi = cells(1,kolonne)  'her ændres kolonnen - men via tal - rækken er 1
next kolonne

Jeg kan ikke rigtigt få dit forslag til at virke:

Sub KolonneTest()
Dim value As String
Dim kolonne As Integer

For kolonne = 1 To 5
    value = Cells(1, kolonne) 'her ændres kolonnen - men via tal - rækken er 1

MsgBox value ' Denne returnerer bare tomt

Next kolonne
End Sub

**************************************************


Jeg har også ekperimenteret med følgende, men jeg kan ikke få den til at returnere Bogstavsværdien for hvert enkelt kolonnenummer?


Sub Test()

Dim myRange As Range
Dim KolonneCounter As Integer

KolonneCounter = 2

Dim col As Range

    For Each col In Worksheets("Ark1").Columns
   
    If col.Column Mod 2 = 0 Then
        col.ColumnWidth = 4
    End If
   
    If col.Column = KolonneCounter Then
        MsgBox "hej"
        MsgBox col.Column
    End If
   
Next col
   
End Sub

Sub test()
Dim t
For t = 1 To 5
Rows(1).Columns(t).Activate
MsgBox ActiveCell.Column
Next
End Sub