Anzeige

Anzeige

HERBERS

Excel-Forum (Archiv)

20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender

Vorheriger Thread

Vorheriger Thread

Rückwärts Blättern

Aktuelles Verzeichnis

Übersicht Verzeichnisse

Nächster Thread

Nächster Thread

Vorwärts blättern

Anzeige

Inhaltsverzeichnis

Spalten mit bestimmten Überschriften formatieren

Forumthread: Spalten mit bestimmten Überschriften formatieren
6 Beiträge zu diesem Forumthread
Anzeige
Threads zu ähnlichen Themen
VBA Beispiele zu verwandten Themen

Forumthread: Spalten mit bestimmten Überschriften formatieren

Spalten mit bestimmten Überschriften formatieren

01.07.2018 15:07:32

Hans

Hallo,
ich habe eine Tabelle, in der sich Spalten mit den Überschriften "Betrag", "Datum" und "Uhrzeit" x-mal wiederholen. Die Inhalte sind leider nicht entsprechend formatiert.
Gibt es eine Möglichkeit, alle Spalten mit der Überschrift "Betrag" zu markieren und dann zu formatieren.
Danach soll mit den Spalten"Datum" und "Uhrzeit" genauso verfahren werden.
LG

Anzeige

6
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: Spalten mit bestimmten Überschriften formatieren

01.07.2018 15:54:32

Nepumuk
AW: Spalten mit bestimmten Überschriften formatieren

01.07.2018 15:59:44

Hans
AW: Spalten mit bestimmten Überschriften formatieren

01.07.2018 16:10:58

Nepumuk
AW: Spalten mit bestimmten Überschriften formatieren

01.07.2018 16:13:27

Nepumuk
AW: Spalten mit bestimmten Überschriften formatieren

01.07.2018 16:25:12

Hans
mit bedingter Formatierung auch ohne Makro

01.07.2018 17:01:14

Daniel

Anzeige

AW: Spalten mit bestimmten Überschriften formatieren

01.07.2018 15:54:32

Nepumuk

Hallo Hans,
in welcher Zeile befinden sich die Überschriften?
Gruß
Nepumuk

AW: Spalten mit bestimmten Überschriften formatieren

01.07.2018 15:59:44

Hans

Hey Nepumuk,
die Überschriften befinden sich in Zeile 1.
LG

AW: Spalten mit bestimmten Überschriften formatieren

01.07.2018 16:10:58

Nepumuk

Hallo Hans,
teste mal

Public Sub Formatieren()
    Dim lngColumn As Long
    For lngColumn = 1 To Cells(1, Columns.Count).End(xlToLeft).Column
        Select Case Cells(1, lngColumn).Value
            Case "Betrag"
                Range(Cells(2, lngColumn), Cells(Rows.Count, lngColumn).End(xlUp)).NumberFormat = "#,##0.00"
            Case "Datum"
                Range(Cells(2, lngColumn), Cells(Rows.Count, lngColumn).End(xlUp)).NumberFormatLocal = "tt.mm.jjjj"
            Case "Uhrzeit"
                Range(Cells(2, lngColumn), Cells(Rows.Count, lngColumn).End(xlUp)).NumberFormatLocal = "HH:MM:SS"
        End Select
    Next
End Sub

Gruß
Nepumuk

Anzeige

AW: Spalten mit bestimmten Überschriften formatieren

01.07.2018 16:13:27

Nepumuk

Ich nochmal,
da ist noch ein Fehler drin. Test mal:

Public Sub Formatieren()
    Dim lngColumn As Long
    For lngColumn = 1 To Cells(1, Columns.Count).End(xlToLeft).Column
        Select Case Cells(1, lngColumn).Value
            Case "Betrag"
                Range(Cells(2, lngColumn), Cells(Rows.Count, lngColumn).End(xlUp)).NumberFormat = "#,##0.00"
            Case "Datum"
                Range(Cells(2, lngColumn), Cells(Rows.Count, lngColumn).End(xlUp)).NumberFormatLocal = "TT.MM.JJJJ"
            Case "Uhrzeit"
                Range(Cells(2, lngColumn), Cells(Rows.Count, lngColumn).End(xlUp)).NumberFormatLocal = "HH:MM:SS"
        End Select
    Next
End Sub

Gruß
Nepumuk

Anzeige

AW: Spalten mit bestimmten Überschriften formatieren

01.07.2018 16:25:12

Hans

