multiplizieren in der gelichen zele

Bild

Betrifft: multiplizieren in der gelichen zele
von: brekum
Geschrieben am: 02.12.2003 22:36:50

Kann ich z.B. in der Zelle A1 3x5 eingeben und den Ergebnis in der Zelle C1 anzeigen lassen .Mit der Formelvariante z.B in C1 eingeben (=a1*b1) geht es, aber wie klappt es mit C1 (=A1*A1).
Wer kann mir helfen

Bild


Betrifft: AW: multiplizieren in der gelichen zele
von: GerdW
Geschrieben am: 02.12.2003 22:43:33

Sowas geht nur mit VBA.

Gerd


Bild


Betrifft: AW: multiplizieren in der gelichen zele
von: brekum
Geschrieben am: 02.12.2003 22:47:47

Hallo Gerd.
Kannst du mir einen Tip geben.


Bild


Betrifft: AW: multiplizieren in der gelichen zele
von: K.Rola
Geschrieben am: 02.12.2003 23:00:51

Hallo,

hoffentlich kannst du damit was anfangen:

Option Explicit

Private Sub Worksheet_Change(ByVal Target As Range)
Dim tt As String
If Target.Address = "$A$1" Then
tt = Target.Text
  [a1] = Evaluate(tt)
End If
End Sub


Gruß K.Rola


Bild


Betrifft: AW: multiplizieren in der gelichen zele
von: K.Rola
Geschrieben am: 02.12.2003 23:15:38

Hallo,

du wolltest ja das Ergewbnis in C1:


Private Sub Worksheet_Change(ByVal Target As Range)
Dim tt As String
If Target.Address = "$A$1" Then
tt = Target.Text
  [C1] = Evaluate(tt)
End If
End Sub


Gruß K.Rola


Bild


Betrifft: AW: Evaluieren / Auswerten
von: FP
Geschrieben am: 03.12.2003 00:26:41

Hallo K.Rola,

per VBA: ( wertet die angegebene Zelle aus )

Public Function Evaluiere(rng As Range) As Variant
If rng.Cells.Count > 1 Then Exit Function
Evaluiere = Evaluate(rng.Value)
End Function

per "Name": ( wertet immer Spalte A aus )
Ergebnis =AUSWERTEN($A1)

2 Beispiele:

Excel Jeanie HTML
Formeln der Tabelle
C1 : =EVALUIERE(A1)
D1 : =Ergebnis
C2 : =EVALUIERE(A2)
D2 : =Ergebnis
Excel Tabellen einfach im Web darstellen   Excel Jeanie HTML  2.0    Download   Servus aus dem Salzkammergut Franz

Bild


Betrifft: AW: per VBA
von: FP
Geschrieben am: 03.12.2003 01:09:40

Hallo K.Rola,

schau mal, was damit alles möglich ist :D

Function Eval(var)
If IsObject(var) Then
If var.Cells.Count > 1 Then Exit Function
Eval = Evaluate(var.Value)
Else
Eval = Evaluate(var)
End If
End Function




Excel Jeanie HTML
Formeln der Tabelle
C1 : =Aus
D1 : =EVAL(A1)
C2 : =Aus
D2 : =EVAL(A2)
C3 : =Aus
D3 : =EVAL(A3)
C4 : =Aus
D4 : =EVAL(A4)
C5 : =Aus
D5 : =EVAL(A5)
D6 : =EVAL(EVAL(A3))
D7 : =EVAL(3&A1)
D8 : =EVAL(3&A2)
D9 : =EVAL(A9)
D10 : =EVAL(EVAL(A10))
D11 : =EVAL(EVAL(EVAL(A11)))
Excel Tabellen einfach im Web darstellen   Excel Jeanie HTML  2.0    Download  
Servus aus dem Salzkammergut Franz

Bild

Beiträge aus den Excel-Beispielen zum Thema " multiplizieren in der gelichen zele"