Microsoft Excel

Herbers Excel/VBA-Archiv

Format von Zelle auf Spalte übertragen | Herbers Excel-Forum


Betrifft: Format von Zelle auf Spalte übertragen von: Fred
Geschrieben am: 29.11.2009 18:14:48

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

  

Betrifft: copy ... PasteSpecial Paste:=xlFormats .. von: Matthias L
Geschrieben am: 29.11.2009 18:23:06

Hallo Fred

Worksheets("Tabelle1").Range("A1").Copy
Columns("B:B").PasteSpecial Paste:=xlFormats
Application.CutCopyMode = False

Gruß Matthias


  

Betrifft: AW: Format von Zelle auf Spalte übertragen von: Nepumuk
Geschrieben am: 29.11.2009 18:27:37

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


  

Betrifft: @ Nepumuk - Zu Objektnamen von: Beate Schmitz
Geschrieben am: 29.11.2009 19:33:13

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


  

Betrifft: AW: @ Nepumuk - Zu Objektnamen von: Nepumuk
Geschrieben am: 29.11.2009 20:38:04

Liebste Beate,

bei mir heißen Tabellen, außer in meinen privaten Mappen, auch nicht Tabelle1:



LG
Max


  

Betrifft: AW: Format von Zelle auf Spalte übertragen von: Fred
Geschrieben am: 29.11.2009 20:51:58

Hallo,

Danke für die Hilfe.

Gruß
Fred


Beiträge aus den Excel-Beispielen zum Thema "Format von Zelle auf Spalte übertragen"