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

Format übertragen per Makro

Forumthread: Format übertragen per Makro

Format übertragen per Makro
Wilhelm
Hallo,
ich erhalte täglich eine Textdatei mit Datensätzen, die ich über ein Query meiner Excel-Tabelle hinzufüge.
Die Anzahl der Datensätze variiert täglich (ca. zwischen 50 und 200).
In der Excel-Tabelle sind die bereits vorhandenen Datensätze formatiert (Rahmen etc.). Mit dem untenstehenden Makro übertrage ich das Format der Vorgängerzeile auf die neu eingespielten Datensätze, wobei ich leider die Anzahl nie so genau treffe, d.h. es ist Nacharbeit erforderlich.
Meine Frage: Wie müsste ich mein Makro verändern, dass nicht mehr und nicht weniger der neu eingespielten Zeilen (also alle neuen Datensätze unterhalb der formatgebenden Zeile) formatiert werden, also jeweils genau die richtige Anzahl neuer Datensätze?
Hier mein Makro: 

Sub FormatÜbertragen()
ActiveCell.Offset(0, 0).Range("A1:K1").Select
Selection.Copy
ActiveCell.Offset(0, 0).Range("A2:K100").Select
Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False
Application.CutCopyMode = False
End Sub

Vielen Dank für Eure Unterstützung!
Willi
Anzeige

6
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Benutzer
Anzeige
AW: Format übertragen per Makro
13.09.2010 11:42:09
Backowe
Hi Willi,
Sub FormatÜbertragen()
Dim LZeile As Long
LZeile = Cells.Find("*", [A1], , , xlByRows, xlPrevious).Row
Range("A1:K1").Copy
Range("A2:K" & LZeile).PasteSpecial Paste:=xlPasteFormats
Application.CutCopyMode = False
End Sub
Gruß Jürgen
Anzeige
AW: Format übertragen per Makro
13.09.2010 12:18:45
Wilhelm
Hallo Jürgen,
vielen Dank für den Lösungsansatz - leider trifft es nicht ganz zu.
Ich habe im Makro einen relativen Bezug drin, daher ist Zelle A1 nicht "wörtlich" zu nehmen.
Vielmehr sind in den ersten 5 Zeilen (A1 bis K5) Tabellenüberschrift, Untertitel, 2 Leerzeilen und die Spaltenüberschriften enthalten.
Mit Deinem Lösungscode wird das Format demnach auf die neuen Datensätze PLUS 5 Zeilen übertragen.
Leider verstehe ich in Deinem Code die Zeile
"LZeile = Cells.Find("*", [A1], , , xlByRows, xlPrevious).Row"
auch nicht, so dass ich sie "zu meinen Gunsten" entsprechend verändern könnte.
Hast Du oder jemand anderes vielleicht noch Rat?
Willi
Anzeige
AW: Format übertragen per Makro
13.09.2010 12:23:21
Backowe
Hi,
mit "Cells.Find("*", [A1], , , xlByRows, xlPrevious).Row" ermittele ich die letzte Zeile im Sheet. Dann ziehe einfach 5 ab von LZeile.
Gruß Jürgen
AW: Format übertragen per Makro
13.09.2010 12:42:24
Wilhelm
Hallo Jürgen,
das ist es leider nicht.
Nach meinen Tests überträgt Dein Lösungscode immer ausgehend vom absoluten Bezug A1 das Format, je nach Cursorposition teilweise auch in darüberliegende Zeilen. Das ist leider nicht gewollt.
Daher vielleicht noch mal etwas anders und evtl. verständlicher formuliert:
Ich habe den Cursor im letzten formatierten "alten" Datensatz stehen (z.B. A3250).
Darunter sind eine unbestimmte Anzahl neuer Datensätze - unformatiert.
Die neuen Datensätze sollen nun "per Klick" so formatiert werden wie der letzte "alte" Datensatz (also im Beispiel so wie Zeile A3250:K3250).
Danke für die Mühen!
Willi
Anzeige
Dann eben so!
13.09.2010 12:47:25
Backowe
Hi Willi,
Sub FormatÜbertragen()
Dim LZeile As Long
LZeile = Cells.Find("*", [A1], , , xlByRows, xlPrevious).Row
Range("A" & ActiveCell.Row & ":K" & ActiveCell.Row).Copy
Range("A" & ActiveCell.Row + 1 & ":K" & LZeile).PasteSpecial Paste:=xlPasteFormats
Application.CutCopyMode = False
End Sub
Gruß1
Anzeige
AW: Dann eben so!
13.09.2010 13:02:44
Wilhelm
Hi Jürgen,
ganz herzlichen Dank - das ist die Lösung meines Problems!
Viele Grüße,
Willi
;

Forumthreads zu verwandten Themen

VBA: Zellbereiche unformatiert kopieren
Fritz_W

