Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
1792to1796
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

gleiches Format auf alle Spalten

gleiches Format auf alle Spalten
24.11.2020 23:13:51
markus
Hallo zu späten Stunde,
wie kann ich allen Spalten ein gleiches Format zuweisen
In A1 gebe ich ein Datum z.B. 01/2020 und dieses Format soll auch auf die Spalten übertragen werden
Format(Spalten,"MM/YYYY")
With Worksheets("Tabelle1")
loLetzte = .Cells(.Rows.Count, "A").End(xlUp).Row
Union(.Range("E8:E" & loLetzte), .Range("H8:H" & loLetzte), .Range("L8:L" & loLetzte), _
.Range("O8:O" & loLetzte), .Range("R8:R" & loLetzte), .Range("T8:T" & loLetzte)) = Range("A1").value
End With
Danke

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: gleiches Format auf alle Spalten
24.11.2020 23:30:40
ralf_b
versuchs mal mit deinerange().numberformat= "MM/YYYY"
AW: gleiches Format auf alle Spalten
24.11.2020 23:46:52
GerdL
Moin
Sub Unit()
Dim loLetzte As Long
With Worksheets("Tabelle1")
loLetzte = .Cells(.Rows.Count, "A").End(xlUp).Row
Intersect(.Rows(8 & ":" & loLetzte), _
.Range("E:E,H:H,L:L,O:O,R:R,T:T")).NumberFormat _
= .Range("A1").NumberFormat
End With
End Sub

Gruß Gerd
Anzeige

7 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige