ich würde gerne ein Makro programmieren, das mir alle Zahlen der Zellen, die ich gerade markiert habe, durch 1000 teilt.
Hat sowas schonmal einer gemacht ohne das er die Zahlen zunächst an einen anderen Ort kopiert?
Danke für jeden Tipp!
cpete
Sub Teilen1000()
Dim zelle As Range
On Error Resume Next
For Each zelle In Selection
zelle.Value = zelle.Value / 1000
Next zelle
End Sub
Um alle Werte einer Auswahl in Excel durch 1000 zu teilen, kannst Du ein einfaches Makro verwenden. Hier ist eine Schritt-für-Schritt-Anleitung:
Öffne Excel und drücke Alt + F11, um den Visual Basic for Applications (VBA) Editor zu starten.
Klicke auf Einfügen > Modul, um ein neues Modul zu erstellen.
Kopiere den folgenden Code in das Modul:
Sub Teilen1000()
Dim zelle As Range
On Error Resume Next
For Each zelle In Selection
zelle.Value = zelle.Value / 1000
Next zelle
End Sub
Schließe den VBA-Editor.
Markiere die Zellen, die Du durch 1000 teilen möchtest.
Drücke Alt + F8, wähle Teilen1000 und klicke auf Ausführen.
Mit diesem Makro kannst Du effizient alle Zellen einer Auswahl durch 1000 teilen.
Problem: Die Zellen sind nicht vom Typ "Zahl".
Problem: Makro funktioniert nicht.
Datei > Optionen > Trust Center und aktiviere die Makros.Falls Du kein Makro verwenden möchtest, gibt es auch eine einfache Methode ohne VBA:
1000 in eine leere Zelle.Start > Inhalte einfügen > Division.OK.Mit dieser Methode kannst Du auch mehrere Zellen durch 1000 teilen, ohne die Werte zu kopieren.
Beispiel 1: Du hast eine Spalte mit Verkaufszahlen und möchtest diese durch 1000 teilen. Markiere die gesamte Spalte und führe das Makro Teilen1000 aus.
Beispiel 2: Wenn Du eine Liste von Werten hast, die Du durch 100 teilen möchtest, kannst Du entweder das Makro anpassen oder die oben beschriebene Methode mit der Division verwenden.
=A1/1000 in einer neuen Zelle, um das Ergebnis in einer anderen Zelle anzuzeigen, ohne die Originaldaten zu verändern.0 teilst, um Fehler zu vermeiden. Excel wird in diesem Fall eine Fehlermeldung anzeigen.1. Kann ich das Makro für andere Zahlen verwenden?
Ja, Du kannst das Makro anpassen, indem Du die Zahl 1000 im Code durch eine andere Zahl ersetzt.
2. Funktioniert das auch in älteren Excel-Versionen? Ja, das Makro sollte in den meisten Versionen von Excel funktionieren, einschließlich Excel 2003 und neuer.
3. Was passiert, wenn ich eine Zelle mit Text markiere? Das Makro überspringt Zellen, die keinen numerischen Wert enthalten. Es wird in diesen Fällen keine Änderung vorgenommen.