Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
760to764
760to764
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Zahlen per Makro durch 1000 teilen

Forumthread: Zahlen per Makro durch 1000 teilen

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
Anzeige

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

Betreff
Datum
Anwender
Anzeige
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..
Anzeige
AW: Zahlen per Makro durch 1000 teilen
04.05.2006 14:22:30
Andreas
Danke, das funktioniert auch.
;

Forumthreads zu verwandten Themen

Spalte A durchsucht klein 100 dann spalte b summe
Piola

Hallo
bräuchte eure Hilfe.
Und zwar brauche eine Formel die, die Spalte A durchsucht nach klein 100 dann soll die Einträge von Spalte B summieren
-----A-----------B--------C
1-Gewicht---Erträge
2---43---------234-----Summe Erträge
3---123--------...
21.07.2009 20:35:25
Thread-ID: 1090356
4 Beiträge
Anzeige
Planwerte durch 2 teilen...
Nik

Einen schönen guten Morgen zusammen..
ich stehe etwas auf der Leitung bezüglich einer Excel-Formel. Ich bin am aufsetzen der Planung und möchte gerne mit einer Formel (durchgehend für alle Produkte) die Planwerte der Bundles auf die Produkte verteilen.
In Spalte C stehen die Planwerte,...
23.12.2014 10:49:03
Thread-ID: 1399443
4 Beiträge
Spalte durchsuche nach 2 bestimmten Textteilen
Manuel

Hallo allerseits,
ich möchte eine Spalte (D7:D50) durchsuchen und die Anzahl der Treffer in D51 und D52 erhalten.
In der Spalte kommen zusammengesetzte Texte wie z.B. ReG-f, ReG-t, SoG-f, SoG-t vor.
Der erste Teil des Suchbegriffs ("ReG") wird durch eine Zelle vorgegeben(G2)jetzt mö...
03.07.2017 15:49:15
Thread-ID: 1567163
3 Beiträge
Anzeige
SOLVER: Zahlen Teilen durch best. Zahlen ohne Rest
Carsten

Hallo zusammen,
zunächst: http://www.clever-excel-forum.de/thread-14954-post-115096.html#pid115096
ich habe ein Problem und zwar möchte ich bestimmte Zahlen durch eine Reihe von Zahlen teilen ohne Rest. ( In 4 Teile )
Bsp:
Seiten: 128
Mögliche Divisoren: 16, 20, 24, 28, 32,...
29.03.2018 10:55:57
Thread-ID: 1617187
2 Beiträge
Anzeige
Werte auf die man sich bezieht durch 100 Teilen
Nero

Hallo zusammen!
Folgendes: ich möchte Prozentzahlen die untereinanderstehen in einer Tabelle beim auslesen für eine Funktion durch 100 teilen. Habe folgendes versucht:
=FluidString10('Tabelle1'!D213:K226;(('Tabelle1'!T213:V226)/100);"mass")
geht aber nicht, deswegen schreibe ich hie...
26.06.2019 12:45:51
Thread-ID: 1699621
3 Beiträge
Kopierte Werte immer durch 1.000 teilen
Susi79

Hallo,
ich brauche mal wieder einen kleinen Schubs in die richtige Richtung, und zwar kopiere ich Werte aus Tabelle 1 und füge diese in Tabelle 2 ein. Dort muss der Wert allerdings durch 1.000 geteilt werden.
Momentan sieht der Code für das Einfügen in Tabelle 2 wiefolgt aus:
Sheets...
02.08.2006 09:59:09
Thread-ID: 787641
5 Beiträge
werte durch formel aufteilen
rolf

hallo
ich habe in einer spalte werte einer rechnung,diese werte möchte ich durch eine formel in mehrere spalten aufteilen.
hier ein beispiel.
https://www.herber.de/bbs/user/46736.xls
mfg rolf
12.10.2007 21:23:00
Thread-ID: 915524
5 Beiträge
Werte im Array durch 1000 teilen
Thomas
Hallo,
ich lese Werte aus einer Tabellenzeile in ein Array ein und würde dabei gerne jeden zweiten Wert durch 1000 teilen, wie kann ich das machen?
Aktuell lese ich die Werte so ein
Set rngBereichlj = wks.Range("AK:AK").Find(.Cells(lngRow2, 1).Value, LookIn:=xlValues, LookAt:=xlWhole) I...
05.01.2023 07:53:05
Thread-ID: 1914168
21 Beiträge
Anzeige
Anzeige

Infobox / Tutorial

Zahlen per Makro durch 1000 teilen

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:

  1. Öffne den VBA-Editor:

    • Drücke ALT + F11, um den Visual Basic for Applications (VBA) Editor zu öffnen.

  2. Neues Modul erstellen:

    • Klicke im Menü auf Einfügen und dann auf Modul, um ein neues Modul zu erstellen.

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

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

  5. 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:

  1. Hilfsspalte erstellen:

    • Gib in einer leeren Zelle die Formel =A1/1000 ein (ersetze A1 durch die Zelle, die du teilen möchtest).

  2. Formel nach unten ziehen:

    • Ziehe die untere rechte Ecke der Zelle nach unten, um die Formel auf die anderen Zellen anzuwenden.

  3. 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)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Anzeige