Hey Nepumuk,
läuft, Dankeschön

mit bedingter Formatierung auch ohne Makro

01.07.2018 17:01:14

Daniel

HI
das müsste ohne Makro auch mit der Bedingten Formatierung funktionieren.
über die kannst du auch das Zahlenformat einstellen.
du brauchst dann 3 verschiedene Regeln für deinen Zellbereich.
die Formel für die Regel wäre dann
=A$1="Betrag"
=A$1="Datum"
=A$1="Uhrzeit"
Gruß Daniel

Anzeige

Forumthreads zu verwandten Themen

mit Datum aus TextBox rechnen

Hallo zusammen,
ich bin schon seit einer Woche am probieren und suchen, habe aber noch nichts gefunden.
Ich möchte das ein Datum aus einer TextBox in eine Tabelle übergeben wird, mit dem man rechnen kann.
Ich habe es schon mit Afterupdate probiert und etlichen Formatieren, z.B. CDat...

03.09.2017 13:55:00

Thread-ID: 1578299

Anzeige

mit Datum aus TextBox rechnen

Hallo zusammen,
ich bin schon seit einer Woche am probieren und suchen, habe aber noch nichts gefunden.
Ich möchte das ein Datum aus einer TextBox in eine Tabelle übergeben wird, mit dem man rechnen kann.
Ich habe es schon mit Afterupdate probiert und etlichen Formatieren, z.B. CDat...

03.09.2017 14:39:31

Thread-ID: 1578306

Anzeige

Bedingte Formatier. - Terminkollision - dynamische Tabelle

ProfundesNichtwissen

Nutze zuhause Excel 2011 (Mac) und im Büro Excel 365 (PC)
Liebe Excel-Spezialistinnen und -Spezialisten,
habe stundenlang und ergebnislos versucht, mit ChatGPT eine Lösung zu finden, wie ich in einer dynamischen Tabelle Terminkollisionen per Bedingter Formatierung anzeigen kann.

Tab...

22.09.2024 01:52:46

Thread-ID: 1991696

Tabelle mit VBA formatieren

Hallo,
ich möchte eine Tabelle mit VBA formatieren, damit Datenpaare erkennbar werden.
Die Tabelle hat Überschriften, 10 Spalten und eine variable Anzahl an Zeilen.
Es sollen nun per Makro die Zeilen 2 und 3 als Standard und die Zeilen 4 und 5 in Fettschrift usw. formatiert werden.<...

28.02.2011 15:01:54

Thread-ID: 1203352

Makro: Spalten mit best. Überschrift löschen

Hallo,
ich bekomme regelmäßig eine Exceltabelle mit einer Vielzahl von Spalten. Ich habe mir ein Makro geschrieben, um diese Tabelle zu formatieren und alle unwichtigen Spalten zu löschen. Für dieses Makro bräuchte ich einen Befehl, das nur Spalten mit best. Überschriften gelöscht werden. (...

19.05.2005 11:30:10

Thread-ID: 613322

VBA mehrere Prüfungen

Hallo,
ich habe bereits eine relativ umfangreiche Tabelle die auch mit etlichen Makros funktioniert. Was ich aber nicht hin bekomme, und wo ich auch nicht sicher bin wonach ich suchen soll ist folgendes:
Ich möchte eine Tabelle formatieren.
In dieser Tabelle können in jeder Spalte...

20.09.2013 11:05:15

Thread-ID: 1331647

Zu viele Seiten beim Drucken

Hallo Leute,
Ich habe ein Problem...
Ich habe mir (unter anderem mit der Hilfe vieler toller Beiträge aus diesem Forum) einen Code gebastelt. Er formatiert eine Excel-Tabelle um und legt Druckbereich und -layout fest. Soweit funktioniert auch alles ganz gut, nur wenn ich dann drucken wi...

03.08.2016 16:42:27

Thread-ID: 1507636

Anzeige

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

Anzeige

Anzeige

Live-Forum - Die aktuellen Beiträge

Datum

Titel

14.05.2026 13:31:09

Zeichen ausblenden

14.05.2026 09:50:42

Makro für MacOs

13.05.2026 19:14:18

Gleichheitszeichen

13.05.2026 14:24:56

VBA Projekt Passwort automatisch eingeben

13.05.2026 08:49:41

Reale Berechnung ohne Nachkommawerte

Keine passende Antwort im Forumarchiv gefunden?

Stelle deine Frage im Live-Forum