Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1328to1332
1328to1332
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

VBA Befehle Formatierung

Forumthread: VBA Befehle Formatierung

VBA Befehle Formatierung
20.09.2013 12:31:09
Jürgen
Hallo miteinander,
wer könnte mir bitte sagen wie der Befehl für Schriftstellung Kursiv ist
und für
Text-Ausrichtung
(Gibt es für Text-Ausrichtung mehrere Varianten? So wie z.B. in in der Programmier-Sprache CSS da gibt es die Varianten px, em u. %, gibt es das in VBA auch?)
Würde mich freuen wenn mir da jemand weiter helfen könnte
Mit freundlichen Grüßen

Anzeige

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

Betreff
Datum
Anwender
Anzeige
AW: VBA Befehle Formatierung
20.09.2013 12:35:10
Rudi
Hallo,
wer könnte mir bitte sagen wie der Befehl für Schriftstellung Kursiv ist
der Recorder.
Gruß
Rudi

AW: VBA Befehle Formatierung
20.09.2013 12:42:19
Jürgen
Hallo miteinander,
wer könnte mir bitte sagen wie der Befehl für Schriftstellung Kursiv ist
und für
Text-Ausrichtung
(Gibt es für Text-Ausrichtung mehrere Varianten? So wie z.B. in in der Programmier-Sprache CSS da gibt es die Varianten px, em u. %, gibt es das in VBA auch?)
Würde mich freuen wenn mir da jemand weiter helfen könnte
Mit freundlichen Grüßen

Anzeige
Der Makrorekorder ! (owT)
20.09.2013 13:11:21
EtoPHG

