VBA Befehle Formatierung

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hallo Jürgen,
was Dir die beiden vorsichtig andeuten wollen ist, dass Du den Makrorekorder nutzen sollst über
Entwicklertools/Makro aufzeichnen/OK
dann die einzelnen Schritte in einer Zelle durchführst und die Aufzeichnung über
Entwicklertools/Aufzeichnung beenden
Abschließt. Dann bekommst Du die folgende Prozedur:

Sub Makro1()
' Makro1 Makro
Range("A1").Select
Selection.Font.Italic = True 'kursiv einschalten
Selection.Font.Italic = False 'kursiv ausschalten
With Selection
.HorizontalAlignment = xlCenter 'horizontale Ausrichtung zentriert
.VerticalAlignment = xlBottom
.WrapText = False
.Orientation = 0
.AddIndent = False
.IndentLevel = 0
.ShrinkToFit = False
.ReadingOrder = xlContext
.MergeCells = False
End With
With Selection
.HorizontalAlignment = xlRight 'horizontale Ausrichtung rechtsbündig
.VerticalAlignment = xlBottom
.WrapText = False
.Orientation = 0
.AddIndent = False
.IndentLevel = 0
.ShrinkToFit = False
.ReadingOrder = xlContext
.MergeCells = False
End With
With Selection
.HorizontalAlignment = xlLeft 'horizontale Ausrichtung linksbündig
.VerticalAlignment = xlBottom
.WrapText = False
.Orientation = 0
.AddIndent = False
.IndentLevel = 0
.ShrinkToFit = False
.ReadingOrder = xlContext
.MergeCells = False
End With
With Selection
.HorizontalAlignment = xlGeneral 'horizontale Ausrichtung Standard
.VerticalAlignment = xlBottom
.WrapText = False
.Orientation = 0
.AddIndent = False
.IndentLevel = 0
.ShrinkToFit = False
.ReadingOrder = xlContext
.MergeCells = False
End With
End Sub

Gruß Rolf

Hallo Rolf,
danke für Deine Bemühungen
danke für die Übesendung des Codes
der ist mir jedoch bestens bekannt
und es ist ja auch nicht so das ich erst seit gestern mich mit VBA auseinandersetze
ich krieg den Code nicht in mein Makro eingebaut so das alles wieder rundläuft
mein Code ist folgender, der erweitert werden soll auf die Ausrichtung Text "Rechts"
(Wenn ich nochmal darauf Hinweisen darf, JEDOCH NICHT DER GESAMTE TEXT IN DER ZELLE, sonder nur der Text, der in Zelle "G42" gefunden wird und in "E7" formatiert werden soll)
MyTxt = Tabelle1.Range("G42").Value
Set Zelle = Tabelle4.Range("E7")
FirstPos = InStr(1, Zelle, MyTxt)
Zelle.Characters(FirstPos, Len(MyTxt)).Font.ColorIndex = 41
"hier müsste jetzt die Bedigung für Ausrichtung "RECHTS" her"
und das ist mit dem Resultat aus der Makro-Aufzeichnung nicht machbar
(Der Code aus dem Makro für Kursiv der funktioniet aber nicht für Ausrichtung "Recht")
Nochmal recht herzlichen Dank für Deine Bemühungen
Beste Grüße
Jürgen

Sub schrift() Dim hoch As Long Dim Zelle As Range Dim FirstPos& Dim MyTxt$ hoch = 100 'Anzahl der Zeichen bei dieser Schriftgroesse MyTxt = Tabelle2.Range("G42").Value Set Zelle = Tabelle3.Range("E7") FirstPos = InStr(1, Zelle, MyTxt) Zelle.Characters(FirstPos, Len(MyTxt)).Font.ColorIndex = 41 Zelle.Characters(FirstPos, Len(MyTxt)).Font.FontStyle = "Kursiv" Zelle = Left(Zelle, FirstPos - 1) & String(hoch - Len(Zelle), " ") & Mid(Zelle, FirstPos, 9 _ ^ 9) MyTxt = Tabelle2.Range("G13").Value FirstPos = InStr(1, Zelle, MyTxt) Zelle.Characters(FirstPos, Len(MyTxt)).Font.Size = 6.5 Set Zelle = Nothing End Sub

Sub schrift() Dim hoch As Long Dim Zelle As Range Dim FirstPos& Dim MyTxt$ hoch = 98 'Anzahl der Zeichen bei dieser Schriftgroesse MyTxt = Tabelle2.Range("G42").Value Set Zelle = Tabelle3.Range("E7") FirstPos = InStr(1, Zelle, MyTxt) Zelle = Left(Zelle, FirstPos - 1) & String(hoch - Len(Zelle), " ") & Mid(Zelle, FirstPos, 9 ^ _ 9) Zelle.Characters(FirstPos, 9 ^ 9).Font.ColorIndex = 41 Zelle.Characters(FirstPos, 9 ^ 9).Font.FontStyle = "Kursiv" MyTxt = Tabelle2.Range("G13").Value FirstPos = InStr(1, Zelle, MyTxt) Zelle.Characters(FirstPos, Len(MyTxt)).Font.Size = 6.5 Set Zelle = Nothing End Sub

Beliebteste Forumthreads (12 Monate)

22 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

22
Beiträge zum Forumthread

Beiträge zu diesem Forumthread