Tekst met getallen en uitkomst in andere cel

[damteur]

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

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

 

[Wigi]

Bij mij lukt het anders wel.

Zie bijlage voor als je er iets aan zou hebben.

Wigi

 

[damteur]

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

 

[Wigi]

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.

 

[damteur]

vb bestandje

De opmerkingen heb ik erbij gezet bij de cel.

 

[damteur]

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?

 

[Wigi]

Kolom D op tekst zetten en dan deze code gebruiken.

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

 

[damteur]

Ik heb het geprobeert en het werkt.
Zal het later uitvoeriger testen.
Alvast bedankt

 

[Wigi]

Zet de vraag alvast op opgelost, daar kan je later evt. nog op terug komen.

 

[damteur]

Beste Wigi,

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

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.

 

[Wigi]

Replace was niet aanwezig in versie 97. Nadien gaat het wel goed.

 

[Wigi]

Zie tevens de bijdrage van Dick Kusleika in dit verband, hier.

 

[damteur]

Alweer bedankt

 

[Wigi]

Alweer bedankt

En jij nu ook zeer bedankt, heb het net gezien... Je begrijpt het wel.

Wigi

 

[damteur]

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?

 

[huijb]

@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.