Automatisch Zeilen einfügen und Text reinschreiben

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Private Sub Worksheet_Change(ByVal Target As Range) 'Zeilenhöhe in Spalte 3 ab Zeile 2 nach Eingabe prüfen ggf. Leerzeile einfügen Dim Laenge As Long If Target.Column = 3 And Target.Row > 1 Then If Me.Rows(Target.Row).RowHeight > 390 Then 'Leerzeile einfügen Me.Rows(Target.Row + 1).Insert 'halbe Länge des Textes ermitteln Laenge = Int(Len(Target.Value) / 2) 'Position des nächsten Leerzeichens ermiteln Do Until Mid(Target.Value, Laenge, 1) = " " Laenge = Laenge + 1 Loop '2. Texthälfte in Folgezeile eintragen Target.Offset(1, 0).Value = Mid(Target.Value, Laenge + 1) '1. Texthälfte in Zelle eintragen Target.Value = Left(Target.Value, Laenge) MsgBox "Zelle " & Target.Address & " enthielt zu viel Text." & vbLf _ & "Text wurde teilweise in nächste Zeile übertragen!" End If End If End Sub

Hallo, klappt super. Vielen Dank.
Hab aber noch zwei kleine Fragen.
Ich habe es auspribiert und da ist mir aufgefallen, das in einer Zelle vor dem Text eine Leerzeile stand. Bei den anderen Zellen war das nicht so.
Kann man das irgendwir im VBA einbauen, das es nicht dazu kommt. Ich konnte diese Leerzeile auch nicht löschen, als ich die Zelle angeklickt hatte und entfernen gedrückt habe.
Und meine zweite Frage wäre, wie ich den Code anpassen muss, wenn ich nicht nur in der 3 Spalte die Zeilen überprüfen und anpassen lassen möchte sondern auch die anderen Spalten.
Wenn ich die erste Zelle mit Rahmen formatiere dann kommt in der nächsten kein Rahmen mehr. Kann man da irgendwas machen?
Meine andere Idee wäre ich mache eine Tabelle mit zwei Zeilen und meinetwegen 4 Spalten. Zwischen den zwei Zeilen lege ich vielleicht 20 versteckte Zeilen an. Kann man das per VBA steuern, dass immer nur die erste Zeile wieder auftaucht und dann dort der Text weitergeschrieben wird?
Ich bastel mal schnell eine Beispieldatei. Ich habe es mal eben mit den versteckten Zeilen probiert. Es klappt nicht dass diese benutzt werden. Aber ich habe das Problem mit der Formatierung des Rahmens gelöst.
https://www.herber.de/bbs/user/55169.xls
Kann man diese Zeilen, wenn ich es für sagen wir mal vier oder fünf Spalten benutze auch die Zeilen wieder löschen, wenn nichts in einer anderen Spalte und in dieser Zeile steht.
Und ich glaube es gibt auch Probleme, wenn man in einer Spalte den Text löscht und in einer anderen steht noch Text und man schreibt wieder was neues rein, dann wird ja wieder was eingefügt und bringt den Text in einer anderen Spalte durcheinader.
Danke schon mal für deine Hilfe.
Gruß Oblivion

Hallo Oblivion,
ich hab noch mal etwas gebastelt und in deine Beispieldatei eingebaut.
https://www.herber.de/bbs/user/55183.xls
Das sollte die meisten Probleme bereinigen.
Das mit der Leerzeile in einer Zelle ist möglicherweise ein Formatierungsproblem. Die Zellen müssen mit vertikaler Ausrichtung "oben" formatiert sein.
Die Rahmenformatierung hab ich teilweise per bedingter Formatierung gemacht, so dass in einer Überschriftenzeile (Zelle in Spalte A ist ausgefüllt) immer ein Rahmen oben angezeigt wird, die letzte Zeile mit Daten erhält einen Rahmen unten.
Die Idee mit den ausgeblendeten Zeilen solltest du schnell vergessen. Das ist kompliziert zu verwalten.
Werden die Daten in einer Zeile alle gelöscht, dann wird diese Zeile automatisch gelöscht.
Das Problem mit der Eingabe in verschieden Spalten hab ich auch gelöst. Das Makro prüft ob in der Folgezeile schon geteilte Texte stehen. Damit dies funktioniert muss immer erst die Überschrift in Spalte A eingetragen werden, danach dann die Texte, die ggf. auf mehrere Zeilen verteilt werden müssen.
Gruß
Franz

Beliebteste Forumthreads (12 Monate)

Automatisch Zeilen einfügen und Text reinschreiben

4
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

326 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Automatisch Zeilen einfügen und Text reinschreiben

4 Beiträge zum Forumthread Beiträge zu diesem Forumthread

326 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

4
Beiträge zum Forumthread

Beiträge zu diesem Forumthread