Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
344to348
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
344to348
344to348
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

multiplizieren in der gelichen zele

multiplizieren in der gelichen zele
02.12.2003 22:36:50
brekum
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

6
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: multiplizieren in der gelichen zele
02.12.2003 22:43:33
GerdW
Sowas geht nur mit VBA.

Gerd
AW: multiplizieren in der gelichen zele
02.12.2003 22:47:47
brekum
Hallo Gerd.
Kannst du mir einen Tip geben.
AW: multiplizieren in der gelichen zele
02.12.2003 23:00:51
K.Rola
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
AW: multiplizieren in der gelichen zele
02.12.2003 23:15:38
K.Rola
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
Anzeige
AW: Evaluieren / Auswerten
03.12.2003 00:26:41
FP
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
Anzeige
AW: per VBA
03.12.2003 01:09:40
FP
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
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige