Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
1400to1404
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
Inhaltsverzeichnis

Schriftart übertragen.

Schriftart übertragen.
13.01.2015 08:30:43
Stefan
Hallo, ich Habe mir folgendes Makro geschrieben zum übertragen von meiner Schriftart in ein neues Tabellenblatt.
Sub schrift_uebertragen()
Dim a As Boolean
'Zeile 4 / Tabelle 4
'BFT
a = copyformat(Sheets(1).Range("C4"), Worksheets(4).Range("L16")) ' BFT Datum
a = copyformat(Sheets(1).Range("D4"), Worksheets(4).Range("B16")) ' BFT Sprint
a = copyformat(Sheets(1).Range("E4"), Worksheets(4).Range("D16")) ' BFT Klimm
a = copyformat(Sheets(1).Range("F4"), Worksheets(4).Range("F16")) ' BFT 1000m
'Marsch
a = copyformat(Sheets(1).Range("G4"), Worksheets(4).Range("I20")) ' Marsch 1 Distanz
a = copyformat(Sheets(1).Range("H4"), Worksheets(4).Range("L20")) ' Marsch 1 Datum
a = copyformat(Sheets(1).Range("I4"), Worksheets(4).Range("K20")) ' Marsch 1 Zeit
a = copyformat(Sheets(1).Range("J4"), Worksheets(4).Range("I21")) ' Marsch 2 Distanz
a = copyformat(Sheets(1).Range("K4"), Worksheets(4).Range("L21")) ' Marsch 2 Datum
a = copyformat(Sheets(1).Range("L4"), Worksheets(4).Range("K20")) ' Marsch 2 Zeit
'30min Läufe
a = copyformat(Sheets(1).Range("M4"), Worksheets(4).Range("C20")) ' Lauf 1
a = copyformat(Sheets(1).Range("N4"), Worksheets(4).Range("C21")) ' Lauf 2
'soso
a = copyformat(Sheets(1).Range("O4"), Worksheets(4).Range("G24")) ' EH-A
a = copyformat(Sheets(1).Range("Q4"), Worksheets(4).Range("B24")) ' ABC
a = copyformat(Sheets(1).Range("S4"), Worksheets(4).Range("J28")) ' Kleiderschwimmen Datum
a = copyformat(Sheets(1).Range("T4"), Worksheets(4).Range("K28")) ' Kleiderschwimmen Leistung
'DSA
a = copyformat(Sheets(1).Range("U4"), Worksheets(4).Range("C11")) ' DSA Ausdauer Disziplin
a = copyformat(Sheets(1).Range("V4"), Worksheets(4).Range("B11")) ' DSA Ausdauer Datum
a = copyformat(Sheets(1).Range("W4"), Worksheets(4).Range("D11")) ' DSA Ausdauer Leistung
a = copyformat(Sheets(1).Range("Y4"), Worksheets(4).Range("F11")) ' DSA Kraft Disziplin
a = copyformat(Sheets(1).Range("Z4"), Worksheets(4).Range("E11")) ' DSA Kraft Datum
a = copyformat(Sheets(1).Range("AA4"), Worksheets(4).Range("G11")) ' DSA Kraft Leistung
a = copyformat(Sheets(1).Range("AC4"), Worksheets(4).Range("I11")) ' DSA Schnelligkeit  _
Disziplin
a = copyformat(Sheets(1).Range("AD4"), Worksheets(4).Range("H11")) ' DSA Schnelligkeit Datum
a = copyformat(Sheets(1).Range("AE4"), Worksheets(4).Range("G11")) ' DSA Schnelligkeit Leistung
a = copyformat(Sheets(1).Range("AG4"), Worksheets(4).Range("L11")) ' DSA Kordination Disziplin
a = copyformat(Sheets(1).Range("AH4"), Worksheets(4).Range("K11")) ' DSA Kordination Datum
a = copyformat(Sheets(1).Range("AI4"), Worksheets(4).Range("M11")) ' DSA Kordination Leistung
'Schießen
a = copyformat(Sheets(1).Range("AK4"), Worksheets(4).Range("F28")) ' G36-S-9 Datum
a = copyformat(Sheets(1).Range("AL4"), Worksheets(4).Range("D28")) ' G36-S-9 Ergebnis
a = copyformat(Sheets(1).Range("AM4"), Worksheets(4).Range("F29")) ' P-S-2 Datum
a = copyformat(Sheets(1).Range("AN4"), Worksheets(4).Range("D29")) ' P-S-2 Ergebnis
a = copyformat(Sheets(1).Range("AO4"), Worksheets(4).Range("F30")) ' P-S-3 Datum
a = copyformat(Sheets(1).Range("AP4"), Worksheets(4).Range("D30")) ' P-S-3 Ergebnis
a = copyformat(Sheets(1).Range("AQ4"), Worksheets(4).Range("F31")) ' MG-S-3 Datum
a = copyformat(Sheets(1).Range("AR4"), Worksheets(4).Range("D31")) ' MG-S-3 Ergebnis
a = copyformat(Sheets(1).Range("AS4"), Worksheets(4).Range("F32")) ' MG-S-4 Datum
a = copyformat(Sheets(1).Range("AT4"), Worksheets(4).Range("D32")) ' MG-S-4  Ergebnis
a = copyformat(Sheets(1).Range("AU4"), Worksheets(4).Range("F33")) ' G-ES-5 Datum
a = copyformat(Sheets(1).Range("AV4"), Worksheets(4).Range("D33")) ' G-ES-5 Ergebnis
a = copyformat(Sheets(1).Range("AW4"), Worksheets(4).Range("F34")) ' G-ES-6 Datum
a = copyformat(Sheets(1).Range("AX4"), Worksheets(4).Range("D34")) ' G-ES-6 Ergebnis
a = copyformat(Sheets(1).Range("AY4"), Worksheets(4).Range("F35")) ' P-ES-4 Datum
a = copyformat(Sheets(1).Range("AZ4"), Worksheets(4).Range("D35")) ' P-ES-4 Ergebnis
a = copyformat(Sheets(1).Range("BA4"), Worksheets(4).Range("F36")) ' P-ES-5 Datum
a = copyformat(Sheets(1).Range("BB4"), Worksheets(4).Range("D36")) ' P-ES-5 Ergebnis
a = copyformat(Sheets(1).Range("BC4"), Worksheets(4).Range("F37")) ' MG-GL-2 Datum
a = copyformat(Sheets(1).Range("BD4"), Worksheets(4).Range("D37")) ' MG-GL-2 Ergebnis
a = copyformat(Sheets(1).Range("BE4"), Worksheets(4).Range("F38")) ' MG-GS-1 Datum
a = copyformat(Sheets(1).Range("BF4"), Worksheets(4).Range("D38")) ' MG-GS-1 Ergebnis
End Sub

