Alle waardes optellen uit een (1) invoerveld

[asenrene]

Geachte lezers graag zou ik een formule maken die alle aantallen bij mekaar opteld uit 1invoercel.

Of misschien de zelfde cel is ook goed

Voorbeeld B1 is de invoer cel waar ik getallen invoer bv 20 daarna 35 of zo dat dan in cel C1 de uitkomst staat in dit geval 55
De getallen zijn willekeurig en worden steeds in veld b1 ingevoerd

Hoop op jullie antwoord

Gr René

 

[popipipo]

Als er slechts 2 getallen in de cel staan die gescheiden worden door een spatie zou je deze formule kunnen gebruiken (evt vertalen naar Ned):

=LEFT(B1;FIND(" ";B1)-1)+RIGHT(B1;LEN(B1)-FIND(" ";B1))

 

[asenrene]

Bedankt voor je snelle antwoord,
Misschien was ik niet helemaal duidelijk,

Hoop zo beter

Het gaat er niet om dat er twee getallen in dezelfde cel staan maar er is ieder keer in de zelfde cel een willekeurig getal dus cel b1 = invoer 80 optellen in c1, dan nieuwe invoer cel b1 bijv 60 dan optellen c1 uitkomst c1 is dan 140 enz,enz,

Of een formule die in cel alles opteld popipipo het is voor een barcodescanner,
De formule is voor als je twee indentieke item scanned waarvan de waarde anders is

Gr rene

 

[HSV]

Dat kan alleen met Vba achter het desbetreffende blad.

Bv.

Private Sub Worksheet_Change(ByVal Target As Range)
With Target
 If .Address = "$B$1" Then .Offset(, 1) = .Offset(, 1) + Target
End With
End Sub

Onderstaande is iets robuuster mocht je per ongeluk een letter invoeren.

Private Sub Worksheet_Change(ByVal Target As Range)
Application.EnableEvents = False
On Error Resume Next
 With Target
   If .Address = "$B$1" Then .Offset(, 1) = .Offset(, 1) + Target
   If Err.Number <> 0 Then Application.Undo
   On Error GoTo 0
 End With
Application.EnableEvents = True
End Sub

 

[asenrene]

nog beter

Beste Harry,
Dank je wel voor je input dit is zelfs nog beter omdat het programma geschreven is voor de barcodescanner.
En ik dus geen extra cel hoeft te creëren op de sheets.
Hartstikke bedankt.
zet ik deze info in de userform of op de worksheet Harry.

 

[asenrene]

harry kun je mij misschien ook uitleggen hoe ik in deze code die hieronder staat.
De gewenste data opslag verander naar een andere cel.

Bijvoorbeeld in de code hieronder slaat hij de gescande items op in rij (H) en ik dit dan in rij (k) zo willen veranderen.
dit zou ik graag willen voor als er in de toekomst meer info bijkomt.

        Found.Offset(, BarCode2Quantity) = CDbl(tbxQty)
    Else

Ik weet namelijk niet de betekenis van het woord CDbl

 

[HSV]

Deze code is voor een verandering van cel B1 op het werkblad.

Als je de invoer via een Userform doet moet je even het bestandje plaatsen zodat we kunnen zien welke controls erop staan.

Ga met de cursor op "CDbl" staan en druk F1, beter kan ik het niet uitleggen.

 

[asenrene]

Dank je wel Harry

 

[asenrene]

Oplossing optellen

Beste harry het optellen gaat prima,
Alleen nog twee vragen.
Als ik dit over alle cellen wil laat zeggen B1 tot B300 hoe is de formule dan?
Nu werkt dit alleen in de eerste formule B1.
hoop snel wat van je te horen.

Gr Rene

Private Sub Worksheet_Change(ByVal Target As Range)
Application.EnableEvents = False
On Error Resume Next
With Target
If .Address = "$B$1" Then .Offset(, 1) = .Offset(, 1) + Target
If Err.Number <> 0 Then Application.Undo
On Error GoTo 0
End With
Application.EnableEvents = True
End Sub
[/CODE]

 

[HSV]

Doe net de Pc aan.

Is dit snel genoeg?
Voor geheel kolom B.

Private Sub Worksheet_Change(ByVal Target As Range)
Application.EnableEvents = False
On Error Resume Next
 With Target
   If .Column = 2 Then .Offset(, 1) = .Offset(, 1) + Target
   If Err.Number <> 0 Then Application.Undo
   On Error GoTo 0
 End With
Application.EnableEvents = True
End Sub

 

[asenrene]

Dat is snel

Pefect harry en super snel
echt geweldig.
gr Rene