Live-Forum - Die aktuellen Beiträge
Datum
Titel
19.04.2024 08:41:23
Zwei Makros in ein Arbeitsblatt - zweite wird nicht ausführt
18.04.2024 21:09:11
4 Spalten aus smarter Tabelle in andere smarte Tab. kopieren
18.04.2024 20:45:35
Worksheet_Activate für alle Sheets
18.04.2024 19:30:20
VBA - Tabelle mit Mannschaftsergebnissen sortieren
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
336to340
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
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 Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

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

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
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

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
Anzeige
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
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
Anzeige
AW: Formatierung einer Tabelle übertragen
11.11.2003 14:24:31
Russi
Freut mich, wenn ich helfen konnte!

303 Forumthreads zu ähnlichen 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: 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
Bedingten Formatierung mit MIN; gr. als Mittelwert
Eva

Hallo,
ich habe ein Problem mit einer Bedingten Formatierung.
Ich möchte mir in mehreren Zeilen die MIN Were grün anzeigen lassen und die Werte, welche größer oder gleich dem Durchschnitt sind rot. Leider haut es so gut wie nie in den Zeilen hin. Oft markiert er nur eine Zelle, die ande...
18.12.2008 16:01:00
Thread-ID: 1033913
7 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

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige
Archiv - Verwandte Themen
Forumthread
Beiträge
3
7
5
1
2
7
1
6
3
4
6
3
2
9
2
2
13
2
4
4
2
11
3
2
10