zellinhalt formatieren

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Private Sub Worksheet_Change(ByVal Target As Excel.Range) If Target.Address = "$A$1" Then If Range("A1") = "deutsch" Then Range("A2") = "Nettogeschossfläche NGF" Range("A2").Characters(Start:=21, Length:=3).Font.FontStyle = "Bold" Else Range("A2") = "surface nette SN" Range("A2").Characters(Start:=15, Length:=2).Font.FontStyle = "Bold" End If End If End Sub

hallo chris

ok, hier ein grober überblick:

ich habe eine excel-mappe mit ca. 15 arbeitsblättern. die mappe dient der kostenkalkulation in der projektierungsphase von bürobauten.

ich habe die aufgabe, das bestehende file zu verbessern. so habe ich mich auch entschlossen, das file zweisprachig zu machen.

in vielen zellen steht also text in deutsch oder französisch. in einigen zellen ist der text teilweise hervorgehoben (eben, z.B. "NGF" in "Nettogeschossfläche NGF").

für diese ca. 50 zellen, die ähnlich sind, wären also jeweils die grossbuchstaben fett. in anderen zeilen sind dies z.B. die zahlen.

da ich innerhalb der wenn-formel nicht unterschiedlich formatieren kann, muss ich dies anschliessend mit VBA machen. die frage ist nur wie (deine erste lösung für alle zellen zu schreiben ist mir zu aufwändig).

hoffe, du hast jetzt den durchblick und kannst mir nochmals helfen.

danke, gruss joel

Private Sub Worksheet_Change(ByVal Target As Excel.Range) Dim iBlatt As Integer Dim Zelle As Object If Target.Address = "$A$1" Then For iBlatt = 1 To Worksheets.Count For Each Zelle In Worksheets(iBlatt).UsedRange If Zelle = "Nettogeschossfläche NGF" Then Zelle.Characters(Start:=21, Length:=3).Font.FontStyle = "Bold" If Zelle = "surface nette SN" Then Zelle.Characters(Start:=15, Length:=2).Font.FontStyle = "Bold" Next Zelle Next iBlatt End If End Sub

Hi Joel

So jetzt ist mir doch noch die Idee gekommen...
Option Explicit


Private Sub Worksheet_Change(ByVal Target As Excel.Range)
Dim iBlatt As Integer
Dim Zelle As Object
If Target.Address = "$A$1" Then
Application.ScreenUpdating = False
For iBlatt = 1 To Worksheets.Count
For Each Zelle In Worksheets(iBlatt).UsedRange
If Target = "deutsch" And Zelle = "surface nette SN" Then
Zelle = "Nettogeschossfläche NGF"
Zelle.Characters(Start:=21, Length:=3).Font.FontStyle = "Bold"
End If
If Target <> "deutsch" And Zelle = "Nettogeschossfläche NGF" Then
Zelle = "surface nette SN"
Zelle.Characters(Start:=15, Length:=2).Font.FontStyle = "Bold"
End If
Next Zelle
Next iBlatt
Application.ScreenUpdating = True
End If
End Sub

Gruss
Chris

Sub Einzelne_Zeichen_formatieren_in_ausgewähltem_Bereich() Application.ScreenUpdating = False For Each cell In Selection Z = cell.Row s = cell.Column Cells(Z, s).Select On Error Resume Next A = ActiveCell.Characters.Count For j = 1 To A If ActiveCell.Characters(j, 1).Text = "b" Then ActiveCell.Characters(j, 1).Font.Name = "Symbol" End If If ActiveCell.Characters(j, 1).Text = "2" Then ActiveCell.Characters(j, 1).Font.Superscript = True End If Next j Next cell Application.ScreenUpdating = True End Sub

Beliebteste Forumthreads (12 Monate)

16 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

16
Beiträge zum Forumthread

Beiträge zu diesem Forumthread