Tekst met getallen en uitkomst in andere cel

Status
Niet open voor verdere reacties.
D

damteur

Gebruiker
Lid geworden
11 feb 2006
Berichten
134
In excel wil ik dat er in de ene cel type bijv. =5,25*6 bijv. (en deze tekst blijft staan) en in de andere cel het antwoord komt te staan dus 31,5

Destijd is er iets opgezet, maar dit werkte alleen met gehele getalen en niet met alle getallen, weet iemand hier een oplossing voor.

Hierbij het voorbeeld en waar dat hij een foutcode aangeeft
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
Code: 
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     [SIZE="3"]Hier kleurt uit geel[/SIZE]  
.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
 
Laatst bewerkt door een moderator:
Bij mij lukt het anders wel.

Zie bijlage voor als je er iets aan zou hebben.

Wigi
 

Bijlagen

  • formules.zip
    5,9 KB · Weergaven: 32
bedankt voor je reactie.

Het klopt dat dit werkt, maar ik zou graag dat in kolom D de tekst komt te staan
dus bijv. =5,25*6 als tekst laten zien en antwoord 31,5, daarom had ik in kolom D
de eigenschap verandert naar tekst, maar dan krijg ik dus die foutcode
 
Hang jij ook maar je bestand bij, want ondertussen heb je in de vraag ook al over kolom C gesproken (misschien is dat een typo).

Plus een duidelijke uitleg van wat in welke kolom komt te staan en op welke manier de kolommen opgemaakt moeten worden.
 
vb bestandje

De opmerkingen heb ik erbij gezet bij de cel.
 

Bijlagen

  • voorbeeld bestand.zip
    12 KB · Weergaven: 16
Reactie op jouw bestand formule

als ik dit bestand open krijg ik 2x bijv. in D11 en F11 de waarde 59,0625 te zien
terwijl de bedoeling is dat D11 te zien krijg =5*2,25*5,25
Ik weet niet hoe jij het anders ingesteld hebt dat jij dit wel te zien krijgt?
 
Kolom D op tekst zetten en dan deze code gebruiken.

Code: 
Private Sub Worksheet_Change(ByVal Target As Range)
    With Target
        If .Count = 1 Then
            If .Column = 4 Then
                Application.EnableEvents = False
                .Offset(0, 2).Formula = Replace(.Value, ",", ".")
                .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

Wigi
 
Ik heb het geprobeert en het werkt.
Zal het later uitvoeriger testen.
Alvast bedankt
 
Zet de vraag alvast op opgelost, daar kan je later evt. nog op terug komen.
 
Beste Wigi,

In versie 2007 werkt het perfect, Bedankt hiervoor.
in versie 97 kreeg ik deze foutmelding


Code: 
Private Sub Worksheet_Change(ByVal Target As Range)
    With Target
        If .Count = 1 Then
            If .Column = 4 Then
                Application.EnableEvents = False
                .Offset(0, 2).Formula = Replace(.[SIZE="4"]Value[/SIZE], ",", ".") (Bij replace kleurde hij geel) en melding sub of Function niet gedefinieerd.
                .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
Heeft dit te maken met een oudere versie?
weet je misschien tot welke versie dit dan goed gaat.
Ik hoop in iedergeval t/m 2003.
 
Laatst bewerkt door een moderator:
Replace was niet aanwezig in versie 97. Nadien gaat het wel goed.
 
Beste Wigi,

Ik heb er veel plezier aan gehad met je hulp.
Ik kwam iets tegen wat iets minder handig was. Misschien weet jij hier een antwoordt op te geven.
Ik heb in een cel de letter α van alpha naar een cel laten verwijzen.
Zodat ik mooi in de formule bijv. cos (α) kan aangeven en in een andere cel bijv. 55
Zodat hij cos 55 graden uitrekend in de andere cel, zoals je uitgewerkt had.
Alleen als ik de hoek verander naar bijv. 45 graden dan werkt hij dat pas bij als ik in de cel
cos(α) op de functietoets F2 druk.
Heb je een idee hoe je dat kunt veranderen zodat hij dat automatisch bijwerkt?
 
@damteur Je titel aangepast en je code tussen de codetags geplaatst. Een volgende keer even zelf een juiste titel verzinnen en netjes de codes tussen de codetags plaatsen a.u.b. Kortgezegd, lees dit ook eens.
 
Laatst bewerkt:
Status
Niet open voor verdere reacties.
Steun Ons

Nieuwste berichten

Terug
Bovenaan Onderaan