Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Anzeige
Inhaltsverzeichnis

gleiches Format auf alle Spalten

Forumthread: gleiches Format auf alle Spalten

gleiches Format auf alle Spalten
25.11.2020 00: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
Anzeige

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

Betreff
Datum
Anwender
Anzeige
AW: gleiches Format auf alle Spalten
25.11.2020 00:30:40
ralf_b
versuchs mal mit deinerange().numberformat= "MM/YYYY"
AW: gleiches Format auf alle Spalten
25.11.2020 00: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

Forumthreads zu verwandten Themen

Anzeige
Anzeige
Anzeige