Live-Forum - Die aktuellen Beiträge
Datum
Titel
18.04.2024 21:09:11
4 Spalten aus smarter Tabelle in andere smarte Tab. kopieren
18.04.2024 20:45:35
Worksheet_Activate für alle Sheets
18.04.2024 19:30:20
VBA - Tabelle mit Mannschaftsergebnissen sortieren
18.04.2024 18:04:29
Formel fehler Wert#
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1484to1488
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
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 Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

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

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

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

Anzeige
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

49 Forumthreads zu ähnlichen 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
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
Anzeige
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
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
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
Anzeige

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige
Archiv - Verwandte Themen
Forumthread
Beiträge
2
3
7
4
13
2
11
15
2
7
2
7
2
3
2
2
2
2
8
8
4
1
3
6
1