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

Format Ausrichtung Text nach oben WENN - VBA

Forumthread: Format Ausrichtung Text nach oben WENN - VBA

Format Ausrichtung Text nach oben WENN - VBA
02.04.2016 14:52:33
Martin
Hallo zusammen,
wiedermal eine Frage an dieses geniale Forum!
In den Bereich I62:CL62 werden mittels VBA Texte geschrieben und auch wieder gelöscht. Ich hätte nun gerne die Formatierung: Ausrichtung "Text nach oben drehen" wenn sich in der Zelle das Wort "MAT" befindet, sonst soll die Ausrichtung normal sein.
Geht das mit VBA? Die bedingte Formatierung gibt mir diese Möglichkeit leider nicht.
Danke schon jetzt für eure Hilfe!
lg
MArtin

Anzeige

7
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Format Ausrichtung Text nach oben WENN - VBA
02.04.2016 15:00:20
Hajo_Zi
Hallo Martin,
zeichne die Aktion mit dem Makrorecorder auf und If dürfte ja nicht das Problem sein.

AW: Format Ausrichtung Text nach oben WENN - VBA
02.04.2016 15:36:18
Martin
Hi Hajo,
danke für die schnelle Antwort! Leider bekomme ich das nicht hin. Ich verstehe IF zwar wenn ich es sehe und kann es dann auch abändern, kann es aber leider nicht wirklich erstellen. Mein VBA ist wirklich sehr bescheiden :/
Ich hab mich jetzt ein bisschen rum gespielt, komme aber zu keinem Ergebnis. Mein Ansatz ist folgender: (Wird kompletter Blödsinn sein)
Sub Ausrichtung()
If Sheets("Planung").Range("I62:CL62").Value = "MAT" Then
.Orientation = 90
Else
.Orientation = 0
End If
End Sub
Kannst du mir hier bitte doch nochmal helfen?
Vielen dank und lg
Martin

Anzeige
AW: Format Ausrichtung Text nach oben WENN - VBA
02.04.2016 15:50:45
Hajo_Zi
Hallo Martin,
es fehlt das With für .Orientation
Du solltest den aufgezeichneten Code nur ändern, wenn Du es verstehst.
Du kannst nicht mehrere Zelle auf einmal auf Inhalt prüfen.
COUNTIF()
Gruß Hajo

Anzeige
AW: Format Ausrichtung Text nach oben WENN - VBA
02.04.2016 15:59:42
Fennek
Hallo Martin,
ungeprüft:

Sub Ausrichtung()
Dim rng as range
Set rng = sheets("Planung").range("i62:cl62")
If worksheetfunction.countif(rng, "Mat") > 0 then
Rng.orientation = 90
Else
Rng.orientation = 0
End if
End sub
Mfg

AW: Format Ausrichtung Text nach oben WENN - VBA
02.04.2016 21:39:02
Martin
Hallo Fennek!
Danke für deine Hilfe! Ich habe erst jetzt hier rein geschaut da ich versuchte mir selber eine Lösung zu basteln. Nach langem suchen habe ich auch einen Code gefunden der zwar nicht genau das gemacht hat was ich gesucht habe, aber ich habe es nach einigen Versuchen geschafft ihn so anzupassen das er funktioniert.
Danke trotzdem für deine Bemühungen!
Hier zur Info noch der Code:
Private Sub FormatMat()
Dim z As Object, Rng As Range
Dim i As Long
Set Rng = Range("I52:CL52")
'Alles auf 0 Orientieren
Rng.Orientation = 0
'Nur Zellen mit MAT auf 90 Orientieren
For Each z In Rng.SpecialCells(xlCellTypeConstants, 2)
If z.Value = "MAT" Then
z.Orientation = 90
End If
Next
End Sub
Danke nochmal an euch beide für eure Hilfe!
LG
Martin

