veld leeg maken om opnieuw te gebruiken

[Boebes]

Ik wil een optelling maken met telkens hetzelfde veld.
ik hen een bedrag, en die word bijgeteld naar een totaal bedrag.
Maar nu wil ik in hetzelfde veld weer een bedrag invullen zodat die ook weer bij het totaal bedrag bijgeteld kan worden, (wekelijks voor kassa opmaak)
hoe en met welke formule kan ik dat doen,dat zodra de som is gemaakt het eerste veld weer "leeg"gemaakt word voor een nieuwe invoer?

 

[HSV]

In moduleblad waarin van toepassing.

Private Sub Worksheet_Change(ByVal Target As Range)
 If Not Intersect(Target, Range("A1")) Is Nothing Then
  Range("B1") = Range("B1") + Range("A1")
   Range("A1").ClearContents
End If
End Sub

 

[Boebes]

hallo Harry
Bedankt voor je snelle reactie, maar ik begrijp er niets van, mijn excuses.
kun je dat herhalen in simpelere verwoording zodat deze noob dat kan begrijpen aub?

 

[HSV]

Oké, wist ik niet.

Bestandje erbij gedaan.

Druk Alt+F11
Nu zit je in de VB-editor.
Dubbelklik aan de linkerzijde op Blad1 (Blad1).
In het grote witte vlak staat de code.
Om terug te keren naar Excel? Alt+Q of Alt+F11.

 

[Boebes]

Hallo Harry
idd als ik daar ben werkt het perfect, maar hoe zet ik die code in mijn excel file??
als je de mogelijkheid hebt of wilt is het mogelijk om dit via msn af te werken??
ik ben echt super noob met dit.
msn is: boebes@hotmail.nl

 

[HSV]

Ik blijf altijd op het forum werken.
Hebben andere zoekers er ook iets aan.

Zet je bestandje hier neer (zonder gevoelige info).

Ik ga nu naar de bios met m’n vrouw, maar kijk later wel weer.
Misschien ben je in de tussentijd al wel geholpen.

 

[Cobbe]

Hier staat een filmpje hoe dat in zijn werk gaat.

http://www.mijnbestand.nl/Bestand-8B68NRY33BJT.wmv

 

[HSV]

Ha, ha, echt gaaf Cobbe,.
Zoiets zou ik ook wel eens willen maken. :thumb::thumb:

 

[Boebes]

Alvast bedankt heren voor uw hulp.
maar ik ga nu eerst even oefenen en proberen om met jullie zeer zeker hulpvaardige linken en filmpje om het nu zelf voor elkaar te krijgen.
Geef mij aub eeb paar dagen oefentijd.
Ik kom hier binnen 3 dagen op terug, ook als het wel gelukt is!!
alvast bedankt voor jullie inzet, dat waardeer ik enorm

 

[Boebes]

Hallo heren
Nogmaals bedankt voor jullie hulp, ik heb het voor elkaar gekregen dank zij jullie!!
Super!!!
Maar......
Nu wil ik die formule 2 keer in hetzelfde blad toepassen kan dat??
Ik zal een bestandje erbij zetten en wat getalletjes invullen.
nieuw probleem ik heb een xlsm bestand wat wel is toegestaan, maar met uploaden gebeurt er niets.
Maar goed blijft mijn vraag...
kan ik dezelfde formule 2 keer gebruiken binnen hetzelfde bestand?
Alvast bedankt voor alle hulp

 

[Boebes]

Ok jammer dat er nog geen reactie is op mijn vorige vraag, maar je met de feestdagen kan het er zeker wat bij inschieten.
dus aub is het mogelijk om die formule 2 keer in hetzelfde blad te gebruiken??

 

[Cobbe]

Je spreekt van een formule maar ik zie geen formule of heb je het over de code die je van HSV gekregen hebt?

Je kan je bestand hier uploaden:

http://www.mijnbestand.nl/

 

[HSV]

Probeer deze maar eens (gemakkelijk uit te breiden).

Private Sub Worksheet_Change(ByVal Target As Range)
 If Not Intersect(Target, Range("A1,A3")) Is Nothing Then
   With Application
    .EnableEvents = False
    
  Select Case Target.Address
    Case "$A$1"
       Range("B1") = Range("B1") + Target.Value
       Range("A1").ClearContents
    
    Case Is = "$A$3"
       Range("B3") = Range("B3") + Target.Value
       Range("A3").ClearContents
  End Select
    .EnableEvents = True
   End With
  End If
End Sub

 

[Boebes]

Geweldig!!!!
ik weet niet hoe ik jullie jou moet bedanken, ik hoop dat ik ooit intelegent genoeg ben om andere mensen zo te kunnen helpen!!
Ik ga deze even proberen en als ik hem snap, lijkt me inmiddels wel bedank ik je nogmaals en beeindig ik deze vraag.

 

[Boebes]

Hallo heren vooral Harry
Werkt grandioos, helemaal perfect zelfs voor zo een noob als mij!!
nogmaals bedankt voor alle hulp!!!

 

[HSV]

Graag gedaan Boebes, en bedankt voor je reactie. :thumb: