[excel-vba] vba ranges en cellen

[Tom-my]

Is het mogelijk om ipv bij een range de .cell property te nemen met een colomNAAM ipv de colom nummer?

Ik heb namelijk het probleem dat iemand met de kolommen in mn excel sheet rommelt, waardoor ik nu met mijn coden iet meer uit kom (die staat een regel of x te veel naar rechts ipv waar het hoort te staan).

Dit had ik:

code:

 With Worksheets("Blad1").Range("ac1:ac20000")
       Set r = .Find(fstr)
       If r Is Nothing Then
          check = false
       Else
          rownummer = Trim(Str(r.Row))
          If (Len(.Cells(rownummer, 26).Value) = 6 And (leverancier = 22)) Then
             checkRegel = true           
             If Trim(fprijs) <> "" Then
                .Cells(rownummer, 30).Value = CCur(fprijs)
             End If
          End If
       End If
     End With

Hij zoekt dus op een bepaalde string in de kolom AC en moet indien gevonden iets veranderen in kolom nummer 30 (wat vroeger AI was en eigenlijk zou moeten zijn). Hoe kan ik dat nu gewooon in kolom AI krijgen zonder dat hij nu kolom BX ofzo verandert.

[Lustucru]

Haal die punten voor .Cells eens weg... Nu zijn alle verwijzingen relatief tov ac1:ac20000.