Microsoft Excel addieren subtrahieren von ganzen Spalten
Hallo liebe Leute,
ich betreibe einen Onlinehandel und muss schnell auf Preise reagieren können. Ich habe also ein Excel Tabelle mit der ich meine Kalkulation mache. Ich möchte nun eine ganze Spalte in der untereinander in diversen Zeilen meine unterschiedlichen Verkauspreise stehen nicht jeden einzelnd ändern, sondern alle Preise auf einmal minus einem gleichen Wert ändern können.
D.h. möchte einfach alle Zellen einer Spalte z.B. +10€ haben und nicht jeden Preis einzeln eingeben. Ich möchte allerdings keine neue Spalte hinzufügen, der Preis soll sich einfach in der bestehenden Zellen ändern.
Ich hoffe das Ganze war verständlich, habe das Ganze WWW abgesucht, allerdings nichts finden können. Ich hoffe mir kann jemand helfen.
3 Antworten
- Gehe im Register Start ins Menü Suchen und Auswählen - anklicken.
- Ersetzen anklicken
- Gib bei Suchen den alten- und bei Ersetzen den neuen Preis ein
- Markiere nun die Spalte, in welcher die Änderung gemacht werden soll
- Nun klickst Du auf Alle Ersetzen
Schreibe in eine beliebige Zelle die Zahl, die du addieren oder subtrahieren möchtest.
Kopier diese Zelle.
Markiere den Bereich, wo die Werte sich ändern sollen.
Rechtsklick, Inhalte einfügen...
Jetzt auf Addieren bzw. Subtrahieren, OK.
Jetzt sollten sich alle Zahlen um den kopierten Wert erhöht bzw. vermindert haben.
Nur als Erweiterung:
Damit du nicht immer Kopieren und wieder Inhalte Einfügen musst würde ich mir über den Reiter Einfügen irgendwo die Formen Plus, Minus, Mal und geteilt ablegen und dennen dann Makros zuweisen: Hier in den Makros habe ich jetzt für die belibige Zahl die Zelle H1 genommen und nur den Bereich F1-F26, den musst du natürlich deinem anpassen. Du kannst da auch die ganze Spalte wählen falls du da nur die Preise drin hast. Hier im Beispiel Geteilt als F:F dagestellt.
Sub Plus()
Range("H1").Select
Selection.Copy
Range("F1:F26").Select
Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlAdd, SkipBlanks:= _
False, Transpose:=False
End Sub
Sub Teilen()
Range("H1").Select
Selection.Copy
Range("F:F").Select
Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlDivide, SkipBlanks _
:=False, Transpose:=False
End Sub
Sub Mal()
Range("H1").Select
Selection.Copy
Range("F1:F26").Select
Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlMultiply, _
SkipBlanks:=False, Transpose:=False
End Sub
Sub Minus()
Range("H1").Select
Selection.Copy
Range("F1:F26").Select
Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlSubtract, _
SkipBlanks:=False, Transpose:=False
End Sub
Die Makros einfach mit ALT+F11 im Vba ablegen.
Super, kommt dem was ich mir vorgestellt habe am nächsten. Möglichst schnell und unkompliziert! ;-)
Spontan würde mir dafür keine Lösung einfallen.
Wenn du aber dennoch, wider Willen, eine Spalte hinzufügst, ist das natürlich kein Problem. Und du müsstest das auch nur einmal tun, bei der nächsten Änderung könntest du wieder in die Ursprungsspalte zurückwechseln.
Oder du kopierst die Spalte auf ein anderes Blatt, ziehst dort die +10-Addition hinunter und kopierst dann die Ergebnisspralte auf das Ursprungsblatt.