Live-Forum - Die aktuellen Beiträge
Datum
Titel
19.10.2025 18:21:56
Prüfen, ob Bild geladen wurde
19.10.2025 15:24:14
VBA -Drucken nur, wenn ich mit bestimmtem WLAN verbunden bin
19.10.2025 10:48:58
Zufällige Uhrzeit
19.10.2025 10:46:18
Zufallszahlen nur wenn Datum ab kommenden Sonntag
Keine passende Antwort im Forumarchiv gefunden?
Stelle deine Frage im Live-Forum
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
336to340
336to340
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Formatierung einer Tabelle übertragen

Forumthread: Formatierung einer Tabelle übertragen

Formatierung einer Tabelle übertragen
11.11.2003 11:49:18
Hendrik
Hallo,

ich habe eine fertige Tabelle, die formatiert ist. Per Makro wird diese in ein neues Workbook übertragen.
Wie kann ich erreichen, dass die Formatierung nicht verloren geht, also mitkopiert wird?

Vielen Dank
Gruß
Hendrik
Anzeige

7
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Formatierung einer Tabelle übertragen
11.11.2003 11:55:13
Russi
Hallo Hendrik!

Public 

Sub Russis_Sendmail()
Cells.Select
Selection.Copy
Workbooks.Add
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
Selection.PasteSpecial Paste:=xlFormats, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
End Sub


Viel Spaß!

Russi
Anzeige
AW: Formatierung einer Tabelle übertragen
11.11.2003 12:05:15
Hendrik
Hallo Russi,

das klappt leider nicht ganz.
Mein Fehler - Sorry. Ich kopiere nur die sichtbaren Cellen mit diesem Code:

Sheets("LOP Entwicklung").UsedRange.SpecialCells(xlCellTypeVisible).Copy
Workbooks.Add
ActiveSheet.Paste

Kannst du das irgendwie anpassen.

Danke
Hendrik
Anzeige
AW: Formatierung einer Tabelle übertragen
11.11.2003 13:34:33
Russi
so müsste es gehen:


Sub Russis_Sendmail()
Sheets("LOP Entwicklung").UsedRange.SpecialCells(xlCellTypeVisible).Copy
Workbooks.Add
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
Selection.PasteSpecial Paste:=xlFormats, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
End Sub

Anzeige
AW: Formatierung einer Tabelle übertragen
11.11.2003 14:01:58
Hendrik
Hallo Russi,

das klappt an sich schon ganz gut, aber die Spaltenbreite und Zeilenhöhe wird nicht beibehalten. Kann man die eventuell vorgeben. Zum Beispiel Columns("A:A").ColumnWidth=15 oder so?

Gruß
Hendrik
AW: Formatierung einer Tabelle übertragen
11.11.2003 14:10:39
Russi
Hallo Hendrik! Sorry, mein Fehler! Wenn Du das PasteSpecial-blabla durch einen normalen Paste-Befehl ersetzt, werden Inhalte und Formate eingefügt:


Sub Russis_Sendmail()
Sheets("LOP Entwicklung").UsedRange.SpecialCells(xlCellTypeVisible).Copy
Workbooks.Add
ActiveSheet.Paste
End Sub


Viele Grüße
Russi
Anzeige
AW: Formatierung einer Tabelle übertragen
11.11.2003 14:18:10
Hendrik
Hallo Russi,

habe mein Problem gelöst. Mit Selection.Columns.ColumnWeight = 50 ...
geht es. Bin aber erst durch deine Hilfe darauf gekommen.
Also vielen Dank noch mal, ohne dichh hätte es noch ewig dauern können.

Gruß
Hendrik
AW: Formatierung einer Tabelle übertragen
11.11.2003 14:24:31
Russi
Freut mich, wenn ich helfen konnte!
Anzeige
;

Forumthreads zu verwandten Themen

Bedingte Formatierung ich kriegs nicht hin.
Tom

Hi,
ich versuch hier eine bedingte Formatierung hinzubekommen aber es will nicht, ich steh voll auf dem Schlauch.
Wenn T5 = S5 dann Gruen ; S5 Darf aber nicht 0 sein
Wenn T5 S5 dan Rot ich hab bei gruen das so:
=S5=WENN(T50;T5;-1)
Bei rot so:
=UND(S5T5;T5=0)
m...
08.08.2008 15:58:37
Thread-ID: 1000337
4 Beiträge
Anzeige
Bedingte Formatierung in Abhängigkeit mehrerer Fel
Thomas

hallo,
ich habe bei einer automatischen formatierung ein paar probleme.
meine tabelle beinhaltet die informationen über switchbelegung und portkonfiguration wie folgt:
Port; Patchfeld; Last input; Last output; VLAN 1; VLAN2; Description
nun sollen die jeweiligen Zeilen anhand de...
11.11.2008 11:56:34
Thread-ID: 1023497
6 Beiträge
Bedingte Formatierung über Tabellenblätter
Thomas