Hallo Forumsbesucher,
ich würde gerne per VBA die Zellinhalte der Zellbereiche H7:J30, H36:J39; H42:J43 und H46:J46 kopieren (in der Beispieltabelle die Zellen mit gelbem Hintergrund) und unformatiert an anderer Stelle der Tabelle einfügen. Die Einfügeposition soll immer durch die erste lee...
27.05.2012 00:31:48
Thread-ID: 1265018
13 Beiträge
Anzeige
VBA nur Werte und Formate kopieren -- Fehlersuche
WalterK

Hallo,
mit dem folgenden Code möchte ich einen Tabellenbereich in eine neu erstellte Datei kopieren, es sollen aber nur die Werte eingefügt und die Formate übernommen werden, aber keine Formeln.
1.) bei der Zeile PasteSpecial xlPasteValues kommt der Fehler: Fehler beim Kompilieren: Synt...
29.11.2013 14:04:21
Thread-ID: 1340565
7 Beiträge
Anzeige
VBA - Buchhaltungsformat mit kopieren
jones

Hallo,
ich habe eine Frage an Euch, es geht um folgenden code, der aus einem Tabellenblatt bestimmte Zellen per Knopfdruck in das Tabellenblatt "Datenbank" kopieren soll. Soweit so gut, nur dass Zelle K43 und K40 im Buchhaltungsformat sind und der Betrag (Euro) nicht mit kopiert wird. Auch...
24.09.2014 12:45:31
Thread-ID: 1383169
9 Beiträge
Kopieren eines Blattes mit Formatierung (VBA)
Heinz Ulm

Hallo Excelfreunde,In einer mappe habe ich eine Tabelle auf der die Arbeitstage im Monat bestimmt werden (von Mo-Fr). Jeder Arbeitstag hat sein Datum, das später zum Tabellenblattname für dentag wird.Bei Klick auf eine Schaltfläche soll nun eine Mustertabelle kopiert und umbenannt werden. Das M...
28.07.2002 12:49:07
Thread-ID: 141601
7 Beiträge
VBA - formatierte zellen fortlaufend kopieren
Klaus

Hallo Gemeinde,
ich habe folgendes Problem: Ich bräuchte einen Code der mir die vorherige Zellen kopiert und jeweils fortlaufend beim klicken des Buttons in die nächste Spalte einfügt und dabei die erste Spalte ausblendet.
Mein bisheriger Code: Sub Start() Dim rng As Range Set rng = C...
09.11.2016 14:09:06
Thread-ID: 1523867
6 Beiträge
VBA Schreibweise bei formatierter Tabelle kopieren
Thorsten

