Microsoft Excel

Herbers Excel/VBA-Archiv

weitere Parameter in Code - aber wie ? | Herbers Excel-Forum


Betrifft: weitere Parameter in Code - aber wie ? von: Karsten
Geschrieben am: 28.01.2010 10:42:44


Hallo...

ich möchte, dass sich in A1 in u.s. Code noch Weiteres festgelegt wird, wie:
.Name = "Arial Black"
.Size = 20
.Colorindex = 5
.HorizontalAlignment = xlCenter

Sub ZeitInZelle()
 Application.EnableEvents = False
With ThisWorkbook
 .Sheets("Lehrbericht").Range("A1") = Format(Now, "hh:mm")
End Sub
Allerdings weiß ich nicht, wie.

Kann mir jemand dabei weiterhelfen? Danke.

Gruß
Karsten

  

Betrifft: With .Font -- Gruß owT von: Luc:-?
Geschrieben am: 28.01.2010 11:07:19

:-?


  

Betrifft: AW: With .Font -- Gruß owT von: Karsten
Geschrieben am: 28.01.2010 11:18:17

Hallo Luc:-?

danke, ich verstehe zwar nicht, wie alles komplett aussehen müsste, aber habe zwischenzeitlich schon eine andere lösung gefunden.

Gruß
Karsten


  

Betrifft: So, welche denn außer der von Reinhard,... von: Luc:-?
Geschrieben am: 28.01.2010 13:43:10

...die meine kurze Betreff-Nachricht meinte, Karsten?
Viell können wir ja da noch was von dir lernen... ;->
Gruß Luc :-?


  

Betrifft: AW: weitere Parameter in Code - aber wie ? von: Reinhard
Geschrieben am: 28.01.2010 11:22:24

Hallo Karsten,

Sub ZeitInZelle()
Application.EnableEvents = False
With ThisWorkbook.Sheets("Lehrbericht").Range("A1")
   .Value = Format(Now, "hh:mm")
   .HorizontalAlignment = xlCenter
   With .Font
      .Name = "Arial Black"
      .Size = 20
      .ColorIndex = 5
   End With
End With
Application.EnableEvents = True
End Sub

Gruß
Reinhard


  

Betrifft: AW: weitere Parameter in Code - aber wie ? von: Karsten
Geschrieben am: 28.01.2010 11:25:40

Hallo Reinhard,

Danke.

Gruß
Karsten


Beiträge aus den Excel-Beispielen zum Thema "weitere Parameter in Code - aber wie ?"