Schriftart übertragen.
13.01.2015 08:30:43
Stefan
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