Arbeitszeit

[Micha2005]

Hallo, ich versuche mich in letzter Zeit wieder mit VBA zu beschäftigen, hab das Office 365 Paket... und
finde meinen fehler nicht!

Sub Arbeitszeit()
    ThisWorkbook.Worksheets("Tabelle2").Activate
    Range("C3").Value = "2025/06/16"
    Range("C3").Font.Bold True
    Range("C4").Value = "2026/01/21"
    Range("C4").Font.Bold True
    Range("C5").FormulaLocal "=C4-C3"
    Range("C5").Font.Bold True
    Range("C5").Font.Underline True
End Sub

Kann mir jemand einen Tip geben was ich falsch mache?

Gruß Micha

[HKindler]

Hi,

stell deinen Cursor mal auf das Bold von z.B. Range("C3").Font.Bold und drücke F1.

[Micha2005]

ok...

danke für die Hilfe
muss wohl noch viel lernen!

Gruß Micha

[slowboarder]

kleiner tipp noch:
Zellen, die das gleiche Format oder den selben Wert erhalten, kann man auch gemeinsam in einem Schritt bearbeiten.

aus.

Code:

Range("C3").Font.Bold = True
Range("C4").Font.Bold = True
Range("C5").Font.Bold = True

kann man das machen:

Code:

Range("C3:C5").Font.Bold = True