Hallo,
ich habe in einem extra Datenblatt welches Stammdaten enthält einen Code für die Formatierung
erzeugt (vier verschiedene Farbe Sollen Verwendung finden).
Wie kann ich ohne Verwendung des Menüs Bedingte Formatierung, in dem mir nur 3 Bedingungen
zur Verfügung stehen, ohne...
12.11.2008 14:06:30
Thread-ID: 1023831
2 Beiträge
Anzeige
BEdingte Formatierung EIN/AUS
Constantin

Hallo an ALLE,
Weiß jemand ob, es möglich ist die bedingte Formatierung in einer Datei nach Bedarf Ein und Auszuschalten?
Danke,
Constantin
01.12.2008 16:28:00
Thread-ID: 1029301
3 Beiträge
Bedingte Formatierung: Zielenminimum
Wolff

Hallo zusammen,
ich hab ein kleines Problem mit der bedingten Formatierung.
Und zwar möcht ich in einem Arbeitsblatt das jeweilige Zeilenminimum hervorheben. Die Formel für eine Ziele ist soweit kein Problem, allerdings funktioniert das "runterziehen" des Formats nicht. Excel erweitert...
09.12.2008 12:30:00
Thread-ID: 1031341
8 Beiträge
bedingte Formatierung in 2007version
lufrio1

Hallo,
ich verzweifle gerade an der bekn...... Bedingten Formatierung.
Wie kann ich folgendes darstellen:
wenn die Zelle C3 ist kleiner als 9 dann mach C27-f27 grün, sonst weiß lassen.
Vielen dank im Voraus.
Lufrio
16.12.2008 11:10:55
Thread-ID: 1033231
2 Beiträge
Bedingte Formatierung einer ganzen Zeile
Steffan

Hallo,
hab ein neues Problem.
Spalte B ist Hilfsspalte mit 1 oder 0
Ist in der Zelle der Hilfsspalte z.B. (5,2) eine 1, dann die Zeile Rot (zumindestens 5 Spalten davon), ansonsten bleibts so wies ist.
Über bedingte Formatierung hab ich in anderen Foren gelesen, billige Beispiel...
23.12.2008 11:50:29
Thread-ID: 1034966
4 Beiträge
Tabellenreiter färben mit bedingter Formatierung
Marcus

Hi und guten Tag,
ich möchte den Tabellenreiter eines Arbeitsblattes färben, wenn die Zelle K17 via einer bedingten Formatierung "Rot" gefärbt wird. Wenn sie "Grün" wird, dann grün...
Dazu hab ich aus den Internet folgenden VBA-Code:
Sub Auto_Open() Dim objWorksheet As Worksheet...
04.04.2009 18:57:06
Thread-ID: 1066873
5 Beiträge
Zeitleiste via bedingte Formatierung , Intervalle
Xaver

Hallole an die Community.
Ich steh vor einem grossen Problem.
Ich möchte mit den bedingten Formatierungen eine excel Zeiteinteilungstabelle erstellen.
Die Tabelle ist in Jahre und jeweils Monate eingeteilt und besteht aus
a) Vorgängen mit anfangsdatum und einer Dauer in Monaten...
06.04.2009 14:22:15
Thread-ID: 1067095
7 Beiträge
Bedingte Formatierung in Säulendiagramm
Axel

Hallo Zusammen,
hat jemand schon mal ein Säulendiagramm mit einer bedingten Formatierung versehen? Ich versuche derzeit Folgendes:
Eine einfache Datentabelle die ausschließlich Werte von 1 bis 10 enthält und Datenquelle für das Säulendiagramm ist. Ist in einer Zelle ein Wert zwischen 0...
07.05.2009 13:57:38
Thread-ID: 1073602
3 Beiträge
Bedingte Formatierung einer Spalte
ropa

Hallo
ich folgende Aufgabe zu lösen.
Ich habe eine Tabelle in der in in der Zeile 1 die einzelnen Tage mit Datum stehen
--------------- A ------------ B
Zeile 1 23.6.2009 24.6.2009 usw
ich möchte jetzt erreichen, das die Spalte in der das heutige Datum steht mit e...
23.06.2009 12:15:19
Thread-ID: 1083753
10 Beiträge
Bedingte Formatierung in statische Formatierung
UweD

Hallo
Ich habe in einer Tabelle mehrere Spalten mit bedingter Formatierung versehen.
Um die Laufzeit zu verbessern möchte ich diese bedingte Formatierung in ein statische Formatierung umwandeln.
Je nach Wert wird per Formel der Text gefärbt. Danach bleiben die Werte konstant, sodaß...
26.06.2009 13:24:25
Thread-ID: 1084581
3 Beiträge
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige