Office: (Office 2007) Automatischer Zeilenumbruch mit VBA/Makro

Hallo liebe Gemeinde,

Bin recht neu hier und poste auch zum ersten mal etwas da ich absolut nicht weiterkomme *mad.gif* . Ich habe wie im Screenshot zu sehen mehrere Zellen nebeneinander (auch verbundene Zellen bei der Leistungsbeschreibung). Nun hätte ich gerne einen automatischen Zeilenumbruch, wenn die Leistungsbeschreibung oder die Einheit nicht komplett in eine Zeile passt. Mit dem gewöhnlichen „Wrap Cells“ funktioniert das bei verbundenen Zellen nicht. Habe in mehreren Foren gelesen, dass in .xls hier ein Bug ist und das nur über ein Makros sauber zu lösen ist.
Hier habe ich mal ein Makro gefunden (für Zeile 12), das funzt aber auch nur bei einzelnen Zellen und nicht bei verbundenen.

Sub Zeilenumbruch()
ActiveSheet.Rows(12).WrapText = True
End Sub

Außerdem muss ich jedes mal zusätzlich zu „enable Content“ den Run Button betätigen, dass der Zeilenumbruch funktioniert.
Also ergeben sich für mich 2 Fragen;
1. Wie lautet der korrekte Makro-Code für automatischen Zeilenumbruch für die Zeilen 12 – 25?
2. Gibt es hier einen Automatismus, dass das gleich funktioniert, wenn ich den Content enable und nicht erst „Run“ drücken muss?

Zu erwähnen ist vielleicht auch noch, dass ein Blattschutz aktiviert ist, da das file von vielen Personen genutzt werden soll.

Vielen Dank für jegliche Hilfe *biggrin.gif*

:)

 

ich benutze schon 2013, aber selbst diese Version kann aus einem Bild keine Tabelle erstellen. Ich habe bestimmt auch einen anderen Drucker als Du.
Das ist eben ein Nachteil von verbundenen Zelle. Darauf sollte man verzichhten, da gibst es auch andere Wege.

 

Hier das file wenn es weiterhilft.
Es dreht sich um die Zellen A25 bis L35.
Ich habe, wie ich das sehe, leider keine Alternative zu verbundenen Zellen

Danke immernoch für jeden Hinweis

 

gut wenn Du das meinst, kann Dir nicht geholfen werden. Ich habe es jetzt nur an einer Zelle getestet und es geht ohne verbinden. G7, Ausrichtung über Auswahl.

 

Das habe ich jetzt nicht wirklich verstanden. Was heisst G7 in dem Fall und was geht ohne Verbinden? Danke

 

De Zelle G7 war verbunden und das geht ohne Verbinden, wenn man es Ausrichtet über G7:...

 

Verstehe es immer noch nicht. Von Zelle G7 habe ich doch nie gesprochen und verbunden war diese auch nicht. Es dreht sich um A25 bis inkl. L35. Und da sind immer die Spalten C bis K miteinander verbunden - und in diesem Bereich soll ein automatischer Zeilenumbruch initiiert werden, wenn der Text zu lang ist der da drin steht. Bin auch für jede andere Lösung dankbar

 

Hallo daseb82,

Dann wende es doch nicht auf die Zeile, sondern auf die einzelnen Zellen an:
Code:

Hat bei mir problemlos funktioniert.

 

Hallo Hasso,

Danke für deine Antwort.
Hatte bis jetzt leider keine Zeit zum Testen.
Leider funktioniert das bei mir nicht.
Habe den Code eingefügt, erhalte aber keinerlei
Reaktion. Hab das File mit Code nochmal angehängt.
Vielleicht hab ich es ja falsch eingebunden oder es
fehlt ein Befehl??! Fände es super wenn du nochmal drüber
schauen könntest.

Danke