Umrechnung von Werten

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Sub umrechnen() Dim kupfer&, silber&, gold&, alle& Dim Skupfer&, Ssilber&, Sgold&, Salle$ alle = Range("e3").Value ' da stehen die 111111, ' ob sie nun mit oder ohne 1000er . angezeigt werden. ' 1. Rechenoperationen *immer* auf alle kupfer = 50: silber = 70: gold = 5 alle = alle + kupfer alle = alle + silber * 10 ^ 2 alle = alle + gold * 10 ^ 4 MsgBox alle ' 2. Anzeige *immer* aus Salle Salle = Range("e3").Value ' hier auch ' bzw. 'Salle = alle Skupfer = Right(Salle, 2) Ssilber = Mid(Right(Salle, 4), 1, 2) If Len(Salle)

Hallo nochmal,
leider funktioniert es noch nicht so ganz.
Es werden mir die Kupferwerte auch in der Silber-Spalte angezeigt.
Hier mal der Code für die Anzeige im Shop (Inventar-Verkauf).
Kann mir jemand 'nen Tipp geben ?

Sub umrechnen_shop_inventar()
Dim kupfer&, silber&, gold&, alle&
Dim Skupfer&, Ssilber&, Sgold&, Salle$
i = 0
Shop.ListBox1.Clear
Shop.ListBox1.ColumnCount = 5                                                           ' _
Spaltenanzahl festlegen
Shop.ListBox1.ColumnWidths = "1,3cm;4cm; 1,3cm;1,2cm; 1cm"                            ' _
Spaltenbreite festlegen
Sheets("Inventar").Activate
Max = Worksheets("Inventar").Cells(Rows.Count, 1).End(xlUp).Row
For lng = 2 To Max
For ggst = 2 To Max
If Worksheets("Gegenstände").Cells(ggst, 1) = Worksheets("Inventar").Cells(lng, 2) Then
alle = Worksheets("Gegenstände").Cells(ggst, 4).Value                     ' da stehen die  _
111111, ob sie nun mit oder ohne 1000er . angezeigt werden.
' 1. Rechenoperationen *immer* auf alle
kupfer = 50: silber = 70: gold = 5
alle = alle + kupfer
alle = alle + silber * 10 ^ 2
alle = alle + gold * 10 ^ 4
' 2. Anzeige *immer* aus Salle
Salle = Worksheets("Gegenstände").Cells(ggst, 4).Value ' hier auch bzw. Salle = alle
Skupfer = Right(Salle, 2)
Ssilber = Mid(Right(Salle, 4), 1, 2)
If Len(Salle)

Option Explicit Sub umrechnen() Dim alle& Dim werte&(2) Dim i&, j& ' die 3 vorhandenen Zeilen für die Addition kannst Du ' alle = alle + kupfer + silber * 10 ^ 2 + gold * 10 ^ 4 ' auch zusammenfassen. For i = 3 To 10 alle = Range("e" & i).Value werte(0) = Int(alle / 10 ^ 4) werte(1) = Int((alle - werte(0) * 10 ^ 4) / 10 ^ 2) werte(2) = alle - werte(0) * 10 ^ 4 - werte(1) * 10 ^ 2 For j = 0 To 2 Cells(i, j + 6).Value = CStr(werte(j)) ' CStr ist eine explizite Typumwandlung von Zahlenwerten ' in einen String; sollte aber auch problemlos ohne gehen. Next Next End Sub

Hi MatzeBo75,
denk Dir nix, genau so hab ich vor gut einem Jahr auch gedacht, bis ich "ernsthaft" angefangen habe, was Komplexeres zu programmieren: welcome to the club.
Vielleicht sollte ich noch erwähnen, daß ich mir bei gewissen Sachen auch immer wieder überlege, ob es Sinn macht, sie in Excel zu programmieren: wenn Du was veröffentlichen und evtl. Geld damit verdienen willst, schränkst Du damit den potentiellen Kundenkreis ein. Soll heißen: die meisten Leute in meinem Umfeld benutzen eher eines der kostenlosen Office-Pakete, und kaum ein Excel-Makro läuft direkt ohne mehr oder weniger aufwendige Anpassung.
Sofern Du passabel englisch kannst, magst Du Dir evtl. Anregungen bei der MS virtual academy holen (die haben auch dt. Kurse, so isses nicht, aber der ist auf engl.); die haben eine ganze Reihe kostenloser Kurse, u.a. den: http://www.microsoftvirtualacademy.com/training-courses/game-production-basics
Der Kurs ist für Einsteiger ins Spiele-Business gedacht und enthält u.a. Hinweise auf diverse kostenlose Software zur Erstellung von Spielen, u.a. auch die hauseigenen .Net-Compiler.
Gutes Gelingen,
Michael

Beliebteste Forumthreads (12 Monate)

6
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Umrechnung von Werten

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

VBA Beispiele zu verwandten Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

6
Beiträge zum Forumthread

Beiträge zu diesem Forumthread