Zellen formatieren

Forumthread: Zellen formatieren

Zellen formatieren

04.12.2006 17:10:25

Peter

Guten Abend
Mit
with sheets("tabelle1")
.cells(1,1) = "Bezeichung"
.cells(1,2) = "..."
...
.cells(1,20) = "..."
habe ich die Spaltenüberschriften markiert.
Wie kann ich nun
- den Bereich .cells(1,1) bis .cells(1,20) resp.
- die ganze Zeile
fett markieren?
Danke für eine Rückmeldung.
Peter

7
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: Zellen formatieren

04.12.2006 17:15:05

Reinhard
AW: Zellen formatieren

04.12.2006 17:32:24

Peter
AW: Zellen formatieren

04.12.2006 17:36:24

Peter
AW: Zellen formatieren

04.12.2006 17:17:13

Peter
OT Bereich.Verschieben per Vba

04.12.2006 17:36:54

Reinhard
AW: Zellen formatieren

04.12.2006 17:41:05

Kurt
AW: Zellen formatieren

04.12.2006 17:50:21

Peter

AW: Zellen formatieren

04.12.2006 17:15:05

Reinhard

Hi Peter,

Sub tt()
Range(Cells(1, 1), Cells(1, 20)).Font.Bold = True
End Sub

Gruß
Reinhard
ps: Ich freue mich über eine Rückmeldung ob diese Antwort hilfreich war oder nicht..

AW: Zellen formatieren

04.12.2006 17:32:24

Peter

Hallo miteinander
Vielen Dank euch beiden.
Anschlussfrage:
Wenn ich die ganze Zeile markieren möchte, kann ich ja da bei der mir sonst geläufigen Schreibweise mit 1:1 machen.
Wie funktioniert es, mit Cells - oder geht es "irgendwie mit rows?
Nochmals besten Dank!
Peter

AW: Zellen formatieren

04.12.2006 17:36:24

Peter

Hallo Peter,
das sollte mit Rows(1).Font.Bold = True gehen.
Viele Grüße Peter
Eine kurze Nachricht, ob es läuft, wäre nett - danke.

AW: Zellen formatieren

04.12.2006 17:17:13

Peter

Hallo Peter
z. B. So: Range("A1:A20).Font.Bold = True
Viele Grüße Peter
Eine kurze Nachricht, ob es läuft, wäre nett - danke.

OT Bereich.Verschieben per Vba

04.12.2006 17:36:54

Reinhard

Hallo Peter,
nö, läuft so nich :-)
Jetzt wollte ich spasseshalber deinen Ansatz um 90 Grad drehen durch Bereich.Verschieben, aber der Editor meldet mir Fehler 438!? Probiert mit XL97.
Auch ohne ".Address" und auch ohne Angabe neuer Höhe und Breite klappt es nicht.

Sub tt()
Application.WorksheetFunction.Offset(Range("A1:A20").Address, 0, 0, 1, 20).Font.Bold = True
End Sub

Gruß
Reinhard

AW: Zellen formatieren

04.12.2006 17:41:05

Kurt

Hi,
Cells(1,1).entirerow.font.bold = true
mfg Kurt

AW: Zellen formatieren

04.12.2006 17:50:21

Peter

Hallo Kurt
Vielen Dank.
Mit dem Punkt (.) vor Cells klappt das wunderbar.
Peter

Beliebteste Forumthreads (12 Monate)

Forumthread: Zellen formatieren

7 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu diesem und ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

7
Beiträge zum Forumthread

Beiträge zu diesem Forumthread