HERBERS Excel-Forum - das Archiv
Bewerten Sie hier bitte das Excel-Portal
Format von Zelle auf Spalte übertragen
Zelle

Hallo,
ich möchte die Formatierung von einer Zelle auf eine Spalte übertragen.
Ungefär so:
tmp = Worksheets("Sheet1").Range("A1").NumberFormat
Worksheets("Sheet1").Range("B:B").NumberFormat = tmp
Komme nicht weiter. Vielleicht kann jemand helfen.
Gruß
Fred

copy ... PasteSpecial Paste:=xlFormats ..
Matthias

Hallo Fred
Worksheets("Tabelle1").Range("A1").Copy
Columns("B:B").PasteSpecial Paste:=xlFormats
Application.CutCopyMode = False
Gruß Matthias
AW: Format von Zelle auf Spalte übertragen
Zelle

Hallo,
im Prinzip schon richtig. Nur den Umweg über eine Variable kannst du dir sparen.
Public Sub test()
    Tabelle1.Columns(2).NumberFormat = Tabelle1.Cells(1, 1).NumberFormat
End Sub

Was du machen soltest, an Stelle des Excelnamens der Tabelle den Objektnamen benutzen. Damit wirst du unabhängig von dem für den Benutzer änderbaren Namen der dein Programm auf einen Fehler laufen lässt. Den Objektname findest du im Projektexplorer vor dem Excdelnamen in Klammern.
Gruß
Nepumuk
@ Nepumuk - Zu Objektnamen
Beate

Lieber Max,
die Empfehlung mit dem Objektnamen hat bei internationaler Verwendung der Datei auch ihre Tücken, siehe:
http://www.online-excel.de/fom/fo_read.php?f=1&bzh=-1&h=41040&ao=1
Gruß,
Beate
AW: @ Nepumuk - Zu Objektnamen
Nepumuk

Liebste Beate,
bei mir heißen Tabellen, außer in meinen privaten Mappen, auch nicht Tabelle1:
Userbild
LG
Max
AW: Format von Zelle auf Spalte übertragen
Zelle

Hallo,
Danke für die Hilfe.
Gruß
Fred