Anzeige
AW: Projekt hat sich leicht geändert - Anpassung
04.04.2016 10:00:24
Mats
Hi nochmal,
das Projekt hat sich nun etwas erweitert und ich muss nun mehrere Bereiche überprüfen. Im Moment sind es 4 weitere, es können jedoch mehr werden. Kann man die Bereiche irgendwie hinzufügen?
Zudem wäre es super wenn der Code nicht nur MAT überprüfen kann sondern alles das mit "MAT" beginnt. Ich habe "MAT*" versucht, aber das geht nicht.
Hier nochmal der aktuelle Code:
Private Sub FormatMat()
Dim z As Object, Rng As Range
Dim i As Long
Set Rng = Range("I52:CL52")
'Alles auf 0 Orientieren
Rng.Orientation = 0
'Nur Zellen mit MAT auf 90 Orientieren
For Each z In Rng.SpecialCells(xlCellTypeConstants, 2)
If z.Value = "MAT" Then
z.Orientation = 90
End If
Next
End Sub
Danke für eure Hilfe!
lg
Martin

Anzeige
AW: Projekt hat sich leicht geändert - Anpassung
05.04.2016 13:59:30
Steve
Hallo,
mit dem Range-Befehl kann man nur zusammenhängende Bereiche angeben, du benötigst den Befehl Union(), der dir die Vereinigungsmenge bildet.
Wenn du den Anfang prüfen willst nutzt dir die Funktion Left() etwas. Left(Text, 3) gibt dir die ersten drei Zeichen von links.
lg Steve
Private Sub FormatMat()
Dim z As Object, Rng As Range
Dim i As Long
Set Rng = Union(Range("I52:CL52"), _
Range("A4:C100"), _
Range("B150:B200"), _
Range("Z1:Z20"), _
Range("ASD5:ASE5"))
'Alles auf 0 Orientieren
Rng.Orientation = 0
'Nur Zellen mit MAT auf 90 Orientieren
For Each z In Rng.SpecialCells(xlCellTypeConstants, 2)
If Left(z.Value, 3) = "MAT" Then
z.Orientation = 90
End If
Next
End Sub

Anzeige

Forumthreads zu verwandten Themen

In derTextBox das Format ändern
edie

Hallo zusammen,
würde gerne, wenn es möglich wäre, das Datum in der TextBox im Format TT.MM.YYYY
zurückschreibe in die Zelle A1 im Format YYYY-MM-TT 00:00 z. B. 2008-07-01 00:00
Wenn es möglich ist dann wie?
Hat jemand eine Idee und kann weiter helfen?
Danke im Voraus.
...
13.08.2008 15:27:49
Thread-ID: 1001560
3 Beiträge
Anzeige
Textbox und das Zeitformat
Rechsteiner

verstehe nicht viel von VBA, leider, habe die Eingabemaske ein bisschen abgeändert. Funktioniert eigentlich für meine bedürfnisse gut.
Das Problem: wenn ich über die Maske Zeit eintrage funktioniert es wunderbar, wenn ich aber im Tabellenblatt die Zeiten ändere bekomme ich in der Maske nich...
15.12.2008 16:28:00
Thread-ID: 1033081
4 Beiträge
Textfeld formatieren Strg+Tab per VBA
Ralf

Hi Excelspezialisten,
wie formatiere ich per VBA folgenden TExt in einer Textbox so, dass das L und Q schön
untereinander stehen (in echt ohne die "."):
ilr: . . . L1L
WMO: Qlf
Von Hand geht das mit Strg+Tab nach den ":". Per VBA mit chr(9) oder vbKeyTAB
wird aber nur...
01.10.2009 10:41:29
Thread-ID: 1106586
8 Beiträge
UF Textbox in das richtige Format setzen
Heinz

Hallo Leute
Ich teste jetzt schon ca.3 Stunden um UF Textboxen in das richtige Format zu setzen.
Ich möchte das man nur dasFormat zB. "08,50" oder "12,50" eingeben kann.
Könnte mir bitte jemand helfen ?
Gruß
Heinz
Private Sub txtMoAZvon_Exit(ByVal Cancel As MSForms.Retur...
05.01.2010 20:42:57
Thread-ID: 1127442
5 Beiträge
Formatierungs-Kontextmenü mit VBA ausblenden
MatthiasG

Hallo zusammen,
Ich bin gerade am Anpassen einer Excel 2003-Anwendung an die neue Excel-Version.
wenn ich im neuen Excel (2010) auf eine Zelle rechtsklicke, erscheint neben dem normalem Kontextmenu noch ein Formatierungs-Menü (mit Schriftart, -größe usw). Wie kann ich dieses (per VBA) a...
07.09.2011 12:05:00
Thread-ID: 1228923
3 Beiträge
Format n. verlassen textbox
Walter

Guten Abend zusammen,
wenn ich eine Textbox auf einer UF eine Zahl eingegeben habe,
möchte ich gern das Format: #.##0,00
habe dies: Private Sub TextBox4_Enter() TextBox4.BackColor = &HFFFFC0 'RGB(255, 255, 255) TextBox4.SetFocus With TextBox4 .SetFocus .SelSta...
05.03.2012 19:19:47
Thread-ID: 1253749
12 Beiträge
Anzeige
VBA TextBox Formatierung
Andy

Guten Morgen zusammen
Bin mal wieder auf der Suche nach Hilfe.
Habe ein UF mit Textboxen, in einer Textbox sollte ich zahlen eingeben.
und möchte das dies gleich auch in der UF so dargestellt wird und auch in der
Tabelle.
123.4.456.789 = Darstellung
123445679 = Eingabe...
17.11.2012 08:16:50
Thread-ID: 1287043
16 Beiträge
Anzeige
VBA: textbox afterupdate format Datum
Bernd

Hallo zusammen,
irgendwie bekomme ich das nicht richtig hin, vielleicht kann mir jemand behilflich sein und den Code berichtigen.
Hier mein Code, der nicht funktioniert:
Private Sub TextBox5_AfterUpdate() 'TextBox5 = format(CDbl(TextBox5), "TT.MM.JJJJ") End Sub Vielen Dank im...
03.06.2013 19:44:47
Thread-ID: 1316131
3 Beiträge
VBA: bei verlassen Textbox 5, berechnen Textbox6
Bernd

Hallo zusammen,
bei folgendem Problem komme ich nicht weiter.
Userform Textbox5 enthält Geburtstag. In TextBox6 sollen die Tage bis zum nächsten Geb. berechnet werden. Am Geb. direkt soll "Happy Birthday" in TextBox6 stehen.
Habe eine Formel, die in der Tabelle bereits diese Ergebni...
06.08.2013 15:18:19
Thread-ID: 1325930
8 Beiträge
vba anpassen daten von excel nach word mit textmar
excel

Hallo Forum
ich möchte ein bestehndes VBA anpassen. habe leider keine grosse VBA Ahnung.
ich möchte aus Excel eine ganze zeile A3:M3 nach Word mittels Textmarke abfüllen eine Textmarke habe ich , jetzt wie muss mann das VBA anpassen das es die ander Textmarken erkennt und mitnimmt? ich...
27.01.2014 13:03:28
Thread-ID: 1346849
3 Beiträge
VBA - Auslesen bei wiederkehrendem Textformat
eric

Hallo liebe Excel-Community,
ich habe folgende Herausforderung:
Es sollen Daten aus mehreren Excel-Dateien ausgelesen werden und in einer anderen Excel-Datei ausgegeben werden. Mein Makro funktioniert soweit tadellos, wenn die Anzahl der auszulesenden Dateien fest ist:
Modul 1
S...
01.12.2014 11:05:39
Thread-ID: 1395443
3 Beiträge
VBA: Formatierung TextBox als Zahl
Lorena

Hallo,
ich benötige Hilfe bei einem Problem mit einer UserForm bzw. mit den Textboxen darin.
Wird in die Textboxen eine Zahl oder 0 eingetragen, so soll diese in der Zelle M1 erscheinen. Wird nichts eingegeben, soll in der Zelle "tbd" eingetragen werden. Ich habe dies bisher so gelöst:...
07.04.2015 12:28:43
Thread-ID: 1419349
4 Beiträge
Anzeige
Anzeige

Infobox / Tutorial

Text Ausrichtung in Excel mit VBA: Text nach oben drehen

Schritt-für-Schritt-Anleitung

  1. Öffne den VBA-Editor:

    • Drücke ALT + F11, um den VBA-Editor zu öffnen.

  2. Füge ein neues Modul hinzu:

    • Klicke mit der rechten Maustaste auf "VBAProject (dein Arbeitsmappennamen)" und wähle Einfügen > Modul.

  3. Kopiere den folgenden Code:

    Private Sub FormatMat()
   Dim z As Object, Rng As Range
   Set Rng = Range("I62:CL62")
   ' Alles auf 0 Orientieren
   Rng.Orientation = 0
   ' Nur Zellen mit MAT auf 90 Orientieren
   For Each z In Rng.SpecialCells(xlCellTypeConstants, 2)
       If z.Value = "MAT" Then
           z.Orientation = 90
       End If
   Next
End Sub

  4. Schließe den VBA-Editor:

    • Drücke ALT + Q, um den Editor zu schließen.

  5. Führe das Makro aus:

    • Drücke ALT + F8, wähle FormatMat aus und klicke auf Ausführen.

Häufige Fehler und Lösungen

  • Fehler: "Objektvariable oder With-Blockvariable nicht festgelegt"

    • Lösung: Stelle sicher, dass der Bereich korrekt definiert ist. Überprüfe, ob die Zellen tatsächlich Werte enthalten.

  • Fehler: Ausrichtung wird nicht geändert

    • Lösung: Vergewissere dich, dass die Zellen im Bereich I62:CL62 tatsächlich den Wert "MAT" enthalten. Achte auch darauf, dass du die richtigen Zellen markiert hast.

  • Fehler: Code läuft nicht

    • Lösung: Prüfe, ob die Makros in Excel aktiviert sind. Gehe zu Datei > Optionen > Trust Center > Einstellungen für das Trust Center und aktiviere die Makros.

Alternative Methoden

  • Mit bedingter Formatierung: Wenn du keine VBA-Lösung verwenden möchtest, kannst du die bedingte Formatierung verwenden, um die Schriftfarbe oder den Hintergrund basierend auf dem Inhalt der Zelle zu ändern. Allerdings bietet die bedingte Formatierung nicht die Möglichkeit, die Ausrichtung zu ändern.

  • Text manuell drehen: Du kannst auch die Funktion "Format Cells" nutzen, um den Text manuell zu drehen. Wähle die Zelle aus, gehe zu Format Cells > Alignment und stelle die Orientation ein.

Praktische Beispiele

  • Beispiel 1: Text mit „MAT“ hochkant anzeigen

    If z.Value = "MAT" Then
  z.Orientation = 90 ' Text nach oben drehen
End If

  • Beispiel 2: Text, der mit „MAT“ beginnt, hochkant darstellen

    If Left(z.Value, 3) = "MAT" Then
  z.Orientation = 90 ' Text nach oben drehen
End If

  • Beispiel 3: Mehrere Bereiche überprüfen

    Set Rng = Union(Range("I62:CL62"), Range("A1:A10"))

Tipps für Profis

  • Nutze die Union-Funktion, um mehrere Bereiche in einem einzigen Befehl zu kombinieren. So kannst du effizienter arbeiten und mehrere Zellen gleichzeitig bearbeiten.

  • Experimentiere mit der Orientation-Eigenschaft, um verschiedene Ausrichtungen wie 90 für hochkant oder 0 für normal auszuprobieren.

  • Dokumentiere deinen Code gut, um später leichter verstehen zu können, welche Logik du verwendet hast und warum.

FAQ: Häufige Fragen

1. Wie kann ich die Schrift in Excel senkrecht drehen? Um die Schrift in Excel senkrecht zu drehen, kannst du die Orientation-Eigenschaft auf 90 setzen. Dies kannst du durch VBA oder im Formatierungsdialogfeld für Zellen tun.

2. Kann ich die Ausrichtung für mehrere Zellen gleichzeitig ändern? Ja, du kannst die Ausrichtung für mehrere Zellen ändern, indem du die Union-Funktion verwendest, um mehrere Bereiche zusammenzufassen und dann die Orientation-Eigenschaft anzuwenden.

3. Was muss ich beachten, wenn ich VBA in Excel verwenden möchte? Stelle sicher, dass die Makros aktiviert sind und dass du die richtigen Berechtigungen hast, um VBA-Code auszuführen. Achte auch darauf, dass dein Code fehlerfrei ist, um Laufzeitfehler zu vermeiden.

Beliebteste Forumthreads (12 Monate)

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