Automatisch anderen Wert in Zelle eintragen

[Ahnungslos]

Moin zusammen,
ich habe folgendes Problem.  :22:
In eine Zelle meiner Excel-Tabelle wird ein beliebiger Wert (z.b. 3,5) eingegeben. Dieser Wert soll automatisch im Hintergrund mit dem Wert 1,943 multipliziert werden, sodass NUR das Produkt der beiden Werte in dieser Zelle gezeigt wird. In dieser Zelle müsste also der Wert 6,8005 erscheinen.
Hintergrund: Es werden Windwerte in Knoten eingegeben werden und es sollen aber Windwerte in M/Sekunde in der Zelle abgebildet/ausgedruckt werden.
Meine Software:
Ecxel 2007 und Windows 7
Hier im Forum habe ich leider nichts finden können 

Vielen Dank im Voraus
Klaus

[WillWissen]

Hallo Klaus,

wenn sich das alles in einer Zelle abspielen soll, ist das wohl nur mit einem Makro lösbar, wobei ich dir nicht helfen kann. Solltest du eine Formellösung bevorzugen, solltest du eine Spalte anlegen, in der das Ergebnis berechnet wird.

[mmat]

Hallo,

warum eigentlich nicht in einer separaten Zelle ??

Na gut, das ganze ist ein simpler OnChange Event. Kopiere das Ganze in das Makroblatt der Tabelle, wo die Knoten reinkommen. In der 3. Zeile muß noch der Bereich definiert werden, in welche Zellen Knoten eingetragen werden dürfen (Derzeit C1:C3, aber das ist bei dir bestimmt anderster).

Achja, Knoten müssen immer am Ende ein K haben, sonst funktionierts nicht. (Diese Einschränkung verhindert ungewollte Mehrfachberechnung)

Code:

Private Sub Worksheet_Change(ByVal Target As Range)
Dim r As Range, c As Range, s As String, d As Double, p As Long
  Set r = Intersect(Target, [c1:c5])
  If (r Is Nothing) Then Exit Sub
 
  For Each c In r.Cells
    s = c.Value
    If UCase(Right(s, 1)) = "K" Then
      p = InStr(s, ","): If (p > 0) Then Mid(s, p, 1) = "."
      d = Val(Left(s, Len(s) - 1))
      If d <> 0 Then c.Value = d * 1.943
    End If
  Next
End Sub

[Ahnungslos]

WOW,
ihr seid absolute Spitze! Ich werde das gleich mal ausprobieren.
Und sogar mit einer Anleitung wie und wo ich es reinkopieren soll, einfach fantastisch
Danke, :18: danke, :18: danke  :18:

---

Ich glaube ich mache da doch noch etwas falsch?
Ich habe mal einen screenshot von der Fehlermeldung gemacht und als Anlage beigefügt.
Die Zellen in denen ich den jeweiligen Wert dann geändert eingefügt haben möchte sind "G 13 bis G18"
Das ist das was ich im Syntax zur Probe auf G13 geändert hatte.
Ich hatte es in der Zelle sowie in der Tabelle eingefügt. Beides funktioniert leider nicht 

[mmat]

Hallo


Screenshot sehe ich nicht

Wenn der Bereich G13-G18 von den Knoten betroffen ist, dann lautet Zeile 3
 

Code:

Set r = Intersect(Target, [G13:G18])

In die Tabelle ist nix einzutragen, ausser den Knoten: z.B. "3,5k"
Ach übrigens: Auf den Pluralis Majestatis verzichte ich :35: 
vg, MM

[Ahnungslos]

Nun müsste es aber sichtbar sein, denke ich.

[Käpt'n Blaubär]

Hallo,

... das fehlende End Sub wirst Du nicht mit kopiert haben.
Schreibe es einfach als letzte Zeile unter den vorhandenen Code.

[mmat]

Ja, jetzt sehe ich die Fehlermeldung

Du hast den Code nicht vollständig 'rüberkopiert. Hier im Forum erscheint der in einem Fenster in dem man scrollen kann. Unten fehlen noch ein paar Zeilen.

[Ahnungslos]

Ahhh, ja jetzt sehe ich es, sorry.
End Sub hatte ich zwar auch schon da drunter eingefügt, aber das was dann noch fehlte leider nicht.
Das kommt wenn man es mal eben so zwischendurch machen möchte  :19:
Nochmals vielen Dank  :18:

---

Oh man. Der Code läuft durch, aber es tut sich leider nichts.  :22:
Wenn ich eine Zahl in die Zelle eingebe, bleibt sie auch genau so und wird nicht berechnet.

[Ahnungslos]

Guten Morgen,

ich habe mir die gesamte Konversation von gestern noch einmal wieder durchgesehen, aber leider nichts gefunden wodran ich sehen kann was ich falsch gemacht habe. 
Ich komme einfach nicht weiter  :22:
@mmat:
Was ich genau gemacht habe könnt Ihr anhand der hier beigefügten Tabelle selbst mal sehen und mir vielleicht meinen Fehler zeigen?

Vielen Dank im voraus

L.G.
Klaus