Zahlen per Makro durch 1000 teilen

Forumthread: Zahlen per Makro durch 1000 teilen

04.05.2006 13:53:28

Andreas

Hallo,
ich habe mir ein Makro aufgezeichnet, was mir die Zahl in einer Zelle durch 1000 teilen soll und anschließend soll der Cursor auf die nächste Zeile springen, damit ich falls gewünscht, die nächste Zahl diviedieren lassen kann. Das funktionierte aber nicht richtig, denn es hat mir die erste Zahl als festen Wert genommen und somit kam in jeder anderen Zelle dann das gleiche Ergebnis wie in der ersten Zelle.
Dann habe ich versucht eine Variable zu deklarieren, damit der Wert der Zelle an die Variable übergeben wird. Das funktioniert aber auch noch nicht.
Mein Quelltext sieht folgendermaßen aus:


Sub Makro4()
Dim a As Long
ActiveCell.Value = a
ActiveCell.FormulaR1C1 = "=" & a & "/1000"
ActiveCell.Offset(1, 0).Range("A1").Select
End Sub

Kann mir jemand helfen?
Gruss
Andreas

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: Zahlen per Makro durch 1000 teilen

04.05.2006 14:01:53

Ulf

Hallo Andreas
versuch mal so


Sub Makro4()
Dim a As Long
a = ActiveCell.Value
ActiveCell.FormulaR1C1 = "=" & a & "/1000"
ActiveCell.Offset(1, 0).Range("A1").Select
End Sub

mfg Ulf

AW: Zahlen per Makro durch 1000 teilen

04.05.2006 14:21:55

Andreas

Danke, das funktioniert.

AW: Zahlen per Makro durch 1000 teilen

04.05.2006 14:06:14

Reinhard

Hi Andreas,

Sub Makro4()
ActiveCell.Value = ActiveCell.Value / 1000
ActiveCell.Offset(1, 0).Select
End Sub

Gruß
Reinhard
ps: Ich freue mich über eine Rückmeldung ob diese Antwort hilfreich war oder nicht..

AW: Zahlen per Makro durch 1000 teilen

04.05.2006 14:22:30

Andreas

Danke, das funktioniert auch.

Infobox / Tutorial

Schritt-für-Schritt-Anleitung

Um in Excel alle Werte durch 1000 zu teilen, kannst du ein Makro verwenden. Hier ist eine Schritt-für-Schritt-Anleitung, wie du dies umsetzen kannst:

Öffne den VBA-Editor:
- Drücke ALT + F11, um den Visual Basic for Applications (VBA) Editor zu öffnen.
Neues Modul erstellen:
- Klicke im Menü auf Einfügen und dann auf Modul, um ein neues Modul zu erstellen.

Makro einfügen:

Kopiere und füge den folgenden Code in das Modul ein:

Sub Makro4()
Dim a As Long
a = ActiveCell.Value
ActiveCell.FormulaR1C1 = "=" & a & "/1000"
ActiveCell.Offset(1, 0).Range("A1").Select
End Sub

Makro ausführen:
- Schließe den VBA-Editor und kehre zu Excel zurück. Wähle die Zelle aus, die du teilen möchtest, und führe das Makro aus.
Cursor bewegen:
- Das Makro wird die Zahl in der aktiven Zelle durch 1000 teilen und den Cursor zur nächsten Zeile verschieben, sodass du die nächste Zahl ebenfalls einfach dividieren kannst.

Häufige Fehler und Lösungen

Problem: Das Makro gibt für alle Zellen den gleichen Wert zurück.
- Lösung: Stelle sicher, dass du den Wert der aktiven Zelle in die Variable a übergibst, bevor du die Berechnung durchführst. Verwende den Code aus der Schritt-für-Schritt-Anleitung.
Problem: Makro wird nicht ausgeführt.
- Lösung: Überprüfe die Makrosicherheitseinstellungen in Excel und stelle sicher, dass Makros aktiviert sind.

