Gruppen
- Top Gruppen
- Betriebsysteme
- Windows classik
- Linux
- BS-Sonstige
- Software
- Datenbanken
- Bildbearbeitung
- Audio/mp3/Video
- Security/Viren
- SW-Sonstige
- Hardware
- Mainboard/CPU
- Grafikkarten
- Peripherie
- Laptop/Notebook
- HW-Sonstiges
- Netzwerk
- Telefon,ISDN,Modem
- W-Lan
- NW-Sonstiges
- Programmierung
- PHP,ASP,Perl...
- Java,C++...
- Webseiten/HTML
- Sonstiges
- PC-Sonstiges
- Plauderecke
- SN Intern
- Test
/ Forum / Tabellenkalkulation
Tabellenkalkulation
Fragevon xquer vom 28.09.2022, 21:40 Options
Zelleintrag automatisch ergänzen
Hallo,
ich weiss nicht, ob man dies mit einem Makro machen kann oder es eventuell sogar eine viel einfachere Lösung gibt:
Wir müssen immer wieder bis zu 600 Werte auf ein Tabellenblatt übertragen. Da sich die Werte nur bei den letzten beiden Ziffern ändern, wäre es natürlich peppig, dass man auch nur die letzten beiden Ziffern eingeben müsste und der Wert automatisch beim Verlassen der Zelle ergänzt wird.
Ich gebe also 49 ein, drücke Return und es erscheint 1,649.
Weiss jemand Rat?
Danke euch im Voraus!
Jürgen
ich weiss nicht, ob man dies mit einem Makro machen kann oder es eventuell sogar eine viel einfachere Lösung gibt:
Wir müssen immer wieder bis zu 600 Werte auf ein Tabellenblatt übertragen. Da sich die Werte nur bei den letzten beiden Ziffern ändern, wäre es natürlich peppig, dass man auch nur die letzten beiden Ziffern eingeben müsste und der Wert automatisch beim Verlassen der Zelle ergänzt wird.
Ich gebe also 49 ein, drücke Return und es erscheint 1,649.
Weiss jemand Rat?
Danke euch im Voraus!
Jürgen
Antwort 1 von rainberg vom 28.09.2022, 22:59 Options
Hallo Jürgen,
folgender Code verwirklicht Dein Ansinnen im Bereich A1:A100, kann beliebig verändert werden.
Gruss
Rainer
folgender Code verwirklicht Dein Ansinnen im Bereich A1:A100, kann beliebig verändert werden.
Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
Application.EnableEvents = False
If Not Intersect(Target, Range("A1:A100")) Is Nothing Then
Target.Value = Target.Value / 1000 + 1.6
End If
Application.EnableEvents = True
End SubGruss
Rainer
Antwort 2 von xquer vom 30.09.2022, 21:10 Options
Hallo Rainer,
vielen Dank -auch im Namen meiner Kollegen- für die prompte Lösung. Es fuktioniert so, wie wir uns es vorgestellt haben und sparen dadurch jede Menge Zeit.
Grüße
Jürgen
vielen Dank -auch im Namen meiner Kollegen- für die prompte Lösung. Es fuktioniert so, wie wir uns es vorgestellt haben und sparen dadurch jede Menge Zeit.
Grüße
Jürgen
Antwort 3 von JonesM vom 01.10.2022, 08:46 OptionsLösung
Die Lösung ohne Makro:
Die betreffenden Zellen formatieren als Zahlen und "Benutzerdefiniert" auswählen. Die Formatierung folgendermassen eingeben:
"1,6"00
Der Nachteil hierbei ist, dass dann nur der Wert der 3. und 4. Nachkommastelle zur weiteren Berechnung zur Verfügung steht (die beiden eingegeben Zahlen) und man ggf. mit Hilfsspalten weiterrechnen muss. Z.B.:
=1,6+(A1/1000)
VG Thomas
Die betreffenden Zellen formatieren als Zahlen und "Benutzerdefiniert" auswählen. Die Formatierung folgendermassen eingeben:
"1,6"00
Der Nachteil hierbei ist, dass dann nur der Wert der 3. und 4. Nachkommastelle zur weiteren Berechnung zur Verfügung steht (die beiden eingegeben Zahlen) und man ggf. mit Hilfsspalten weiterrechnen muss. Z.B.:
=1,6+(A1/1000)
VG Thomas
Ähnliche Themen
Automatisch freistellen mit Photoshop und GML Matting
terror_tubbie 03.11.2009 - 1243 Hits -
Excel Wenn oder und und dann - Formel ergänzen
urge76 17.12.2009 - 196 Hits - 1 Antwort
Eintragen von Daten per UserForm in eine Tabelle und späteres Ergänzen
Katsura 04.02.2010 - 345 Hits - 6 Antworten
Kalenderblatt per Button automatisch ergänzen
wimaxe 02.03.2010 - 255 Hits - 8 Antworten
Zellen automatisch ergänzen
epmarc77 15.03.2010 - 162 Hits - 3 Antworten
Hinweis
Diese Frage ist schon etwas älter, Sie können daher nicht mehr auf sie antworten. Sollte Ihre Frage noch nicht gelöst sein, stellen Sie einfach eine neue Frage im Forum..
Neue Einträge
