Live-Forum - Die aktuellen Beiträge
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Teile einer Zelle fett

Teile einer Zelle fett
Dieter
Hallo zusammen,
ich habe in einer Zelle eine 7-stellige Zahl z.B. 1234567.
Ist es möglich per Makro die letzten vier Stellen 1234567 Fett zu markieren?
Danke im Vorraus
Gruß
Dieter

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

Betreff
Benutzer
Anzeige
AW: Teile einer Zelle fett
13.06.2012 20:48:11
Hajo_Zi
Hallo Dieter,
das geht nur bei Text
also '778989 und den entsprechenden Teil markieren und formatieren.

AW: Teile einer Zelle fett
13.06.2012 20:51:50
Josef

Hallo Dieter,
' **********************************************************************
' Modul: Tabelle1 Typ: Element der Mappe(Sheet, Workbook, ...)
' **********************************************************************

Option Explicit

Private Sub Worksheet_Change(ByVal Target As Range)
  Dim rng As Range
  
  On Error GoTo ErrExit
  Application.EnableEvents = False
  For Each rng In Intersect(Target, Columns(1))
    If IsNumeric(rng) Then
      If Len(rng.Text) = 7 Then
        rng = "'" & rng.Text
        rng.Font.Bold = False
        rng.Characters(4, 4).Font.Bold = True
      End If
    End If
  Next
  
  ErrExit:
  Application.EnableEvents = True
  Set rng = Nothing
End Sub



« Gruß Sepp »

Anzeige

326 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige