Data naar variabele en variabele naar cel

[Cor-Assa]

Beste mensen, ik probeer het een en ander met variabelen.

Zo probeer ik vaste data op te halen naar variabelen en variabelen naar cellen te verplaatsen.

Er zitten echter wat koppelingen/verwijzingen in dat voorkomt dat het goed gaat.

Ik denk dat alleen de vba code voldoet, zo niet dan hoor ik het graag.

 

Public fAanmelding1 As String
Public fAanmelding2 As String
Public fOpkomst As String
Public fCelwaarde1 As String
Public fCelwaarde2 As String

Sub Opkomst()
Dim Aanmelding As String
    
    If Sheets("Lijst").Range("O2") = "" Then
    Exit Sub
    Else
    fCelwaarde1 = "L" & Sheets("Lijst").Range("O3")
    fCelwaarde2 = "K" & Sheets("Lijst").Range("O3")
    fAanmelding1 = fCelwaarde1
    fAanmelding2 = Sheets("Lijst").Range(fAanmelding1)
        InputBox "Er zijn " + fAanmelding2 + " personen aangemeld" + Chr$(13) + _
        "Exclusief kleine kinderen" + Chr$(13) + _
        "Hoeveel personen melden zich nu aan?"
    Sheets("Lijst").Range(fCelwaarde2).Value = fOpkomst
    End If
End Sub

 

De waarde i n "O3" is variabel afhankelijk van een filter functie.

Dit geheel hoort bij een ander stukje van mij, een gastenlijst met barcode.

Zoek alleen even frisse mee denkers die het oude lijntje niet volgen.

 

Gr. Cor

[alpha]

Het doel van je exercitie is mij niet duidelijk met al dat geswitch tussen variabelen.

Zonder een bestand met gegevens is het ook moeilijk oordelen.

Wel te zeggen is dat twee zaken niet kloppen: je declareert zowel fcelwaarde1 als faanmelding1 als string en vervolgens wil je ze als range gebruiken. Dat kan natuurlijk niet.

[Cor-Assa]

Bleef zelf ook steeds rondjes draaien en kwam er niet meer uit.

Eigenlijk wil ik nu een variabele waarde in een variabele cel plaatsen.

B.v.b. nu is de variabele waarde  3 en die wil ik in de nu toevallige cel K70 plaatsen.

Dus zowel de 3 als de 70 zijn variabel, de K is vast.

Dit zonder trouwens fysiek naar cel K70 te springen.

31 maart 2018 aangepast door Cor-Assa

[Cor-Assa]

10 minuten geleden, Cor-Assa zei:

Bleef zelf ook steeds rondjes draaien en kwam er niet meer uit.

Eigenlijk wil ik nu een variabele waarde in een variabele cel plaatsen.

B.v.b. nu is de variabele waarde  3 en die wil ik in de nu toevallige cel K70 (fCelwaarde heet nu fCelRange) plaatsen.

Dus zowel de 3 als de 70 zijn variabel, de K is vast.

Dit zonder trouwens fysiek naar cel K70 te springen.

 

31 maart 2018 aangepast door Cor-Assa

[alpha]

Misschien wil je dit:

Sub macro1()
Dim mijnwaarde As Integer, mijncel As String
mijnwaarde = InputBox("Welke waarde (bv. 3)?")
mijncel = InputBox("Welke cel (bv. K70)?")
Sheets("Lijst").Range(mijncel) = mijnwaarde
End Sub

Daar horen eigenlijk ook nog opdrachten bij om te controleren of wel gegevens worden ingevoerd overeenkomstig de vraag en ook voor wat er moet gebeuren als daaraan niet is voldaan.
 

[bakerman]

Gebruik Application.InputBox dan kan je het type invoer bepalen.

Vermijd het gebruik van onnodige variabelen, het maakt je code toch maar onleesbaar.