Hallo,
möchte aus einer formatierten Tabelle nur bestimmte Spalten kopieren.
Der Makrorekorder zeichnet z.B.auf:
Range("P7:P94,S7:S94,T7:T94,AO7:AO94,AU7:AU94,AV7:AV94,BD7:BD94,BG7:BG94").Select
Aussehen soll es aber so (Verkürzte Darstellung)
Range("TabVK[[[Buch-ID]&[Ma...
14.03.2018 14:26:04
Thread-ID: 1614156
5 Beiträge
VBA Format & Werte von Autofilter Tabelle kopieren
Autofilter

Hallo,
Ich habe folgendes Problem:
Ich habe eine Tabelle mit Namen Liste mit Spalten A bis P ,die man jeweils für sich oder mehrere gleichzeitig filtern kann. Hinter diesen Werten stehen eine Menge Formeln, weshalb man nicht filtern und von A bis Z sortieren kann.
Deshalb erzeugt V...
03.07.2018 20:54:56
Thread-ID: 1631929
4 Beiträge
VBA bed. Formatierung vereinfacht übertragen
udo

Hallo Forum,
hätte eine Frage zum Thema bedingte Formatierung aus Zeile XXX in einen neuen
Bereich vereinfacht zu übertragen.
Soll heissen, ich habe einen Zeilenbereich 37:20000 , der mir als Hauptbereich dient ( in diesem ändern sich Werte usw. werden ab u zu mal Zeilen eingefügt,...
16.01.2019 11:35:34
Thread-ID: 1668517
5 Beiträge
VBA - Formatierung beim Kopieren
Thaini

Hallo,
ich versuche mit Hilfe von VBA den Inhalt einer Excel Datei in eine Outlook E-Mail zu packen.
Klappt auch fast, allerdings übernimmt er die Bedingte Formatierung nicht komplett und ich finde den Fehler nicht.
Jemand eine Idee?
https://www.herber.de/bbs/user/129607.xlsm
05.05.2019 20:36:34
Thread-ID: 1690984
14 Beiträge
VBA - Formatierung beim Kopieren
Thaini

Hallo,
ich versuche mit Hilfe von VBA den Inhalt einer Excel Datei in eine Outlook E-Mail zu packen.
Klappt auch fast, allerdings übernimmt er die Bedingte Formatierung nicht komplett und ich finde den Fehler nicht.
Jemand eine Idee?
https://www.herber.de/bbs/user/129607.xlsm
05.05.2019 20:45:53
Thread-ID: 1690987
3 Beiträge
Anzeige
VBA: Format eine Zelle kopieren
Richard

Hallo,
ich möchte das Format einer Zelle auf eine andere übertragen. Ich suche so was ähnliches wie: cells(5,4).format = cells(5,3).format , finde aber nicht den richtigen Befehl.Danke für jeden Tipp
Richard
13.01.2003 15:28:57
Thread-ID: 202689
2 Beiträge
VBA-bedingte Formatierung runter kopieren
Fred


Guten Tage Excel-Profis,
ich habe mal wieder so eine Frage:
Durch VBA trage ich eine Formel ein und "ziehe" die wie gewünscht runter.
Formel; With Worksheets("Liga") .Range("N5").Resize(.Cells(.Rows.Count, "M").End(xlUp).row - 4).FormulaLocal = "=ZÄHLENWENN( _ BasisNeu!$F$2:$F$...
09.10.2019 13:05:29
Thread-ID: 1716883
5 Beiträge
Anzeige
Anzeige

Infobox / Tutorial

Formatübertragung per Makro in Excel VBA

Schritt-für-Schritt-Anleitung

Um das Excel VBA Makro zum Übertragen von Formaten effizient zu gestalten, befolge diese Schritte:

  1. Öffne den VBA-Editor: Drücke ALT + F11, um den VBA-Editor zu öffnen.

  2. Füge ein neues Modul hinzu: Klicke mit der rechten Maustaste auf dein Projekt im Projektfenster, wähle Einfügen und dann Modul.

  3. Füge den folgenden Code ein:

    Sub FormatÜbertragen()
   Dim LZeile As Long
   LZeile = Cells.Find("*", [A1], , , xlByRows, xlPrevious).Row
   Range("A" & ActiveCell.Row & ":K" & ActiveCell.Row).Copy
   Range("A" & ActiveCell.Row + 1 & ":K" & LZeile).PasteSpecial Paste:=xlPasteFormats
   Application.CutCopyMode = False
End Sub

  4. Verwende das Makro: Setze den Cursor in die Zeile des letzten formatierten Datensatzes und führe das Makro aus. Es überträgt die Formatierungen auf alle nachfolgenden unformatierten Zeilen.

Häufige Fehler und Lösungen

  • Fehler: Das Format wird auch auf unerwünschte Zeilen übertragen.

    • Lösung: Stelle sicher, dass der Cursor korrekt in der letzten formatierten Zeile positioniert ist, bevor du das Makro ausführst.

  • Fehler: Das Makro funktioniert nicht, wenn die Arbeitsmappe geschlossen ist.

    • Lösung: Stelle sicher, dass die Datei gespeichert und offen ist, bevor du das Makro ausführst.

Alternative Methoden

Wenn du keine VBA-Lösung verwenden möchtest, kannst du auch die Funktion "Format übertragen" in Excel nutzen:

  1. Wähle die formatierte Zelle aus.
  2. Klicke auf das Pinsel-Symbol in der Symbolleiste oder im Ribbon.
  3. Markiere die Zielzellen, um die Formatierung zu übernehmen.

Diese Methode ist besonders nützlich, wenn du nur gelegentlich Formatierungen übertragen möchtest.

Praktische Beispiele

  • Beispiel 1: Wenn du die Formatierung von Zeile 10 auf alle nachfolgenden Zeilen bis zur letzten Zeile übertragen möchtest, positioniere den Cursor in Zeile 10 und führe das Makro aus.

  • Beispiel 2: Um ein spezifisches Excel-Zahlenformat zu übertragen, kannst du den Code anpassen, um nur das Zahlenformat zu kopieren. Zum Beispiel:

    Range("A" & ActiveCell.Row).Copy
Range("A" & ActiveCell.Row + 1 & ":A" & LZeile).PasteSpecial Paste:=xlPasteFormats

Tipps für Profis

  • Verwende Variablen: Überlege, den Bereich dynamisch zu machen, indem du Variablen für Zeilen und Spalten verwendest, um die Flexibilität des Makros zu erhöhen.

  • Fehlerbehandlung: Füge eine Fehlerbehandlung hinzu, um das Makro robuster zu machen. Dies kann helfen, unerwartete Fehler abzufangen und sinnvoll zu reagieren.

  • Makros speichern: Vergiss nicht, deine Arbeitsmappe als .xlsm zu speichern, um die Makros zu behalten.

FAQ: Häufige Fragen

1. Wie kann ich das Makro anpassen, um nur bestimmte Formate zu übertragen?
Du kannst den Code so anpassen, dass nur bestimmte Formatierungen kopiert werden, indem du xlPasteFormats durch spezifische Optionen ersetzt.

2. Funktioniert das Makro in allen Excel-Versionen?
Das VBA-Makro sollte in den meisten modernen Excel-Versionen (ab Excel 2007) funktionieren. Achte darauf, dass deine Excel-Version Makros unterstützt.

Beliebteste Forumthreads (12 Monate)

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