Inhoud variabele kopiëren naar een gevonden cel

[WLos]

Goedemiddag,

Ik ben een beginnende VBA schrijver. Ik heb een macro geschreven waarbij ik een bepaalde waarde in een variabele zet (Cijfer) vervolgens ga kijken waar dat cijfer geplaatst moet worden. Die cel vind ik op het kruispunt van Magisternummer en Toetsnummer. In die bewuste cel moet de inhoud van variabele (Cijfer) worden gekopieerd. Ik krijg dit eenvoudigweg niet voor elkaar. Ik heb heel lang op internet en fora gezocht maar stel nu wanhopig toch maar de vraag: Kan iemand mij helpen? De macro gaat als volgt:

Dim Magisternummer As String
Dim Toetscode As String
Dim Laatsteregel As Integer
Dim Laatstekolom As Integer
Dim Rijnummer As Integer
Dim Kolomnummer As Integer
Dim Cijfer As Integer
Dim Invoercel As Integer
Dim r As Integer
Dim k As Integer


Magisternummer = Sheets("Invoer").Range("A2").Value
Toetscode = Sheets("Invoer").Range("B1").Value
Cijfer = Sheets("Invoer").Range("B2").Value
Laatsteregel = Sheets("Cijferlijst").Range("A1000").End(xlUp).Row
Laatstekolom = Sheets("Cijferlijst").Range("ZZ1").End(xlToLeft).Column

Sheets("Cijferlijst").Select

For r = 2 To Laatsteregel
If Cells(r, 1) = Magisternummer Then
Rijnummer = r
End If
Next r

For k = 2 To Laatstekolom
If Cells(1, k) = Toetscode Then
Kolomnummer = k
End If
Next k

Range(("Rijnummer"), ("Kolomnummer")).Value = Cijfer

Bij voorbaat dank!!

 

[Cobbe]

Wil je de code tussen tag's zetten aub
Selecteer daarvoor de gehele code en druk op #

En in de zelfde moeite post je een voorbeeldbestandje en we schieten al een heel eind op.

 

[WLos]

Sorry Cobbe,

Hier is de code:

Ik stuur ook het bestandje mee...

Dim Magisternummer As String
Dim Toetscode As String
Dim Laatsteregel As Integer
Dim Laatstekolom As Integer
Dim Rijnummer As Integer
Dim Kolomnummer As Integer
Dim Cijfer As Integer
Dim Invoercel As Integer
Dim r As Integer
Dim k As Integer


Magisternummer = Sheets("Invoer").Range("A2").Value
Toetscode = Sheets("Invoer").Range("B1").Value
Cijfer = Sheets("Invoer").Range("B2").Value
Laatsteregel = Sheets("Cijferlijst").Range("A1000").End(xlUp).Row
Laatstekolom = Sheets("Cijferlijst").Range("ZZ1").End(xlToLeft).Column

Sheets("Cijferlijst").Select

For r = 2 To Laatsteregel
If Cells(r, 1) = Magisternummer Then
Rijnummer = r
End If
Next r

For k = 2 To Laatstekolom
If Cells(1, k) = Toetscode Then
Kolomnummer = k
End If
Next k

Range(("Rijnummer"), ("Kolomnummer")).Value = Cijfer

 

[Cobbe]

Je hoeft je echt niet te verontschuldigen hoor.

Jammer maar ben de hele avond weg, zal toch wel een reactie op komen anders ben ik er morgenvroeg weer.

 

[Cobbe]

Test deze code eens:

Sub Zoek_invoercel()
'
' Zoek_invoercel Macro
'
Dim Magisternummer As String
Dim Toetscode As String

 With Sheets("Invoer")
    Magisternummer = .Range("A2").Value
    Toetscode = .Range("B1").Value
    Cijfer = .Range("B2").Value
 End With

 With Sheets("Cijferlijst")
  Set regel = .Range("A:A").Find(Magisternummer)
  Set kolom = .Range("1:1").Find(Toetscode)
   If Not regel Is Nothing Then
    .Cells(regel.Row, kolom.Column) = Cijfer
   End If
 End With

End Sub

 

[mastermindzh]

Beste Wlos,

Het meerdere keren stellen van dezelfde vraag is op Helpmij.nl niet toegestaan.
Ik sluit deze daarom en er mag (eventueel) op de volgende vraag verdergegaan worden: http://www.helpmij.nl/forum/showthread.php/900137-Inhoud-variabele-kopiëren-naar-een-gevonden-cel