Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Alle Zahlen einer Selection durch 1000 teilen

Forumthread: Alle Zahlen einer Selection durch 1000 teilen

Alle Zahlen einer Selection durch 1000 teilen
04.08.2003 18:26:55
cpete
Hallo!
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
Anzeige

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Alle Zahlen einer Selection durch 1000 teilen
04.08.2003 18:31:20
Koenig W.
Hallo cpete
sollte etwa so funktionieren.

Sub Teilen1000()
Dim zelle As Range
On Error Resume Next
For Each zelle In Selection
zelle.Value = zelle.Value / 1000
Next zelle
End Sub

Gruss Wilhelm

AW: Alle Zahlen einer Selection durch 1000 teilen
04.08.2003 18:34:40
cpete
man dankt!
klappt prima.
gruss, cpete

Anzeige
AW: Alle Zahlen einer Selection durch 1000 teilen
04.08.2003 18:33:53
Hajo_Zi
Hallo cpete
das ist ohne Makro möglich. Schreibe in eine leere Zelle 1000, kopieren, markiere Deine Zellen, Bearbeiten, Inhalte einfügen, Division.
Gruß Hajo
Falls Code vorhanden wurde dieser getestet unter Betriebssystem XP Pro und Excel Version XP SBE.
Bitte kein Mail, Probleme sollen im Forum gelöst werden.
Microsoft MVP für Excel
Das Forum lebt auch von den Rückmeldungen.

Anzeige
AW: Alle Zahlen einer Selection durch 1000 teilen
04.08.2003 18:40:42
cpete
ich wollte halt gern ein makro...
der tipp allerdings ist cool. da sieht man mal, welche menue-auswahlen man jeden tag sieht und sich nie fragt wozu das wohl gut ist (ich meine den vorgangsbereich unter inhalte-einfuegen)...
gruss,
cpete

;

Forumthreads zu verwandten Themen

Anzeige
Anzeige
Anzeige
Anzeige
Anzeige

Infobox / Tutorial

Zahlen einer Auswahl in Excel durch 1000 teilen


Schritt-für-Schritt-Anleitung

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:

  1. Öffne Excel und drücke Alt + F11, um den Visual Basic for Applications (VBA) Editor zu starten.

  2. Klicke auf Einfügen > Modul, um ein neues Modul zu erstellen.

  3. 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
  4. Schließe den VBA-Editor.

  5. Markiere die Zellen, die Du durch 1000 teilen möchtest.

  6. 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.


Häufige Fehler und Lösungen

  • Problem: Die Zellen sind nicht vom Typ "Zahl".

    • Lösung: Stelle sicher, dass die Zellen, die Du teilen möchtest, tatsächlich Zahlen und nicht Text sind. Du kannst dies überprüfen, indem Du die Zellen formatierst.
  • Problem: Makro funktioniert nicht.

    • Lösung: Überprüfe, ob Makros in Deinen Excel-Einstellungen aktiviert sind. Gehe zu Datei > Optionen > Trust Center und aktiviere die Makros.

Alternative Methoden

Falls Du kein Makro verwenden möchtest, gibt es auch eine einfache Methode ohne VBA:

  1. Schreibe die Zahl 1000 in eine leere Zelle.
  2. Kopiere diese Zelle (Strg + C).
  3. Markiere die Zellen, die Du teilen möchtest.
  4. Klicke auf Start > Inhalte einfügen > Division.
  5. Klicke auf OK.

Mit dieser Methode kannst Du auch mehrere Zellen durch 1000 teilen, ohne die Werte zu kopieren.


Praktische Beispiele

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.


Tipps für Profis

  • Wenn Du regelmäßig mehrere Zellen dividieren musst, erwäge, eine benutzerdefinierte Funktion in VBA zu erstellen.
  • Nutze die Funktion =A1/1000 in einer neuen Zelle, um das Ergebnis in einer anderen Zelle anzuzeigen, ohne die Originaldaten zu verändern.
  • Achte darauf, dass Du keine Zellen mit 0 teilst, um Fehler zu vermeiden. Excel wird in diesem Fall eine Fehlermeldung anzeigen.

FAQ: Häufige Fragen

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.

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige