Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
824to828
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
824to828
824to828
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

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
Anzeige
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.
Anzeige
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
Anzeige
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)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige