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

Fettschrifft bei Datum

Forumthread: Fettschrifft bei Datum

Fettschrifft bei Datum
03.05.2017 16:02:06
Hubert
Hallo, ich habe folgendes Problem:
Ich benutze eine Excel als Aktionsplan und schreibe immer wieder in eine Zelle ein neues Datum und dahinter in die gleiche Zelle was sich an diesem Tag zu diesem Punkt verändert hat.
Nun möchte ich das das Datum automatisch Fett formatiert wird. Aber nur das Datum und nicht die ganze Zelle.
Zudem stehen ja dann auch irgendwann mehrer Datums in der Zelle - diese sollen immer Fett dargestellt werden aber ohne das der Text dahinter auch Fett wird.
Beispiel:
10.07.2017 blablabla
12.07.2017 blublublu blu
15.07.2017 bla lba vfgjgioreg usw.
Gehts das mit VBA?
Für euere Unterstützung im Voraus besten Dank
Gruß Hubert
Anzeige

5
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: wäre machbar, allerdings ...
03.05.2017 16:14:46
...
Hallo Hubert,
... Excel hat genügend Spalten, warum erfasst Du das Datum nicht in einer und Deinen Text in der Nachbarzelle. Das spart nicht nur zusätzlichen Aufwand sondern macht Deine Daten auch flexibler auswertbar. Z.B. mit Autofilter und ...
Gruß Werner
.. , - ...
AW: wäre machbar, allerdings ...
03.05.2017 16:19:05
Hubert
Hallo Werner, normalerweise mache ich das auch - aber in diesem Fall würde ich das gerne so machen und es mir ersparen das ich jedesmal das Datum Fett machen muss.... ;)
Gruß Hubert
Anzeige
AW: wäre machbar, allerdings ...
03.05.2017 16:46:58
UweD
Hallo
das ginge so...
- Rechtsclick auf den Tabellenblattreiter
- Code anzeigen
- Diesen Code dort reinkopieren
Private Sub Worksheet_Change(ByVal Target As Range)
    Dim Z
    If Target.Column = 1 Then 'nur Spalte A auswerten 
        For Each Z In Target
            If IsDate(Left(Z, 10)) Then
                Z.Characters(Start:=1, Length:=10).Font.FontStyle = "Fett"
            End If
        Next
    End If
End Sub
Annahme, die Werte werden in Spalte A eingetragen
LG UweD
Anzeige
AW: Fettschrifft bei Datum
03.05.2017 16:56:06
Daniel
Hi
das macht im selektierten Bereich alle Textteile fett, die wie ein Datum aussehen (8 Ziffern, nach der 2. und 4. Ziffer ein Punkt)
Sub DatumFett()
Dim Zelle As Range
Dim i As Long
Dim txt As String
For Each Zelle In Selection.SpecialCells(xlCellTypeConstants, 2)
txt = Zelle.Value
For i = 1 To Len(txt) - 9
If Mid(txt, i, 10) Like "##.##.####" Then
Zelle.Characters(i, 10).Font.Bold = True
i =  i + 10
End If
Next
Next
End Sub

Gruß Daniel
Anzeige
AW: Fettschrifft bei Datum
04.05.2017 07:12:42
Hubert
Hallo Daniel,
Klasse funktioniert sehr gut - ich lasse den Code ausführen bei verlassen jeder Zelle in der Spalte in der ich das Datum Fett haben möchte.
Mit:
Private Sub Worksheet_Change(ByVal Target As Range)
If Application.Intersect(Target, Range("D1:D1000")) Is Nothing Then Exit Sub
Call DatumFett
End Sub
und lasse dann dein Makro ausführen!
Herzlichen Dank an euch fürs helfen!
Gruß Hubert
Anzeige
;
Anzeige

Infobox / Tutorial

Automatische Fettschrift für Datumsangaben in Excel


Schritt-für-Schritt-Anleitung

Um Datumsangaben in einer Excel-Zelle automatisch fett zu formatieren, kannst Du VBA (Visual Basic for Applications) verwenden. Hier ist eine einfache Anleitung:

  1. Öffne Excel und gehe zu dem Arbeitsblatt, in dem Du das Datum fett formatieren möchtest.

  2. Rechtsklicke auf den Tabellenblattreiter (unten links) und wähle "Code anzeigen".

  3. Füge den folgenden Code ein:

    Private Sub Worksheet_Change(ByVal Target As Range)
       Dim Z As Range
       If Target.Column = 1 Then 'nur Spalte A auswerten
           For Each Z In Target
               If IsDate(Left(Z, 10)) Then
                   Z.Characters(Start:=1, Length:=10).Font.Bold = True
               End If
           Next
       End If
    End Sub
  4. Schließe den VBA-Editor und teste das Makro, indem Du ein Datum in die Zelle eingibst.

Mit diesem Code wird das Datum in der ersten Spalte fett dargestellt, während der restliche Text in der Zelle normal bleibt.


Häufige Fehler und Lösungen

  • Fehler: Das Datum wird nicht fett.

    • Lösung: Überprüfe, ob der Code im richtigen Blatt eingefügt wurde. Stelle sicher, dass Du in Spalte A ein Datum eingibst.
  • Fehler: Die Formatierung wird nicht aktualisiert.

    • Lösung: Stelle sicher, dass das Makro bei jeder Änderung der Zelle ausgeführt wird. Der Code sollte im Worksheet_Change-Ereignis platziert sein.

Alternative Methoden

Wenn Du keine VBA-Lösungen verwenden möchtest, kannst Du die Daten auch in zwei separaten Spalten eingeben: eine für das Datum und eine für den Text. Dadurch wird die Übersichtlichkeit erhöht, und Du kannst die Autofilter-Funktion nutzen, um Daten besser auszuwerten.


Praktische Beispiele

Hier sind einige Beispiele, wie Du das Datum und den Text eingeben kannst:

  • Beispiel 1:
    • Zelle A1: 10.07.2017 blablabla
    • Zelle A2: 12.07.2017 blublublu blu

In diesem Fall wird nur das Datum in der Zelle A1 fett angezeigt.

  • Beispiel 2:
    • Zelle A1: 15.07.2017 bla lba vfgjgioreg

Jedes Mal, wenn Du ein neues Datum hinzufügst, wird es automatisch fett dargestellt.


Tipps für Profis

  • Nutze die Worksheet_Change-Ereignisprozedur, um mehrere Zellen zu überwachen. Du kannst den Bereich anpassen, indem Du Range("D1:D1000") im Code änderst, um Deine Anforderungen zu erfüllen.
  • Experimentiere mit verschiedenen Schriftarten und -größen, um die Lesbarkeit Deiner Daten zu verbessern.

FAQ: Häufige Fragen

1. Kann ich das Datum in einer anderen Spalte fett formatieren?
Ja, Du musst lediglich die Spaltennummer im Code anpassen. Ändere Target.Column = 1 in die entsprechende Spaltennummer.

2. Funktioniert das in Excel 2016?
Ja, der VBA-Code ist mit Excel 2016 und anderen modernen Versionen von Excel kompatibel.

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