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

Zellen mit Exponent-Darstellung autom. umwandeln

Forumthread: Zellen mit Exponent-Darstellung autom. umwandeln

Zellen mit Exponent-Darstellung autom. umwandeln
23.08.2006 15:23:38
Danny
Hallo zusammen
Habe in einer Spalte alle möglichen Werte (Text, Zahlen, Datum, Beträge usw.). Einige Zahlen werden in der Exponent-Darstellung angezeigt, z.B. 7.02091E+22. Ich habe nun herausgefunden dass Excel diese Darstellung ab einer Länge von 12 Ziffern wählt. Also wollte ich mit einem Abschnitt im Makro alle Zellen die länger sind als 11 in das Zahlenformat umwandeln, wovon Texte, Daten und Beträge nicht betroffen wären, das funzt aber nicht:
' Zahlen richtig anzeigen
For zeile = 1 To sa
If ActiveSheet.Cells(zeile, 2).Value.Length &gt 11 Then _
.NumberFormat = "0"
End If
Next zeile
"Unzulässiger oder nicht ausreichend definierter Verweis" wird angezeigt (sa ist die Zeilennummer der untersten Zeile). Kann mir jemand sagen was ich falsch mache oder gibt es eine andere, elegantere Möglichkeit?
Danny
Anzeige

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

Betreff
Datum
Anwender
Anzeige
AW: Zellen mit Exponent-Darstellung autom. umwandeln
23.08.2006 15:30:31
Eule
Hi Danny
du musst die Zellen mit "Zahl" formatieren, bei der Formatierung "Standard" gibts ab 11 Ziffern die exp. Darstellung, Datumeinträge natürlich mit dem Datumsformat.
Gruss Eule
AW: Zellen mit Exponent-Darstellung autom. umwandeln
23.08.2006 15:41:55
Danny
Hallo Eule
Danke für die rasche Antwort, allerdings ist mir das klar, genau das soll das Makro mit der Zeile .NumberFormat = "0" ja machen. Es handelt sich bei der Tabelle wiederum um das Ergebnis einer SQL-Abfrage (das Makro ändert die Darstellung von horizontal in vertikal) welche ich 'verschönern' möchte, u.a. Beträge mit 2 Kommastellen usw. Da es sich um grosse Tabelle handelt und der Sinn eines Makros die Automatisierung von Arbeitsschritten ist möchte ich die Funktion mit dem Makro ausführen und nicht von Hand.
Gruss, Danny
Anzeige
AW: Zellen mit Exponent-Darstellung autom. umwandeln
23.08.2006 15:41:12
Eule
Hi Danny nochmal
test mal dies:

Sub tt()
Dim zeile
For zeile = 1 To sa
If Len(ActiveSheet.Cells(zeile, 2).Value) > 11 Then Cells(zeile, 2).NumberFormat = "0"
Next zeile
End Sub

Gruss Eule
AW: Zellen mit Exponent-Darstellung autom. umwandeln
23.08.2006 15:46:02
Danny
Super, herzlichen Dank! Es klappt wie vorgesehen.
Nochmals Danke für die superschnelle Antwort, hab schon ne Menge Zeit mit googeln verloren bevor ich hier postete. Nun kann's weitergehen mit der Arbeit.
Gruss, Danny
Anzeige
;

Forumthreads zu verwandten Themen

Hintergrundfarbe in Zahl umwandeln
Timo

Hallo zusammen.
Gibt es über VBA eine Möglichkeit, die Hintergrundfarbe einer Zelle in eine Zahl umzuwandeln und das schneller als mit for- Schleifen?
Habe einen Bereich ("J16:AG39"), wo ich per Zellaktivierung mit der Maus Zellen oder auch Zellbereiche mit einer Hintergrundfarbe verseh...
07.08.2008 19:30:00
Thread-ID: 1000082
4 Beiträge
Teile von Zahlen auslesen und einfügen
Zahlen

