tekst en rekenen

[damteur]

Bedankt Wigi voor de duidelijke uitleg

Bedankt Wigi voor de duidelijke uitleg.

Ik ben nog wel iets tegen gekomen wat niet zo handig is, misschien weet jij hier ook raad mee.
Hetvolgende
Als ik enkele cellen ingevoerd heb in C komt het antwoord in E
Wanneer ik onder E bijv. de bovenliggende rijen optel dan krijg ik de formule in tekst te zien.
Weet jij misschien een manier om dit aan te passen.

Bedankt,

Damteur

 

[damteur]

aanvulling op vorige reactie

Als ik na het invullen van enkele cellen c1, c2, c3 krijg ik antwoorden in e1, e2, en e3
nu wil ik deze cellen e1, e2, e3, bij elkaar optellen (dit kan ook meerdere cellen zijn)
dat komt de uitkomst in bijv e4. zat is goed alleen zet hij in cel c4, bijv. =C1+C2+C3 als tekst en dat is minder fraai

 

[Wigi]

Als ik na het invullen van enkele cellen c1, c2, c3 krijg ik antwoorden in e1, e2, en e3
nu wil ik deze cellen e1, e2, e3, bij elkaar optellen (dit kan ook meerdere cellen zijn)
dat komt de uitkomst in bijv e4. zat is goed alleen zet hij in cel c4, bijv. =C1+C2+C3 als tekst en dat is minder fraai

Dat vind ik op het eerste zicht raar. Maar morgen kijk ik er zeker naar in een bestandje en laat ik iets weten.

Wigi

 

[damteur]

Beste Wigi,

Heb je nog tijd gehad om naar mijn vraag te kijken

 

[Wigi]

Heb je nog tijd gehad om naar mijn vraag te kijken

Nope, zo snel mogelijk hoop ik.

 

[Wigi]

zo snel mogelijk hoop ik.

Zet er 1 regel bij in de juiste IF structuur:

.Value = .Value

Het wordt dan zo:

Private Sub Worksheet_Change(ByVal Target As Range)
With Target
If .Count = 1 Then
    If .Column = 3 Then
        Application.EnableEvents = False
        .Offset(0, 2) = .Value
        .Offset(0, 2) = .Offset(0, 2).Value
    ElseIf .Column = 5 Then
        Application.EnableEvents = False
        .Offset(0, -2) = .Formula
        .Value = .Value
    End If
End If
End With
Application.EnableEvents = True
End Sub

Was dit het?

Wigi

 

[Wigi]

Lukt het niet met de code Damteur?

 

[damteur]

Sorry, dat ik niet meer gereageerd heb.
Ik heb de code in blad 1 gezet, maar als ik de optelling van bijv. 2 cellen doe dan krijg ik in
cel c de formule te zien. Is er een mogelijkheid om dit weg te halen zonder dat dan de optelling verdwijnt.

 

[damteur]

Nog een probleem

als ik in cel D type =5*5 doe krijg ik het antwoord 25 in cel F dat is perfect.
Maar als ik in cel C =5*2,25*5,25, dus cijfers achter de komma/punt maakt niet uit
krijg ik deze foutcode
Private Sub Worksheet_Change(ByVal Target As Range)
With Target
If .Count = 1 Then
If .Column = 4 Then
Application.EnableEvents = False
.Offset(0, 2) = .Value ---> hier kleurt hij geel
.Offset(0, 2) = .Offset(0, 2).Value
ElseIf .Column = 6 Then
Application.EnableEvents = False
.Offset(0, -2) = .Formula
End If
End If
End With
Application.EnableEvents = True
End Sub

 

[damteur]

Antwoord zie via excel Visual basic voor juiste code

Antwoord zie via excel Visual basic voor juiste code

 

[Wigi]

Hier is de link:

http://www.helpmij.nl/forum/showthread.php?t=306271

Dat vergemakkelijkt het zoeken binnen afzienbare tijd.

Wigi