[Excel/VB] Hoe in Excel user input gebruiken met macro's?

[Verwijderd]

Even wat een duidelijkere uitleg: Ik heb een excel databeestje met 365 records. In de kolom '#' staat een key-value van 1 t/m 365. Nu is het mijn bedoeling dat ik d.m.v. een macro/vb met een klik op de knop een key-value kan opgeven, waarmee excel het betreffende record opzoekt en dan in deze rij bij de cel in de kolom 'Aantal' de waarde met 1 verhoogt. Verder dan het volgende kom ik helaas niet:

Sub Macro1()
'
' Macro1 Macro
' De macro is opgenomen op 14-8-2002 door Johan.
'

'
Range("F5").Select
ActiveCell.FormulaR1C1 = ActiveCell.FormulaR1C1 + 1
End Sub

Help?

[Verwijderd]

Ga eens op zoek naar "verticaal zoeken" in de help.

VERT.ZOEKEN om precies te zijn.

[Verwijderd]

bedankt voor je reply, maar waardes van een record uit een bepaalde kolom halen lukt me wel.. het gaat er dus om dat ik die waarde in de kolom Áantal' wil verhogen met 1.

[Skinny]

als je kolom met key-values gewoon op "A1" begint, dan kan je iets doen als

code:

Nummer = Cint(Inputbox("Nummer ?"))
ActiveSheet.Range("A" + trim(str(Nummer))).value =  ActiveSheet.Range("A" + trim(str(Nummer))).value +1

Anders is hier de uitgebreide versie

code:

Sub Ophogen()

Nummer = CInt(InputBox("Welk nummer ?"))

Dim Sheet 'Sheet waar het allemaal gebeurd
Dim StartCel 'Dit is dus de eerste cel van de kolom met key-values

Sheet = "Blad1"
StartCel = "A1"

Sheets(Sheet).Range(StartCel).Select

Do While CInt(ActiveCell.Value) > 0

    If CInt(ActiveCell.Value) = Nummer Then
        'Ophogen van de waarde in de kolom ernaast (offset = 0,1)
        ActiveCell.Offset(0, 1).Value = ActiveCell.Offset(0, 1).Value + 1
        'Begincel selekteren
        Sheets(Sheet).Range(StartCel).Select
        Exit Do
    End If
    
    'Volgende rij (offset = 1,0)
    ActiveCell.Offset(1, 0).Select
    
Loop

End Sub

Meer uitleg over de code ga ik niet geven... dat is jouw missie

[Verwijderd]

Thanks man! Dit is precies wat ik nodig ben

[Verwijderd]

Helemaal mee eens