Live-Forum - Die aktuellen Beiträge
Datum
Titel
18.04.2024 08:16:13
Dynamische Positionsnummerierung
18.04.2024 08:15:33
Seitwärts scrollen - Fenster fixiert
18.04.2024 08:06:05
Power Query Tabelle aus jeder Spalte erweitern?
18.04.2024 07:35:33
Matrix auslesen und in Liste umwandeln
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
716to720
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
716to720
716to720
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Schriftart in Zelle erzwingen

Schriftart in Zelle erzwingen
13.01.2006 10:08:47
Andreas
Hallo zusammen,
kleines Problem, und zwar habe ich ein Formular da werden aus anderen Programmen Daten reinkopiert.
jetzt will ich dass in der Zelle "J5" die Schriftart immer Arial und Grösse 14 ist.
Im Moment wird immer die Fremde Schriftart übernommen und das soll vermieden werden.
Danke für euere Hilfe.
Gruss Andreas

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Schriftart in Zelle erzwingen
13.01.2006 10:50:04
serge
Hi Andreas
wenn du die Daten mit "Inhalte Einfügeb/nur Werte" reinkopierst bleibt die schriftart und Grösse erhalten.
Serge
Das wars noch nicht
13.01.2006 11:36:28
Andreas
Hallo Serge,
will das ganze eigentlich mit VBA-Code hinterlegen, damit die Anwendung einfacher bleibt.
Gruss Andreas
AW: Das wars noch nicht
13.01.2006 13:37:40
serge
Andreas
versuchs mit einem der beiden Makros
1= Schrifgrösse und art einstelllen

Sub schrifteinstellen()
Range("A1").Select
Selection.Copy
Range("B5").Select
With Selection.Font
.Name = "Arial"
.FontStyle = "Standard"
.Size = 10
.Strikethrough = False
.Superscript = False
.Subscript = False
.OutlineFont = False
.Shadow = False
.Underline = xlUnderlineStyleNone
.ColorIndex = xlAutomatic
End With
Application.CutCopyMode = False
End Sub

2= nur werte einfügen

Sub werteinfügen()
Range("A1").Select
Selection.Copy
Range("B5").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Application.CutCopyMode = False
End Sub

viel Erfolg Serge
Anzeige

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige