HERBERS
Excel-Forum
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Entdecke rund 2 Millionen Excel-Lösungen im
Forumsarchiv

Beiträge zum Thread: Zellen formatieren

moselfuchs
08.07.2026 08:23:31
Zellen formatieren
UweD
08.07.2026 08:48:47
AW: Zellen formatieren
moselfuchs
09.07.2026 06:31:31
AW: Zellen formatieren
UweD
09.07.2026 08:02:57
AW: Zellen formatieren
moselfuchs
09.07.2026 08:23:29
AW: Zellen formatieren
MCO
08.07.2026 09:01:45
AW: Zellen formatieren
UweD
08.07.2026 09:31:55
AW: Zellen formatieren
moselfuchs
09.07.2026 06:38:33
AW: Zellen formatieren
Forumbeitrag
Excel-Version des Fragestellers:
2022
Erfahrungslevel des Fragestellers:
Basiskenntnisse in Excel
moselfuchs
08.07.2026 08:23:31
Zellen formatieren
Guten Morgen "Gemeinde",
ich erbitte euern Rat oder Hilfe.
Ich möchte folgendes realisieren. In Blatt Einteilung-Termine befindet sich in Zelle E5 ein Dropdown Feld. Wenn in diesem der Text "Luftgewehr 1.10" oder "Luftpistole 2.10" ausgewählt wurde, soll im Blatt Einzel-Wertung in Zelle F9 der Eingabewert (Zahl) mit einer Dezimalstelle angezeigt werden. Stehen in dem Dropdownfeld andere Texte, soll der Eingabewert ohne Dezimalstelle angezeigt werden. Diese Formatierung soll nachher in die anderen Zellen des Blattes übernommen werden.
Wenn das zu realisieren wäre, hätten ehrenamtliche Helfer es viel leichter.
Eine Beispieldatei habe ich angehängt.
Vielen Dank vorab.

https://www.herber.de/bbs/user/180883.xlsm
Auf Beitrag antworten
Forumbeitrag
Excel-Version des Fragestellers:
2022
Erfahrungslevel des Fragestellers:
Basiskenntnisse in Excel
UweD
08.07.2026 08:48:47
AW: Zellen formatieren
Hallo


Das ginge über Bedingte Formatierung

- markiere den Bereich F9:M100
- Formatierung Zahl ohne Nachkomma


- Markiere nun den Bereich F9:K100 und bei gedrückter Strg-Taste noch M9:M100
- Bedingte Formatierung, Formel zur...
- als Formel nimmst du =($C$5="Luftgewehr 1.10")+($C$5="Luftpistole 2.10")
- unter Format dann Zahl mit einer Nachkommastelle
- OK, OK

LG UweD
Auf Beitrag antworten
Forumbeitrag
Excel-Version des Fragestellers:
2022
Erfahrungslevel des Fragestellers:
Basiskenntnisse in Excel
moselfuchs
09.07.2026 06:31:31
AW: Zellen formatieren
Hallo UweD,
herzlichen Dank für deine schnelle Antwort, aber es funktioniert nicht in meiner Tabelle. Kann es daran liegen, dass im Blatt Einzel-Wertung in C5 eine Formel steht. Hier wird der Text vom Blatt Einteilung-Termine aus einem Dropdownfeld kopiert. Ich habe auch versucht deine Formel umzuschreiben, auch kein Erfolg.
LG moselfuchs
Auf Beitrag antworten
Forumbeitrag
Excel-Version des Fragestellers:
2022
Erfahrungslevel des Fragestellers:
Basiskenntnisse in Excel
UweD
09.07.2026 08:02:57
AW: Zellen formatieren
Hallo nochmal


Ich habe es, so wie beschrieben, in deine Datei eingebaut.

Das spielt keine Rolle, ob in Wertung-Einzel C5 eine Formel steht...


LG UweD


https://www.herber.de/bbs/user/180887.xlsm
Auf Beitrag antworten
Forumbeitrag
Excel-Version des Fragestellers:
2022
Erfahrungslevel des Fragestellers:
Basiskenntnisse in Excel
moselfuchs
09.07.2026 08:23:29
AW: Zellen formatieren
Hallo UweD,
ich verstehe nicht, warum es bei mir nicht funktioniert hat. Deine Datei ist einwandfrei, so wie ich es mir vorstelle.
Herzlichen Dank für deine superschnelle Hilfe.
LG moselfuchs
Auf Beitrag antworten
Forumbeitrag
Excel-Version des Fragestellers:
2022
Erfahrungslevel des Fragestellers:
Basiskenntnisse in Excel
MCO
08.07.2026 09:01:45
AW: Zellen formatieren
Moin!

Leider hast du den VBA-Teil mit Passwort ausgeblendet, daher kann ich da weder reinschauen, noch testen.

Theoretisch müsste es aber so klappen:

Kopiere den Code in das Worksheet-Modul, in CHANGE 

Private Sub Worksheet_Change(ByVal Target As Range)    

    If Target.count > 1 Then Exit Sub

    If Target.Address(0, 0) <> "E5" Then Exit Sub

   

    If Target.Value = "Luftgewehr 1.10" Or _

        Target.Value = "Luftpistole 2.10" Then

        Sheets("Wertung-Einzel").Range("F9:I12").NumberFormat = "0"

    Else

        Sheets("Wertung-Einzel").Range("F9:I12").NumberFormat = "0.0"

    End If

End Sub


Den Bereich zum ändern hab ich schon auf den Wertebereich erweitert, sicher willst du aber in den Zeilen noch was dazumachen.

Viel Erfolg!

Gruß, MCO
Auf Beitrag antworten
Forumbeitrag
Excel-Version des Fragestellers:
2022
Erfahrungslevel des Fragestellers:
Basiskenntnisse in Excel
UweD
08.07.2026 09:31:55
AW: Zellen formatieren
>> Leider hast du den VBA-Teil mit Passwort ausgeblendet, daher kann ich da weder reinschauen, noch testen.


das ist sein bisheriger Code im Blatt Einteilung- Termine
Private Sub Worksheet_Change(ByVal Target As Range)

  If Target.Address = "$D$1" Then

  Set rngZ = Target

  Application.OnTime EarliestTime:=Now + TimeValue("00:00:01"), _

                        Procedure:="ZelleWiederLeeren"

End If

End Sub


Im Blatt Wertung-Einzel nix


LG UweD
Auf Beitrag antworten
Forumbeitrag
Excel-Version des Fragestellers:
2022
Erfahrungslevel des Fragestellers:
Basiskenntnisse in Excel
moselfuchs
09.07.2026 06:38:33
AW: Zellen formatieren
Hallo MCO,
in der Beispiel Datei hatte ich den VBA Schutz deaktiviert. Ich sage aber gleich, VBA ist nicht unbedingt "mein Ding, (mein Baujahr 1950)".
LG moselfuchs
Auf Beitrag antworten