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

Spalten mit bestimmten Überschriften formatieren

Forumthread: Spalten mit bestimmten Überschriften formatieren

Spalten mit bestimmten Überschriften formatieren
01.07.2018 13: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
Anzeige
AW: Spalten mit bestimmten Überschriften formatieren
01.07.2018 13:54:32
Nepumuk
Hallo Hans,
in welcher Zeile befinden sich die Überschriften?
Gruß
Nepumuk
AW: Spalten mit bestimmten Überschriften formatieren
01.07.2018 13:59:44
Hans
Hey Nepumuk,
die Überschriften befinden sich in Zeile 1.
LG
AW: Spalten mit bestimmten Überschriften formatieren
01.07.2018 14: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 14: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 14:25:12
Hans
Hey Nepumuk,
läuft, Dankeschön
mit bedingter Formatierung auch ohne Makro
01.07.2018 15: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

Suchen und Gruppieren in Spalten
Andreas

Hallo XLer,habe ein kleines Problem.Ich habe in Spalte A Werte, die manchmal einmal, machmal doppelt vorkommen. In Spalte B sind diesen Werten Beträge zugeordnet, die aber immer unterschiedlich sind. Nun möchte ich über VBA die doppelten Daten aus Spalte A suchen, automatisch gruppieren und ein...
06.06.2002 12:06:02
Thread-ID: 126447
3 Beiträge
Spalten mit eindeutigen Überschriften var. machen
Matthias

Hallo zusammen,
ich habe eine für euch recht einfache Frage:
Habe ziemlich viel VBA Programmiercode in den letzten gebastelt und nun festgestellt, dass ich hin und wieder
Spalten anspreche, die sich jedoch durch einfügen neuer Spalten verschieben können (und mein Code dann nicht meh...
22.11.2015 13:48:32
Thread-ID: 1459945
14 Beiträge
Kopie von Spalten mit gleicher Überschrift
Spalten

Guten Morgen,
ich bräuchte eure Hilfe in folgendem Fall:
Ich habe zwei Tabellenblätter und möchte von Tabellenblatt1 auf Tabellenblatt2 Spalten kopieren. Die Spalten haben die gleiche Überschrift nur in unterschiedlicher Reihenfolge.
Das zweite Tabellenblatt enthält nur die IDs in...
14.10.2016 09:01:32
Thread-ID: 1519607
4 Beiträge
Spalten mit bestimmten Überschriften formatieren
Hans

Hallo,
ich habe neulich von Nepumuk eine tolle Lösung für das Problem "Spalten mit bestimmten Überschriften formatieren" bekommen.
Meine Frage, kann man gleich die Füllfarbe für die Zelle festlegen?
Hier das bisherige Makro Public Sub Formatieren() Dim lngColumn As Long For lngColum...
13.08.2018 18:44:09
Thread-ID: 1639187
6 Beiträge
Spalten mit selbiger Überschrift in neues Tabellen
Jens

Hallo,
ich will jeweils 3 Spatlten mit der selben Überschrift aus einem Tabellenbaltt in ein neues übertragen. Das neue Tabellenblatt hat den selben Namen wie die Spaltenüberschriften. Dabei sollten die Spalten im neuen Tabellenblatt untereinander stehen und zwischen den "Spalten" jeweils e...
24.03.2019 09:35:42
Thread-ID: 1682959
7 Beiträge
Anzeige
Spalten und Zeilenköpfe umbenennen
Clemens

Hallo,
eigentlich habe ich zwei Fragen!
1. Kann ich die Spalten und Zeilenköpfe umbenennen, wenn ja wie?
2. Ich habe eine Adressverwaltung, und möchte die neuen Adressen über eine Maske eingeben. Möchte dieses aber nicht über Daten/ Maske gehen, sondern ein Boutton auf die Seite legen,...
30.05.2004 22:14:58
Thread-ID: 435275
5 Beiträge
Anzeige
Pivot-Daten: Spalten gruppieren und auszählen lass
Timo

Hallo und guten Morgen,
bin zur Zeit auf der Suche nach der Möglichkeit, den Pivot-Bericht so einzustellen, daß er ähnlich wie bei "=ZÄHLENWENN" zwei Spalten nach eingegebenen Antwortmöglichkeiten durchsucht und mir das Ergebnis dann gemeinsam auflistet. Es gelingt mir aber leider nicht, ic...
06.05.2008 07:20:00
Thread-ID: 974964
6 Beiträge
Anzeige
Zusammenfsg Zellen mit Überschrift
Marco
https://www.herber.de/bbs/user/159795.xlsx

Hallo zusammen,

ich suche eine Möglichkeit, die Information gefüllter Zellen und die dann zugehörigen Überschriften zusammenzufassen.
Lässt sich am Beispiel besser erklären, daher die Tabelle:

am 01.01. wurde für KundeA 2...
03.07.2023 08:14:03
Thread-ID: 1935312
2 Beiträge
Anzeige
Teilergebnis einer Spalte wird nicht angezeigt
thaake

Hallo,
ich lasse mir die Teilergebnisse verschiedener Spalten anzeigen mit =Teilergebnis(9;V5:V300), was auch überall klappt, aber nur eine Spalte weigert sich. Formatierung ist vollkommen ok, das Anzeigen in einer anderen Zelle mit Verweis auf diese Spalte klappt auch nicht. Summe dagegen...
22.09.2008 11:21:12
Thread-ID: 1011416
2 Beiträge
Inhalt von UF wird nicht angezeigt
UF

Hi Forum,
ich starte meine UF mit dem folgenden Code:
Sub auto_open() Application.WindowState = xlMinimized UF_BitteWarten.Show vbModeless Application.Run "RESETMASK" UF_BitteWarten.Hide UF_Maske.Show End Sub
Wie zu erkennen, wird beim Start ein Reset ausgeführt, der einige Sekun...
26.09.2008 14:29:02
Thread-ID: 1012639
16 Beiträge
Rechtschreibung: Pop-Up wird nicht mehr angezeigt
Norbert

Hallo,
nach dem Auswählen des Menüpunktes "Extras" - "Rechtschreibung", wird das zugehörige Pop-Up zur Auswahl der Korrekturvorschläge nicht mehr angezeigt.
Nach einem Klick auf die Schaltfläche "Rechtschreibung" ebenfalls nicht mehr.
Ich habe die möglichen Optionen zur Einstellung...
11.11.2008 11:22:22
Thread-ID: 1023480
3 Beiträge
langer Text wird nicht mehr angezeigt
u_hoernchen

Ich muss einen langen Text (ca. 1.500 Zeichen) in eine Excel-Zelle schreiben (geht leider nicht anders, also das bitte nicht in Frage stellen). Nun wird beim Ausdruck und bei der Bildschirmanzeige aber die letzte Zeile nicht mehr umgebrochen (Zeilenumbruch ist formatiert), in der Zelle steht ab...
05.01.2009 11:10:25
Thread-ID: 1036916
4 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

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