Hinweis....
20.09.2013 14:38:50
rolfk
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

    • Anzeige
    Hinweis....
    20.09.2013 15:41:02
    Jürgen
    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

    Anzeige
    10 Sekunden mit Rekorder!
    20.09.2013 15:48:28
    EtoPHG
    Jürgen,
    und man bekommt raus, das heisst irgendwie 
    Range.HorizontalAlignment = xlRight
    Schönes Wochenende
    Hansueli

    AW: 10 Sekunden mit Rekorder!
    20.09.2013 15:53:06
    Jürgen
    Hallo Du da,
    meinste nicht auch das ich das schon ausprobiert habe,
    DEFENITIV FUNKTINIERT NICHT!!!!!!!!1
    Und nochmal besten Gruß zurück an
    Rudi
    Mit freundliche Grüßen
    Jürgen

    Anzeige
    AW: 10 Sekunden mit Rekorder!
    20.09.2013 15:55:15
    Jürgen
    Hallo Du da,
    meinste nicht auch das ich das schon ausprobiert habe,
    DEFENITIV FUNKTINIERT NICHT!!!!!!!!1
    Und nochmal besten Gruß zurück an
    Rudi
    Mit freundliche Grüßen
    Jürgen

    AW: Stopp..
    20.09.2013 16:10:36
    hary
    Moin
    .... nicht streiten, ich meine zu glauben was Juergen haben moechte!? Nicht den ganzen Text sondern nur den hinteren Teil. Also: 63Mill Dollar soll ganz rechts.
    2004: Suspect Zero - Im Auge des Mörders (01) (Suspect Zero) 104Min TH, KR, MY 63Mill Dollar
    2004: Suspect Zero - Im Auge des Mörders (01) (Suspect Zero) 104Min TH, KR, MY xxxxxxx63Mill Dollar
    Die x sind Leerzeichen
    Da kannst du hoechstens leerzeichen einfuegen. *glaub*
    Oder setz diesen Teil eine Spalte weiter.
    gruss hary

    Anzeige
    AW: Stopp..
    20.09.2013 16:29:30
    Jürgen
    Hallo Hary,
    Du hast das ganz recht erkannt, die Budget-Angabe soll ganz rechts in der Zelle ausgerichtet werden,
    soweit so gut
    ich kann mir aber beim besten willen nicht vorstellen das man das nicht programmieren kann
    (man kann mit VBA auch um "die Ecke" programmieren)
    Nein eine weite Spalte hinzufügen soll nicht sein! (warum nicht - Weiterverarbeitung der Zelle)
    Hary wie immer danke
    Beste Grüße
    Jürgen

    Anzeige
    AW: siehe unten owT
    20.09.2013 16:42:54
    hary
    .

    Dann hast du es halt falsch gemacht
    20.09.2013 15:58:47
    EtoPHG
    Jürgen,
    Du sagst uns ja nicht was und wie du es ausprobiert hast.
    Falls du davon sprichst, nur einen Teil eines Texts in einer Zelle rechts auszurichten, dann bist du definitiv auf dem Holzweg. Denn was du nicht durch manuelle Operation über die Excel-GUI an der Zell-Formatierung ändern kannst, ist auch per VBA unmöglich.
    Übrigens ist "DEFENITIV FUNKTINIERT NICHT!!!!!!!!1" keine mir bekannte VBA-Fehlermeldung!
    Gruess Hansueli

    Anzeige
    AW: Dann hast du es halt falsch gemacht
    20.09.2013 16:12:22
    Jürgen
    Hansueli
    wenn ich etwas falsch gemacht habe, gaaaaaannnnnnzzzzz bestimmt
    dann komm doch mal mit einer Lösung rüber
    Gruß

    Es gibt keine saubere Lösung
    20.09.2013 18:05:56
    EtoPHG
    Jürgen,
    Wie gesagt: Ein Teil eines Zellen-Texts lässt sich nicht rechts ausrichten! XL ist nicht WORD!
    Der Ansatz mit Leerstellen wird mit allen Proportional-Schriften scheitern.
    Verwendet man hingegen eine nicht proportionale Schrift für die Zelle, z.B. Courier New, dann lässt sich das auch mit Formeln zusammenbasteln. Im übrigen hab ich geschrieben, dass vor die HorizontalAlignment-Eigenschaft eine Range gehört und du verwendest dann einfach deine Characters-Objekt, welches aber diese Eigenschaft gar nicht besitzt und zu einem Laufzeitfehler 438 führt, den du aber geflissentlich verschwiegen hast. Vielleicht ab und zu die VBA-Hilfe bemühen, oder den Objekt-Explorer im VBE?
    Gruess Hansueli

    Anzeige
    AW: Hinweis....
    20.09.2013 16:17:44
    Jürgen
    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

    Anzeige
    AW: Hinweis....
    20.09.2013 16:22:28
    hary
    Hallo Juergen
    Trifft meine Ahnung im Beitrag "Stop" zu?
    gruss hary

    Ergänzung.....
    20.09.2013 16:22:48
    rolfk
    Hallo Jürgen,
    ...und es ist ja auch nicht so das ich erst seit gestern mich mit VBA auseinandersetze
    Das war aus Deinem ersten Beitrag nicht zu erkennen, insbesondere nachdem Du den ersten Hinweis ignoriert hast und Deine Eingangsfrage nur wiederholt hast.
    (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)
    Auch das war nicht aus Deinem ersten Beitrag zu erkennen.
    Aber egal, das man das nicht einfach mit
    .HorizontalAlignment = xlRight
    erreichen kann, hat Dir EtoPHG ja schon erklärt. Eine rein theoretische Möglichkeit besteht dann nur noch, wenn der Zieltext eine definierte Gesamtlänge hast, dass Du dann Textteil aus G42 mit einer berechneten Anzahl Leerzeichen auffüllst. Aber Vorsicht, da die Schriften ja meist Proportionalschriften sind, kann das nicht wirklich aufgehen...
    Gruß Rolf

    Anzeige
    AW: Ergänzung.und Probe
    20.09.2013 16:41:32
    hary
    Hallo Rolf
    Das meinte ich.
    Juergen probier mal so. 
    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

    gruss hary

    Anzeige
    AW: Ergänzung.und Probe
    20.09.2013 17:07:28
    Jürgen
    Hallo Hary,
    dein Makro läuft rund
    aber ohne das gewünschte Ergebnis
    selbst die Budget-Angabe wird nicht mehr farblich ausgeführt
    (obwohl es im Code eindeutig zulesen ist)
    Ich mach heute an dieser Stelle Schluß
    Beste Grüße
    Jürgen

    Mea Culpa
    20.09.2013 16:49:53
    Jürgen
    Hallo Rolf,
    sorry, wenn das so rüber gekommen sein sollte, tut es mir leid.
    Also wie gesagt ich hab das mit dem ".HorizontalAlignment = xlRight" Code-Fragment ausprobiert funktioniert leider nicht
    Ich hab das Code-Fragment folgender maßen eingebaut
    MyTxt = Tabelle1.Range("G42").Value 'Formatierung Budget-Angabe
    Set Zelle = Tabelle4.Range("E7") 'dann mach blau
    FirstPos = InStr(1, Zelle, MyTxt)
    Zelle.Characters(FirstPos, Len(MyTxt)).Font.ColorIndex = 41
    Zelle.Characters(FirstPos, Len(MyTxt)).HorizontalAlignment = xlRight
    Ich Denke mal in der ganze Sache wird einfach nur ein Denkfeher vorliegen
    Ich lass mir da noch die ein oder ander Frage an euch einfallen
    Beste Grüße
    Jürgen

    Anzeige
    AW: Mea Culpa
    20.09.2013 16:55:49
    hary
    Moin
    Etwas verbessert. Probier mal. 
    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

    gruss hary

    Anzeige
    Warum nicht einfach 'horizontal verteilt' wählen?!
    20.09.2013 19:42:23
    Luc:-?
    Gruß Luc :-?
    ;

    Forumthreads zu verwandten Themen

    Makro/VBA Berechnung
    Bruehmi

    Hi, müsste in meinen Code folgende Berechnung einfügen:
    a - R + b - R + 1/4 * 2 * pi * R
    Die Variablen sind jeweils Zellen. Hab 2 Versionen:
    1) "=SUM(R[0]C[8],-R[0]C[13],R[0]C[9],-R[0]C[13],(PRODUCT(MOD(1,4)),2,Pi(),R[0]C[13]))
    und
    2) Range("M" & k).Value - Range("R...
    19.10.2008 12:29:07
    Thread-ID: 1017451
    10 Beiträge
    Anzeige
    VBA Buch
    Sebastian

    Hallo,
    ich möchte mich gerne etwas weiterbilden und bin auf der Suche nach einem guten Buch zu VBA in Excel.
    Könnt Ihr mir etwas empfehlen?
    Vielen Dank,
    gruß Seppel
    19.10.2008 13:23:59
    Thread-ID: 1017475
    5 Beiträge
    Formel Editor per Vba befüllen
    Reinhard

    Hallo Wissende,
    über Einfügen--Objekt kann man ja den Formel Editor 3.0 einfügen.
    Mal davon abgesehen daß ich zu doof bin um da das Wurzelzeichen zu finden, gibt es einen Vba-Code, der den Formel Editor so befüllt, daß das Ergebnis nachher in etwa so aussieht:
    http://upload.wikimed...
    31.10.2008 15:05:36
    Thread-ID: 1020901
    3 Beiträge
    Ja-Nein Abfrage per VBA beantworten
    rogger777

    Hallo,
    ich habe eine Sammelmappe in der von Mehreren Daten gesammt werden. Bevor die Datei geschlossen wird habe ich ich mit Hilfe von "workbook_BeforeClose" eine Abfrage eingebaut, die den jeweiligen Bearbeiter fragt, ob er das aktuelle Datum für den von ihm bearbeiteten Datensatz eingetra...
    10.11.2008 15:16:00
    Thread-ID: 1023218
    6 Beiträge
    Security Warning per VBA bestätigen
    Lars

    Hallo,
    Ich öffne mittels VBA aus Excel eine Access DB. Beim Öffnen der Access DB erhalte ich ein Fenster zur Security Warning von Makro Code. Ich kann "Cancel, Open, More Info" auswählen. Nun möchte ich automatisch in meinem VBA Excel Code diese Meldung mit "Open" bestätigen. Wie geht dies?...
    24.11.2008 17:49:00
    Thread-ID: 1027414
    3 Beiträge
    VBA Bedingte Formatierung
    Peter

    Hallo,
    möchte gern das Abhängig von A1 in der ein "w" oder ein "m" steht, das A2:Z22 alles entweder rosa (w)
    oder hell bLau (m) ist.
    Habt Ihr eine Idee?
    Beim Druck soll nachher alles wieder schwarz weiß sein.
    Gruß Peter
    09.12.2008 22:32:36
    Thread-ID: 1031538
    20 Beiträge
    Zelle von VBA beschreiben
    VBA

    Hallo,
    was schreibe ich in VB, um diese Formel in eine Zelle zu schreiben?
    =WENN(J2="";"";((E2/(100+J2)*J2)))
    Danke für die Hilfe
    Gruß
    Fred
    11.12.2008 17:03:18
    Thread-ID: 1032135
    4 Beiträge
    Welches VBA Buch ist Gut für Anfänger!
    Peter

    Hallo Excelfreunde
    stehe am Anfang, und möchte mich mit VBA beschäftigen.
    Also ein Anfänger.
    Welches VBA Buch ist Gut für Anfänger!
    Habe XP und Excel 2003 auf dem Rechner.
    Lieben Gruß PETER
    29.12.2008 17:35:00
    Thread-ID: 1035822
    6 Beiträge
    Formeln in Zellen tretz VBA beibehalten
    Enrico

    Ich benutze ein selbsterstelltes userform um Datensätze zu finden, zu modifizieren und zurückzuschreiben.
    Läuft alles bestens. Nur der richtige Dreh um die Formeln einer Zellen beizubehalten fehlt mir noch.
    Ein Beispiel. Angezeigt werden in B6 5 Stunden und in B7 7 Stunden. B8 wird das...
    31.12.2008 15:11:47
    Thread-ID: 1036151
    2 Beiträge
    Inputbox für VBA Befehl
    Tom

    Hallo,
    ich habe folgenden Code und brauche eine Inputbox, die die Eingabe in den VBA Code integriert.
    Vorerst mal der Code:
    'Auszulesende Dateien Else ' B = 0 If sArea2(B) "" Then ThisWorkbook.Sheets(OName).Cells(LCol, 1) = OName 'schreibe Ordnername sFormel = Right$(sArea2(B), L...
    05.01.2009 15:21:00
    Thread-ID: 1036995
    9 Beiträge
    Farben in Kommentar per VBA bestimmen
    Marco

    Hallo an alle,
    habe einen Code, der automatischeinen Kommentar im excel erstellt.
    nun möchte ich aber gern wissen, ob es auch möglich ist, den Kommentar in mehreren Farben automatischzu erstellen.
    hier der code:
    a = InputBox("Verwendung eingeben", "")
    b = InputBox("Betrag ei...
    16.02.2009 10:24:00
    Thread-ID: 1051043
    7 Beiträge
    Anzeige
    VBA Befehl in mehreren Sheets ausführen
    Tom

    Hallo zusammen,
    ich habe folgendes Problem:
    Ich habe ein Makro aufgezeichnet wo er mir in den Sheets 1 - 24 (so habe ich sie genannt) Spalten ausblenden soll. Wärend der Aufnahme zeigt er mir auch in den Sheets an, das die gewünschten Spalten ausgeblendet sind. Wenn ich das Makro jetzt...
    16.03.2009 10:46:16
    Thread-ID: 1060630
    8 Beiträge
    Anzeige

    Beliebteste Forumthreads (12 Monate)

    Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
    Anzeige
    Anzeige
    Anzeige