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 SubAllerdings weiß ich nicht, wie.
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
Betrifft: AW: weitere Parameter in Code - aber wie ?
von: Karsten
Geschrieben am: 28.01.2010 11:25:40
Hallo Reinhard,
Danke.
Gruß
Karsten