Thema: Schriftgröße beim Kopieren verdoppeln

Home

Gruppe

Format

Problem

Wie kann ich beim Kopieren über VBA die Schriftgröße verdoppeln?

Lösung

Geben Sie den nachfolgenden Code in ein Standardmodul ein und weisen Sie ihn einer Schaltfläche zu.

StandardModule: basMain

Sub Uebertragen()
   Dim iSize As Integer
   iSize = Range("A1").Font.Size * 2
   With Worksheets("Tabelle2")
      Range("A1").Copy .Range("A1")
      .Range("A1").Font.Size = iSize
      .Select
   End With
End Sub

Beiträge aus dem Excel-Forum zu den Themen Format und Schrift

Bedingte Formatierung vor Copy/Paste schützen	Bed. Formatierung, wenn alle Beding. erfüllt.
Telefonnummer automatisch per VBA formatieren	Komplettes Excel Sheet kopieren mit Formaten
Bedingte Formatierung per VBA mit Schleife	Kartendiagramm per VBA erstellen und formatieren
bedingte Formatierung	Zellfarbe per Cond Formatting nach Zellfarbe änder
UserForm im Querformat drucken	Bedingte Formatierung
Teilstringabfrage bei bedingter Formatierung	Bedingte Formatierung mit UND Verknüpfung
Textformat (VBA)	Bedingte Formatierung Frage
Array in Tabelle kopieren, Verlust von Format	Übernahme in Word Format wird nicht übernommen
VBA, 4 Informationen in 4 Zellen schreiben	bedingte Formatierung mit mehreren Bedingungen
Datum aus Oracle-Abfrage als Datum formatieren	Bedingte Formattierung
Bedingte Formatierung - kleiner als Fehler	Zahlenformat Handynr.
Diagramme und ihr Format	bedingte formatierung per VBA
Datenbeschriftung	Bedingte Formatierung bezogen auf 2. Zelle
Formatgleichheit von Zeichenfolgen für SVERWEIS	bedingte Formatierung
Bedingte Formatierung	Tabellen - Zellen - Formatieren -
Format übertragen	Datumsformatierung
Formatierung anderer Diagramme	Zellenformatierung speichern
Schriftgröße und -art im Kombinationsfeld	Diagrammformatierung übertragen
Zahlenformat global überprüfen	wenn z.B. Zahl 12 dann grün (Bedingte Formatierung
wenn z.B. Zahl 12 dann grün (Bedingte Formatierung	Zahlenformatierung in einem Textfeld
Zahlenformat	bedingte Formatierung für zellenbereich
Format Datum / Uhrzeit	keine neuen Schriftarten
Eilt - Formatierung "in 1000"	Bedingte Formatierung mit 2 Bedingungen
Combobox, CheckBox, TextBox Formatierung	Formatierung Dezimalzahlen bei Combobox-Eingaben
Spaltenüberschrift unter Bedingung eintragen