Textsteuerung via Makro

Hallo Andreas
<br />Danke für deine Antwort. Ich möchte die Grösse der Zeile jedoch nicht verändern.
<br />Wie sieht es aus, wenn ich dem Makro sage, dass es im Sheet Positionsdaten die Zelle U2 auf den Wert (1-5 oder mehr) überprüfen soll und dann die
<br />die Schriftgrösse dementsprechend anpassen.
<br />Wert "1"= Schriftgrösse "36"
<br />Wert "2"= Schriftgrösse "36"
<br />Wert "3"= Schriftgrösse "24"
<br />Wert "4"= Schriftgrösse "17"
<br />Wert "5"= Schriftgrösse "13"
<br />Wert "6-15"= Messagebox "Zu viele Teilufträge"
<br />Die Werte symbolisieren Anzahl Zeilen in der Zelle.
<br />

Wie sieht es aus, wenn ich dem Makro sage, dass es im Sheet Positionsdaten die Zelle U2 auf den Wert (1-5 oder mehr) überprüfen soll und dann diedie Schriftgrösse dementsprechend anpassen.

Dito in "grün":
<br />Sub Test()
With ActiveCell
Select Case Len(.Value) - Len(Replace(.Value, vbLf, "")) + 1
Case 1: .Font.Size = 36
Case 2: .Font.Size = 36
Case 3: .Font.Size = 24
Case 4: .Font.Size = 17
Case 5: .Font.Size = 13
Case Else
MsgBox "Zu viele Teilufträge"
End Select
End With
End Sub

<br />

Jedoch habe ich in verschiedenen Foren gelesen, dass dies via Makro möglich ist. Jedoch habe nirgends eine Makro gefunden was darauf zutrifft.

ROTFL.
<br />Die technischen Details wieso und warum es nicht geht sind vielfällig und schwierig. Eine universelle Lösung gibt es daher nicht, nur Rumgemurkse mit Workarounds ... wenn auch teilweise sehr trickreich und daher scheint das es zumindest manchmal geht.
<br />Mach es Dir einfach. Du weißt wie hoch die Zelle sein soll wenn N Zeilen drin stehen, also zähl einfach die Zeilen und setze die Höhe.
<br />Sub Test()
With ActiveCell
Select Case Len(.Value) - Len(Replace(.Value, vbLf, "")) + 1
Case 1: .EntireRow.RowHeight = 14.4
Case 2: .EntireRow.RowHeight = 51.6
Case 3: .EntireRow.RowHeight = 77.4
End Select
End With
End Sub
<br />Das bietet zusätzlich die Möglichkeit die Skalierung anzupassen wenn es beim Ausdruck (oder anderer PC) nicht mehr passen sollte. .-)
<br />Andreas.
<br />

Der Zeilenumbruch ist immer noch an der gleichen Stelle:

Zelle formatieren (Strg-1), Reiter Ausrichtung unter Textsteuerung.

Ansonsten kannst Du auch die Druckereinstellungen auf 1 Seite breit stellen und bei Steite hoch entfernst Du die Zahl so das das Feld leer ist. Dann errechnet Excel selber wieviele Seiten hoch es braucht.

Andreas.

ok habe es nun selber lösen könne
und zwar so

Option Explicit

Sub Schaltfläche1_KlickenSieAuf()
'
' Schaltfläche1_KlickenSieAuf Makro
'

'
Application.ActivePrinter = "Kyocera FS-1300D KX auf Ne02:"
ExecuteExcel4Macro _
"PRINT(2,1,1,3,,,,,,,,2,""Kyocera FS-1300D KX auf Ne02:"",,TRUE,,FALSE)"
End Sub

aber danke