Supportnet Computer
Planet of Tech

Supportnet / Forum / Tabellenkalkulation

Excel - Multiplikation mit dem INhalt einer Zelle in einer Zeile





Frage

Hallo, ich muss eine Excel Tabelle erstellen in der in einer Zeile vereinzelt Beträge stehen. Excel soll die Zeile durchsuchen und einen gefundenen Wert mit einem Wert (Provisionsfaktor) multiplizieren. Was nehme ich denn da für eine Funktion? Besten Dank im voraus. Elke

Antwort 1 von schnallgonz

N´abend,
folgender Code multipliziert alle Zahlen > 0 in der aktiven Zeile mit 0,1 für 10%.
Vor makrostart muß nur der Cursor in der richtigen Zeile stehen. Die Aktion kann nicht rückgängig gemacht werden, deshalb zur Vorsicht eine MessageBox vor Ausführung mit Anzeige der ZeilenNr und Abbruchmöglichkeit

Sub multiZwo()
´multipliziert alle Werte > 0 der aktiven Zeile mit 0,1
Dim i As Integer, iMax As Integer, m As Integer
Dim z As Long

z = ActiveCell.Row
iMax = Range("IV" & z).End(xlToLeft).Column

m = MsgBox("Alle Zahlen der aktiven Zeile  " & z & _
        "  werden mit 0,1 multipliziert, fortfahren?", _
    1 + vbQuestion, "Achtung, Aktion unwiderruflich!")
If m = 2 Then Exit Sub

On Error Resume Next
For i = 1 To iMax
If Cells(z, i).Value > 0 Then
Cells(z, i).Value = Cells(z, i).Value * 0.1
End If
Next i

End Sub


gruß
schnallgonz

Antwort 2 von elke

Hallo Schnallgonz
Danke!
aber leichter geht das nicht?

vor allem, weil der Multiplikator immer eine Zahl in der Provisionszeile "Faktor" sein sollte????

Aber danke für die Hilfe trotzdem..

Gruss Elke

Antwort 3 von schnallgonz

Moin,
natürlich geht das auch anders, einfacher ist dabei Ansichtssache.
Das Makro kannst Du einfach per Klick auf einen Button aufrufen, wie das geht, kannst Du z.B. auf http://www.excelbeispiele.de nachlesen.

Wenn sich der Provisionsfaktor ändert, kann man den entweder in einer Dialogbox abfragen oder ihn durch das Makro aus einer bestimmten Zelle auslesen lassen.

Dazu müßtest Du noch ein paar Angaben / Wünsche nachschieben.

Falls Du eine "VBA-Allergie" hast, kann Du das auch ohne Makro lösen:
kopiere den Provisionsfaktor aus einer Zelle, markiere die Zeile mit den zu multiplizierenden Werten und gehe dann über BEARBEITEN--OPERATION: Multiplizieren.
In allen leeren Zellen steht dann allerdings 0.

gruß
schnallgonz