Ga naar inhoud

Data naar variabele en variabele naar cel


Cor-Assa
 Delen

Aanbevolen berichten

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

Link naar reactie
Delen op andere sites


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.

Link naar reactie
Delen op andere sites

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.

aangepast door Cor-Assa
Link naar reactie
Delen op andere sites


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.

 

aangepast door Cor-Assa
Link naar reactie
Delen op andere sites

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.
 

Link naar reactie
Delen op andere sites


 Delen

×
×
  • Nieuwe aanmaken...