Waarde uit een samengestelde cel halen via VBA

[jantoedeledoki]

Door middel van twee ComboBoxen lukt het mij om een cel samen te stellen.
Dit doe ik met behulp van onderstaande code op blad1:

Private Sub ComboBox2_Change()
Dim SnijSnelheidKolom As String
Dim SnijSnelheidRij As String
Dim SnijSnelheid As String
'Dim TotaalSnijSnelheid As Long

SnijSnelheidKolom = Range("A6").Value
SnijSnelheidRij = Range("B6").Value
SnijSnelheid = SnijSnelheidKolom & SnijSnelheidRij
Range("A7") = SnijSnelheidKolom
Range("B7") = SnijSnelheidRij
Range("C8") = SnijSnelheid

End Sub

Laten we als voorbeeld nemen dat in C8 nu de tekst "B5" staat.

Nu wil ik uit de cel B5 op blad2 de waarde halen en deze plaatsen in cel B3 op blad 1.

Ik dacht dit te kunnen bereiken met:

Range("B3") = Blad2.Range("SnijSnelheid").Value

Helaas is dit blijkbaar niet de methode.

Wie kan mij helpen?

 

[edmoor]

Plaats een voorbeeld documentje.

 

[AHulpje]

Hm, vreemde constructie, maar probeer het eens met

[COLOR=#333333]Range("B3") = Blad2.Range(SnijSnelheid).Value[/COLOR]

Snijsnelheid is een string met de waarde "B5", dus Range(Snijsnelheid) is hetzelfde als Range("B5")
Overigens mis ik nog de aanzet en de snedediepte.

 

[jantoedeledoki]

Misschien een vreemde constructie, maar het doel is bereikt:thumb:

Het is uiteindelijk onderstaande geworden

Private Sub ComboBox2_Change()
Dim SnijSnelheidKolom As String
Dim SnijSnelheidRij As String
Dim SnijSnelheid As String

SnijSnelheidKolom = Range("A2").Value
SnijSnelheidRij = Range("B2").Value
SnijSnelheid = SnijSnelheidKolom & SnijSnelheidRij
Range("B3") = Blad2.Range(SnijSnelheid).Value

End Sub

Ik sta open voor betere suggesties
En het kan idd altijd uitgebreid worden, maar voorlopig heb ik hier even genoeg aan (conventioneel hobbyist)

 

[AHulpje]

Zonder macro, met een formule, op Blad1 in cel B3:

=INDIRECT("Blad2!" & Blad2!A6&Blad2!B6)

 

[jantoedeledoki]

Ik wil afhankelijk zijn van twee ComboBoxen, dus vandaar mijn stukje VBA.

 

[AHulpje]

Die comboboxen kun je blijven gebruiken, schakel de code maar eens uit en probeer de formule.

 

[jantoedeledoki]

Werkt idd.
Hoe simpel kan het zijn, je moet het alleen even weten:d
Ik moest er in mijn geval dit van maken:

=INDIRECT("Blad2!" & A2&B2)