Live-Forum - Die aktuellen Beiträge
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Shortcut für Dezimalstellen

Forumthread: Shortcut für Dezimalstellen

Shortcut für Dezimalstellen
20.08.2008 11:06:04
Peter
Liebe Community,
ich würde gerne einen Shortcut für das erhöhen/reduzieren der Dezimalstellen in einer Zelle/Bereich kreieren, da es meines Wissens nach diesen Shortcut so nicht gibt.
Kann mir jemand bei diesem Vorhaben in VBA helfen. Ich würde gerne, dass mit den Shortcuts "STRG+," bzw "STRG+." die Dezimalzahlen reduziert bzw. erhöht werden.
Besten Dank und VG
Peter

Anzeige

6
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: zum Anfangen
20.08.2008 11:48:02
hary
Hallo Peter
Makro aufzeichnen, anschliessend unter Makro/Optionen Tastenkombination" strg +
Gruss Hary

AW: zum Anfangen
20.08.2008 12:10:00
Peter
Hallo Harry,
hatte ich mir auch shcon überlegt aber folgendes Problem tritt dabei auf:
Du kannst damit nur eine bestimmte Anzahl von Dezimalstellen aufnehmen. Ich würde die funktion gerne so benutzten, dass beim drücken des Shortcuts eine Dezimalstellen reduziert bzw. hinzugefügt wird.
Gibt es dazu eine möglichkeit?
VG Peter

Anzeige
AW: zum Anfangen
20.08.2008 13:32:46
Hajo_Zi
Hallo Peter,

Option Explicit
Sub dazu()
If InStr(Selection.NumberFormat, ".") = 0 Then
Selection.NumberFormat = "0.0"
Else
Selection.NumberFormat = Selection.NumberFormat & 0
End If
End Sub
Sub weniger()
If InStr(Selection.NumberFormat, ".") > 0 Then
Selection.NumberFormat = Left(Selection.NumberFormat, Len(Selection.NumberFormat) - 1)
End If
End Sub



Anzeige
AW: Shortcut für Dezimalstellen
20.08.2008 12:06:06
Daniel
Hi
ich kenne jetzt die Symbolleisten für die Version 2007 nicht, aber in den Versionen davor gibt es in der Symbolleiste "Format" für diese Funktionalität 2 eigene Buttons, so daß es nicht notwenig ist, da selber was zu basteln.
Userbild
Gruß, Daniel

Anzeige
die codes
20.08.2008 12:50:56
selli
hallo peter,
so sehen die selbstgebastelten codes aus:

Private Sub CommandButton1_Click()
On Error Resume Next
If Selection.NumberFormat = "0" Then
Selection.NumberFormat = Selection.NumberFormat & ".0"
Else
Selection.NumberFormat = Selection.NumberFormat & "0"
End If
End Sub



Private Sub CommandButton2_Click()
On Error Resume Next
If Selection.NumberFormat = "0.0" Then
a = Len(Selection.NumberFormat) - 2
Selection.NumberFormat = Left(Selection.NumberFormat, a)
Else
a = Len(Selection.NumberFormat) - 1
Selection.NumberFormat = Left(Selection.NumberFormat, a)
End If
End Sub


gruß selli

Anzeige
Danke Hajo,wieder was gelernt owT
20.08.2008 13:45:00
hary
.
;
Anzeige
Anzeige

Infobox / Tutorial

Shortcut für Dezimalstellen in Excel


Schritt-für-Schritt-Anleitung

Um einen Excel Shortcut zum Erhöhen oder Reduzieren von Dezimalstellen zu erstellen, kannst du die folgenden Schritte befolgen:

  1. Öffne Excel und gehe zu Entwicklertools > Visual Basic, um den VBA-Editor zu starten.
  2. Klicke auf Einfügen und wähle Modul, um ein neues Modul zu erstellen.
  3. Füge den folgenden VBA-Code in das Modul ein:
Option Explicit
Sub dazu()
    If InStr(Selection.NumberFormat, ".") = 0 Then
        Selection.NumberFormat = "0.0"
    Else
        Selection.NumberFormat = Selection.NumberFormat & "0"
    End If
End Sub

Sub weniger()
    If InStr(Selection.NumberFormat, ".") > 0 Then
        Selection.NumberFormat = Left(Selection.NumberFormat, Len(Selection.NumberFormat) - 1)
    End If
End Sub
  1. Speichere das Modul und schließe den VBA-Editor.
  2. Gehe zu Makros, wähle die erstellten Makros aus und klicke auf Optionen.
  3. Setze die gewünschten Shortcuts, z.B. STRG + . für "dazu" und STRG + , für "weniger".

Jetzt kannst du die Dezimalstellen in Excel mit den Shortcuts einfach erhöhen oder reduzieren.


Häufige Fehler und Lösungen

  • Fehler: Der Shortcut funktioniert nicht.

    • Lösung: Überprüfe, ob du die Makros richtig gespeichert und die Tastenkombinationen korrekt zugewiesen hast.
  • Fehler: Excel zeigt die Fehlermeldung "Zahl nicht im richtigen Format" an.

    • Lösung: Stelle sicher, dass die Zellen, die du anpassen möchtest, das richtige Zahlenformat haben. Du kannst auch den Code anpassen, um sicherzustellen, dass die Zellen in einem unterstützten Format sind.

Alternative Methoden

Wenn du keinen VBA-Code verwenden möchtest, kannst du die Dezimalstellen auch manuell über die Excel-Oberfläche anpassen:

  1. Markiere die Zelle oder den Bereich, dessen Nachkommastellen du ändern möchtest.
  2. Klicke mit der rechten Maustaste und wähle Zellen formatieren.
  3. Wähle den Tab Zahlen und passe die Anzahl der Dezimalstellen unter Zahl an.

Du kannst auch direkt in der Multifunktionsleiste die Schaltflächen Dezimalstellen erhöhen oder Dezimalstellen reduzieren verwenden, um die Nachkommastellen in Excel zu ändern.


Praktische Beispiele

  • Beispiel 1: Du hast eine Zelle mit dem Wert 10.00 und möchtest ihn auf 10.0 reduzieren. Mit dem Shortcut STRG + , wird die Dezimalstelle entfernt.

  • Beispiel 2: Wenn du 9.5 hast und die Nachkommastellen erhöhen möchtest, drücke STRG + ., um es auf 9.50 zu ändern.

Diese Methoden sind besonders nützlich, wenn du mit vielen Zahlen arbeitest und die Excel Dezimalstellen effizient anpassen möchtest.


Tipps für Profis

  • Nutze die Shortcut-Makros in Kombination mit anderen Excel-Funktionen, um deine Arbeitsabläufe zu optimieren.
  • Du kannst die Makros auch anpassen, um spezifische Anforderungen zu erfüllen, wie das Entfernen von Kommastellen oder das Formatieren von Zahlen als Währung.
  • Experimentiere mit weiteren VBA-Funktionen, um deine Excel-Kenntnisse zu erweitern und eigene Automatisierungen zu erstellen.

FAQ: Häufige Fragen

1. Wie kann ich die Dezimalstellen in Excel dauerhaft entfernen?
Um die Nachkommastellen in Excel dauerhaft zu entfernen, kannst du die Zellen formatieren und das Zahlenformat auf "Ganzzahl" setzen.

2. Gibt es einen Shortcut, um alle Nachkommastellen gleichzeitig zu entfernen?
Der Shortcut, um alle Nachkommastellen gleichzeitig zu entfernen, existiert nicht. Du kannst jedoch das Format für mehrere Zellen gleichzeitig anpassen, indem du alle Zellen markierst und dann das Format änderst.

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige