Automatisch anderen Wert in Zelle eintragen

[Steffl]

Hallo Klaus,

ach ja, die verbundenen Zellen und dann noch manche Spalten so klein machen, dass man sie nicht sieht :20:

Von dem Bereich G13:G18 auf E13:E18 geändert

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, Range("E13:E18"))
 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]

Hallo Stefan,
vielen Dank das du dir die Zeit auch noch einmal genommen hast und mir helfen möchtest.
Ja, ich verstehe was du meinst und habe es "aufgeräumt".
Siehe Anlage.
Das waren noch ein Überbleibsel von der vorherigen Tabelle die ich übernommen und "umgebaut" hatte.
Nach dem Aufräumen habe ich den Code angepasst auf :

  Set r = Intersect(Target, [c12:c17])

weil der Zellenbereich c12 bis c17 ja nun zutreffend ist.
Habe es kopiert und eingefügt wie er auch in der Anlage sichtbar sein müsste.
Allerdings bleiben die Zellen c12 bis c17 davon sehr unbeeindruckt.
Es ändert sich leider nichts.
Der Wert den ich eingebe wird auch immer noch so angezeigt wie eingegeben.
Ich habe dann gedacht ob ich die Settings für Makros vllt. ändern müsste (Makros aktivieren) Siehe Anlage.
Nein, auch das hat leider nicht geholfen.
Die Zellen habe ich unter Zellen formatieren  von Standard auf Zahl formatiert.
Auch das hat leider nicht zu gewünschten Erfolg geführt.
Also habe ich es hier noch einmal angehängt so wie es nun bei mir auf dem PC "aufgeräumt" gespeichert ist, aber leider noch nicht funktioniert.
Was könnte da noch nicht stimmen, oder welche Einstellung müsste ich noch ändern?

L.G.
Klaus

[Kuwer]

Hallo Klaus,

Der Wert den ich eingebe wird auch immer noch so angezeigt wie eingegeben.

der Wert und ein k am Ende wie schon besprochen?

Gruß Uwe

[Ahnungslos]

DANKE !  :18:
Genau das war mein Problem, das "k" war nicht zusammen mit dem Wert eingefügt.
Ich dachte ich könnte die Zelle Benutzerdefiniert formatieren und hatte dort das "k" reinformatiert.
Das hatte ich dann wohl etwas falsch verstanden.
Und das ging natürlich dann so nicht  :33: 
Ich habe noch eine örtliche Anpassung gemacht im Syntax und nun funktioniert es SUPER !
Ihr habt mir sehr geholfen  :23:

[mmat]

Moin,

mehrerere Dinge sind falsch.

1. Deine Eingabe erfolgt in E13-18, hier gibt's verborgene Spalten und zusammengefasste Zellen, daher ist G13-18 verkehrt.
2. Eine Eingabe "0-1800k" ist unzulässig, das Makro ist nur auf einfache Zahlen mit 'nem K hintendran ausgelegt. Nicht ein von - bis Bereich.

(alle Angaben beziehen Sich auf den Anhang an Beitrag Nr. 10 und sind ohne Gewehr!)

vg, MM

[Ahnungslos]

Hallo mmt,
ja das habe ich gesehen und auch schon "aufgeräumt". 
Außerdem hatte ich hier auch schon kommentiert warum die Tabelle so war, sorry dafür.
Nun ist alles installiert und es funktioniert SUPER !
Nochmals Vielen Dank für Eure Hilfe und Eure Geduld.
Mir ist vollkommen klar das immer grundsätzlich solche Hilfestellungen OHNE Gewehr sind.
L.G.
Klaus