Function copyformat(ersteZelle As Range, zweiteZelle As Range) As Boolean
zweiteZelle.Font.Bold = ersteZelle.Font.Bold  'diese zeile macht die zweite zelle fett wenn  _
die erste zelle das auch ist
End Function

Das Problem ist das es irgendwie nicht mehr funktioniert.
Der link zu meiner Datei ist. https://www.dropbox.com/s/9tvileaul9u921g/Liste_1638140.xlsm?dl=0
Danke für eure Hilfe
Stefan

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

Betreff
Datum
Anwender
Anzeige
AW: Schriftart übertragen.
13.01.2015 09:31:49
Rudi
Hallo,
Das Problem ist das es irgendwie nicht mehr funktioniert.
super Beschreibung.
Man kann Dateien auch hier im Forum hochladen.
Gruß
Rudi

AW: Schriftart übertragen.
13.01.2015 12:47:40
Stefan
Hi,
die Datei selber ist zu groß für hier. Es ist ja bis 300kb begrenzt. Ok ich habe mich glaube ich falsch ausgedrückt. Es funktioniert einfach nicht und ich weiß nicht woran es liegt. Habe eigentlich gedacht das es so richtig ist.
Ich beabsichtige jede Schrift (ob fett oder normal) in ein anderes Tabellenblatt in eine bestimmte Zelle zu kopieren.
Schöne Grüße

geht bei mir owT
13.01.2015 13:16:42
Rudi
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige