Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
1708to1712
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
Inhaltsverzeichnis

Formatierung mehrer Zellen

Formatierung mehrer Zellen
03.09.2019 22:13:39
Benedikt
Guten Abend zusammen
Wie kann ich mehrere Zellen kursiv und unterstrichen formatieren
Mein Ansatz kann es ja nicht sein
'Formatierung Unterstreichen und Kursiv innerhalb Textblock
iRowT = wksOfferte.Cells(wksOfferte.Rows.Count, 3).End(xlUp).Row - 1
wksOfferte.Cells(iRowT, 3).Font.Italic = True
wksOfferte.Cells(iRowT, 3).Font.Underline = xlUnderlineStyleSingle
'Formatierung Unterstreichen und Kursiv innerhalb Textblock
iRowT = wksOfferte.Cells(wksOfferte.Rows.Count, 3).End(xlUp).Row - 4
wksOfferte.Cells(iRowT, 3).Font.Italic = True
wksOfferte.Cells(iRowT, 3).Font.Underline = xlUnderlineStyleSingle
Danke für eure Hilfe

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Formatierung mehrer Zellen
03.09.2019 23:53:44
GerdL
Guten Abend, Benedikt!
Sub Test()
Dim Bereich As Range
Set Bereich = wksOfferte(Cells(wksOfferte.Rows.Count, 3).End(xlUp).Offset(-4, 0), wksOfferte. _
Cells(wksOfferte.Rows.Count, 3).End(xlUp).Offset(-1, 0))
MsgBox Bereich.Address
Set Bereich = Union(wksOfferte.Cells(Rows.Count, 3).End(xlUp).Offset(-4, 0), wksOfferte.Cells( _
Rows.Count, 3).End(xlUp).Offset(-1, 0))
MsgBox Bereich.Address
End Sub

Gruß Gerd
Vielen Dank Gerd
04.09.2019 01:55:35
Benedikt
Danke vielmals
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige