VBA in Excel

[Carlos_ai]

Hallo.

Ik heb een warschijnlijk zeer eenvoudige vraag.
Ik wil in VBA in excel waarden wegschrijven naar bepaalde cellen in een worksheet.

Het probleem hierbij is dat ik variabel wil kunnen verwijzen naar de kolom en rij combinatie (cel) . Want de ene keer is de kolom 6 (F) en de andere keer 7 (G).

Met een teller kan ik bijvoorbeeld een loopje maken om in kolom 1 t/m 6 in rij 1 iets te schrijven. Maar hoe maak ik de koppeling van een kolomnummer naar de letters die excel gebruikt?

Het zou iets moeten zijn als :
ActiveWorkbook.Worksheets(mstrSourceSheet).Range(lngSourceRow, lngSourceColumn) = "x"

Alvast bedankt!!

 

[peppie0102]

Verwijzing naar cel

Volgens mij moet het zo:

Range("A5").Select
ActiveCell.FormulaR1C1 = "test"

Dus met Range("A5".Select, selecteer je cel A5
met ActiveCell.FormulaR1C1 = "test" zet je de waarde test (of wat anders uiteraard) in de actieve cel.

Wil je met een variabele werken, doe je bijvoorbeeld:
Sub naam()

Dim kolom As String
Dim rij As Integer
Dim celwaarde As String

kolom = "A"
rij = 1

Do While (rij <= 6)
celwaarde = kolom & rij
Range(celwaarde).Select
ActiveCell.FormulaR1C1 = "test"
rij = rij + 1
Loop

End sub

Deze code vult cel A1 t/m A6 met de waarde test.

 

[HansVi]

Sub naam()

Dim kolom As Integer
Dim rij As Integer
Dim celwaarde As String

kolom = 3
rij = 1

Do While (rij <= 6)
ActiveSheet.Cells(rij, kolom).value = "test"
rij = rij + 1
Loop

End Sub

 

[antokong]

verwijzen naar kolomletters

En wat dacht je van deze:

sub Testkollet

range(kollet(3)+"4") = "EenTekstje" 'zet tekstje in Cel C4
end sub

Public Function kollet(a As Long) As String

If a <= 26 Then
kollet = Chr((a - 1) Mod 26 + 65)
Else
kollet = Chr((a - 1) \ 26 + 64) + Chr((a - 1) Mod 26 + 65)
End If
End Function