Hallo Leute,
ich habe ein Problem mit Zahlenformaten.
In meiner Tabelle steht der Text '4917234598' (natürlich viele solcher Zahlen untereinander.
Jetzt möchte ich, daß diese Zahl (später eine ganze Spalte) über Makro so aufbereitet wird, daß aus '4917234598' 017234598 wird.
08.08.2008 22:57:00
Thread-ID: 1000426
21 Beiträge
Formel "Text" ROTE Zahl bei Minuswert?
dieter(drummer)

Hi Formelspezialisten,
in Zelle B2 steht dise Formel (funktionert auc h):
=TEXT(I4-D4;"00.0")&" ("&TEXT(I4/D4-1;"0%")&")".
Mein Ziel, dass eine Minuszahl in ROT erscheint. Hab's mit bedingte Formatierung versucht und bekomme es nicht hin.
Gibt es eine Möglichkeit, a...
12.08.2008 10:59:29
Thread-ID: 1001135
7 Beiträge
Anzahl unterschiedl. Werte in Spalte zählen
Jakob

Hallo,
ein ähnliches Problem wurde hier im Forum schon einmal diskutiert. (https://www.herber.de/forum/archiv/632to636/t635773.htm)
Meine Problem:
Wie kann ich die Anzahl unterschiedlicher Einträge/Werte einer Spalte erhalten, ohne dass diese vorgegeben werden ( also ohne die Verwe...
14.08.2008 18:16:11
Thread-ID: 1001934
2 Beiträge
Inputbox - eingegebene Zahl aus Variable
bernie

Hallo Helfer,
ich habe mit den Inputbox (en) ein Problem.
In möchte in eine Inpubox eine Zahl eingeben, welche dann in meinem Makro als Variable zur Verfügung stehen soll.
In Spalte A stehen neben dem Namen auch die Ruf-Nummern.
Die Rufnummern lasse ich mir in Spalte B ausg...
16.08.2008 17:44:00
Thread-ID: 1002347
3 Beiträge
In Spalte nach Anzahl eines Begriffs suchen?
Lauren

Hall Leute!
ich will nach einem Begriff, in meinem Fall nach "SUMs" in der Spalte C suchen und wissen wie oft es in der Spalte vorkommt.
Bei Berechnungen funktioniert es mit ZÄHLENWENN ohne Probleme aber wie erhalte ich die "absolute" Zahl?
Vielen Dank für Eure Hilfe!
Grüße
...
19.08.2008 11:08:23
Thread-ID: 1002846
5 Beiträge
Zahlen einer Tabelle in Userform einlesen
Josef

Guten Morgen!
Ich habe in einem Arbeitsblatt mehrere Tabellen.
In einer UserForm habe habe ich 460 TextBoxen, wobei die Zählung immer pro Reihe senkrecht erfolgt.
Spalte 1 = TextBox1-23, Spalte2 = TextBox24- TextBox46 usw.
Ich möchte nun z.B. die erste Tabelle in die Textboxen e...
20.08.2008 07:07:03
Thread-ID: 1003059
19 Beiträge
Erste Zahlen eine Tel.-Tabelle in Farbe
Bernie
Hallo,
in einer Telefontabelle, welche sich ständig ändert, möchte ich die ersten 4 Ziffern der Rufnummer per Makro rot einfärben.
Hat jemand eine gute Idee?
https://www.herber.de/bbs/user/54765.xls
21.08.2008 12:04:53
Thread-ID: 1003430
4 Beiträge
Umwandlung text nach zahlen bei Formulareingabe
Dieter

Hallo miteinander,
ich habe ein Problem mit der umwandlung von Text nach Zahlen. In meinem Formular habe ich Textfelder definiert, in dem eigentlich nur Zahlen eingetragen werden. Nun sollen diesen Werte in einer Zelle abspeichern und weitere Berechnung durchführen, leider werden diese Zahl...
26.08.2008 19:48:34
Thread-ID: 1004910
4 Beiträge
Zahlencode mit Punkte Formatieren
runny

Wer kann mir weiter helfen.
Ich habe einen 10-stelligen Zahlencode 0265006214 und diesen soll Excel autom. in das Format 0265.006.214 bringen.
Also nach der 4.Stelle und der 7.Stelle einen Punkt (SAP-Format). Zelle formatieren und ####.###.### habe ich schon ohne Erfolg geprüft.
Er...
28.08.2008 00:14:00
Thread-ID: 1005247
3 Beiträge
Anzahl Monatseinträge
Hartwig

Hallo Guten Morgen.
Ich suche eine Formel mit der ich aus einer Liste von Datumsangaben die Anzahl
der Einträge für die einzelnen Monate errechnen kann.
In Spalte A steht z.B.
01.01.2008
14.01.2008
17.01.2008
04.02.2008
26.02.2008
05.03.2008
Als Ergebnis...
29.08.2008 09:43:00
Thread-ID: 1005683
2 Beiträge
Anzahl Zelleinträge zählen
Markus

Hallo Excel-Profis,
Excel-Sheet mit folgender Struktur:
383729DI MS TIC
383729DI MS TIC
383729DI DAD TWC
383729DI MS TIC
383729DI MS TIC
383729DI DAD TWC
383729DI MS TIC
383729DI XIC
383729DI MS TIC
383729DI DAD TWC
383730DI MS TIC
383730DI XI...
01.09.2008 13:54:00
Thread-ID: 1006432
4 Beiträge
Anzeige
Anzeige

Infobox / Tutorial

Zellen mit Exponent-Darstellung umwandeln

Schritt-für-Schritt-Anleitung

Um Zellen mit Exponent-Darstellung in Excel automatisch in Dezimalzahlen umzuwandeln, kannst Du ein einfaches VBA-Makro verwenden. Hier ist eine Schritt-für-Schritt-Anleitung:

  1. Öffne Excel und drücke ALT + F11, um den VBA-Editor zu öffnen.

  2. Füge ein neues Modul hinzu:

    • Klicke im Menü auf Einfügen und wähle Modul.

  3. Kopiere folgenden Code in das Modul:

    Sub ExponentialzahlenUmwandeln()
   Dim zeile As Long
   Dim sa As Long
   sa = ActiveSheet.Cells(Rows.Count, 2).End(xlUp).Row ' Letzte Zeile in Spalte B

   For zeile = 1 To sa
       If Len(ActiveSheet.Cells(zeile, 2).Value) > 11 Then
           ActiveSheet.Cells(zeile, 2).NumberFormat = "0"
       End If
   Next zeile
End Sub

  4. Führe das Makro aus, indem Du im VBA-Editor auf F5 drückst oder zurück in Excel gehst und ALT + F8 wählst, um das Makro zu starten.

Häufige Fehler und Lösungen

  • Fehler: "Unzulässiger oder nicht ausreichend definierter Verweis"

    • Lösung: Stelle sicher, dass Du die richtige Syntax verwendest. Achte insbesondere auf den Verweis auf das .Value-Attribut. Der korrekte Code lautet If Len(ActiveSheet.Cells(zeile, 2).Value) > 11 Then.

  • Problem: Zellen werden nicht umgewandelt

    • Lösung: Überprüfe, ob die Zellen in der richtigen Spalte ausgewählt sind. Das oben genannte Beispiel geht von Spalte B aus.

Alternative Methoden

Wenn Du kein VBA verwenden möchtest, kannst Du auch die folgende Methode ausprobieren:

  1. Markiere die Zellen, die Du umwandeln möchtest.
  2. Gehe zu Start -> Zahlenformat und wähle Zahl.
  3. Achte darauf, dass die Zellen nicht mehr als 11 Ziffern enthalten, um die Exponentialdarstellung zu vermeiden.

Praktische Beispiele

  • Wenn Du eine Zahl wie 7.02091E+22 hast und diese in 70209100000000000000000 umwandeln möchtest, kannst Du das oben genannte Makro verwenden.
  • Ein weiteres Beispiel wäre die Umwandlung von 1.23E+11 in 123000000000.

Tipps für Profis

  • Verwende die Funktion =TEXT(A1;"0"), um eine Zelle mit Exponentialdarstellung in Text ohne die E-Darstellung umzuwandeln.
  • Um sicherzustellen, dass die Zellen nicht als Exponentialzahlen angezeigt werden, kannst Du die Formatierung auf Zahl setzen und die Dezimalstellen anpassen.

FAQ: Häufige Fragen

1. Wie kann ich alle Zellen in einer Tabelle umwandeln? Du kannst das VBA-Makro anpassen, um alle Zellen in verschiedenen Spalten zu überprüfen, indem Du die Schleife erweiterst.

2. Was mache ich, wenn meine Daten aus einer SQL-Abfrage stammen? Stelle sicher, dass Du die Formatierung der Zellen nach dem Import der Daten anpasst. Du kannst das VBA-Makro direkt nach dem Import ausführen, um alle Exponentialzahlen zu konvertieren.

3. Gibt es eine Möglichkeit, dies ohne VBA zu tun? Ja, Du kannst die Formatierung der Zellen manuell ändern, aber das ist nicht so effizient wie die Automatisierung mit einem Makro.

Beliebteste Forumthreads (12 Monate)

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