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 jorsa vom 12.10.2019, 10:57 Options
Wert aufsummieren
Hallo,
ich habe hier im Forum ( http://www.supportnet.de/discussion/listmessages.asp?autoid=194495 ) folgenden VBA-Code gefunden der mir bei meinem Problem schon sehr hilfreich ist. Es gehr darum Werte in einer Zelle einzugeben und mit Werten die schon in der Zelle sind zu addieren (ich hoffe das hört sich nicht zu kompliziert an). Das Makro funktioniert eigentlich wie gewünscht nur leider nicht mit Kommastellen und da ich hier einen Geldbetrag eingeben will benötige ich das mit Kommastellen.
Private Sub Workbook_SheetBeforeDoubleClick(ByVal Sh As Object, ByVal Target As Range, Cancel As Boolean)
Dim i As Integer
i = InputBox("Welcher Lagermengenänderung möchten sie eintragen", "Lagerverwaltung")
ActiveCell.Value = ActiveCell.Value + i
End Sub
für jede Hilfe im voraus Danke
ich habe hier im Forum ( http://www.supportnet.de/discussion/listmessages.asp?autoid=194495 ) folgenden VBA-Code gefunden der mir bei meinem Problem schon sehr hilfreich ist. Es gehr darum Werte in einer Zelle einzugeben und mit Werten die schon in der Zelle sind zu addieren (ich hoffe das hört sich nicht zu kompliziert an). Das Makro funktioniert eigentlich wie gewünscht nur leider nicht mit Kommastellen und da ich hier einen Geldbetrag eingeben will benötige ich das mit Kommastellen.
Private Sub Workbook_SheetBeforeDoubleClick(ByVal Sh As Object, ByVal Target As Range, Cancel As Boolean)
Dim i As Integer
i = InputBox("Welcher Lagermengenänderung möchten sie eintragen", "Lagerverwaltung")
ActiveCell.Value = ActiveCell.Value + i
End Sub
für jede Hilfe im voraus Danke
Antwort 2 von jorsa vom 15.10.2019, 12:01 Options
Hallo,
vielen Dank für deine Antwort, wenn es auch nicht ganz so ist wie ich es mir vorstelle.
vielen Dank für deine Antwort, wenn es auch nicht ganz so ist wie ich es mir vorstelle.
Antwort 3 von coros vom 15.10.2019, 12:10 Options
Hallo jorsa,
ändere in Deinem VBA-Code in der Zeile
das Wort "Integer" gegen das Wort "Variant", dann funktionierts.
Zur Bedeutung, die Variable i wurde als Ganzzahl deklariert, daher nur addition mit ganzen Zahlen. Der Typ "Variant" erlaubt auch Kommazahlen.
MfG,
Oliver
Da hier der einzige Lohn für die Helfer eine Rückmeldung ist, wäre es nett, wenn Du
ein Feedback abgeben könntest, ob der Lösungsvorschlag Dein Problem gelöst hat.
ändere in Deinem VBA-Code in der Zeile
[b]Dim i As Integer[/b]das Wort "Integer" gegen das Wort "Variant", dann funktionierts.
Zur Bedeutung, die Variable i wurde als Ganzzahl deklariert, daher nur addition mit ganzen Zahlen. Der Typ "Variant" erlaubt auch Kommazahlen.
MfG,
Oliver
Da hier der einzige Lohn für die Helfer eine Rückmeldung ist, wäre es nett, wenn Du
ein Feedback abgeben könntest, ob der Lösungsvorschlag Dein Problem gelöst hat.
Ähnliche Themen
Matrixabfrage mit Excel
dstarr 16.04.2007 - 196 Hits - 1 Antwort
excel-formel mit wenn-dann
stefan1975 24.05.2007 - 112 Hits - 4 Antworten
Mehrere Tabellen aufsummieren
HMu 31.05.2007 - 76 Hits - 8 Antworten
Einen abweichenden Wert im Berichtrot kennzeichnen
Mrfivejunior 26.07.2007 - 61 Hits - 3 Antworten
summiere wert, wenn dieser zwischen zwei werten liegt
kuefra 19.05.2008 - 61 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