Alternative Methoden

Wenn du Excel alle Zellen durch 1000 teilen möchtest, ohne ein Makro zu verwenden, kannst du auch die folgende Methode nutzen:

Hilfsspalte erstellen:
- Gib in einer leeren Zelle die Formel =A1/1000 ein (ersetze A1 durch die Zelle, die du teilen möchtest).
Formel nach unten ziehen:
- Ziehe die untere rechte Ecke der Zelle nach unten, um die Formel auf die anderen Zellen anzuwenden.
Ergebnisse kopieren:
- Kopiere die Ergebnisse und füge sie in die Originalzellen ein, indem du Werte einfügen wählst.

Praktische Beispiele

Hier sind einige Beispiele, wie du Excel mehrere Zellen durch 1000 teilen kannst:

Beispiel 1: Du hast in den Zellen A1 bis A10 Werte, die du in Tausend Euro umrechnen möchtest. Wähle die Zelle B1 und gib =A1/1000 ein, ziehe die Formel nach unten und kopiere die Ergebnisse zurück in die Spalte A.
Beispiel 2: Wenn du eine ganze Spalte durch 1000 teilen möchtest, kannst du das Makro verwenden. Wähle die erste Zelle der Spalte aus und führe das Makro aus, um alle Werte in dieser Spalte zu dividieren.

Tipps für Profis

Makros automatisieren: Du kannst das Makro so anpassen, dass es bestimmte Bereiche oder Spalten automatisch bearbeitet, anstatt die aktive Zelle zu verwenden.
Fehlerbehandlung einfügen: Füge Fehlerbehandlungsroutinen in dein Makro ein, um Probleme wie leere Zellen oder nicht-numerische Werte zu erkennen.

Verwendung von Schleifen: Wenn du Excel alle Werte einer Spalte durch 1000 teilen möchtest, kannst du auch eine Schleife in dein Makro einfügen:

Sub GanzeSpalteTeilen()
   Dim i As Long
   For i = 1 To 100 ' Ändere die Zahl je nach Anzahl der Zeilen
       Cells(i, 1).Value = Cells(i, 1).Value / 1000
   Next i
End Sub

FAQ: Häufige Fragen

1. Wie kann ich die Werte in Excel durch eine andere Zahl teilen?
Du kannst die Zahl in der Formel einfach durch die gewünschte Zahl ersetzen, z.B. =A1/12, um 1000 durch 12 zu teilen.

2. Was passiert, wenn ich das Makro auf leere Zellen anwende?
Das Makro wird auf leere Zellen keinen Einfluss haben. Du kannst jedoch eine Fehlerbehandlung einfügen, um sicherzustellen, dass nur numerische Werte bearbeitet werden.

Beliebteste Forumthreads (12 Monate)

Zahlen per Makro durch 1000 teilen

Forumthread: Zahlen per Makro durch 1000 teilen

4
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Forumthreads zu verwandten Themen

Infobox / Tutorial

Zahlen per Makro durch 1000 teilen

Schritt-für-Schritt-Anleitung

Häufige Fehler und Lösungen

Alternative Methoden

Praktische Beispiele

Tipps für Profis

FAQ: Häufige Fragen

Beliebteste Forumthreads (12 Monate)

Zahlen per Makro durch 1000 teilen

Forumthread: Zahlen per Makro durch 1000 teilen

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

Forumthreads zu verwandten Themen

VBA Beispiele zu diesem und ähnlichen Themen

Infobox / Tutorial

Zahlen per Makro durch 1000 teilen

Schritt-für-Schritt-Anleitung

Häufige Fehler und Lösungen

Alternative Methoden

Praktische Beispiele

Tipps für Profis

FAQ: Häufige Fragen

Beliebteste Forumthreads (12 Monate)

4
Beiträge zum Forumthread

Beiträge zu diesem Forumthread