Live-Forum - Die aktuellen Beiträge
Datum
Titel
24.04.2024 14:06:20
Gesamte Column löschen, wenn Column-Bereich leer
24.04.2024 13:44:05
Bezeichnung Tabellenblatt aus Zelle für Formel auslesen
24.04.2024 12:38:40
Formeländerung durch Wechsel von Excel 2021 auf 2019
24.04.2024 12:31:18
Excel - Sverweis mit Wenn-Abfrage kombinieren
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
764to768
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
764to768
764to768
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Zeilenumbruch beim Zeichen " ; " erzwingen

Zeilenumbruch beim Zeichen " ; " erzwingen
15.05.2006 11:09:43
Wolfgang
Hallo Excel-Freunde
meine Frage lautet.
Wie muß das Makro geschrieben sein, das ich in verbundenen Zellen einen Textumbruch mit dem Zeichen " ; " erzwingen kann.
Und ist es möglich den gleichen Textumbruch in einer Textbox die in einem UserForm ist zu erzielen.
Gruß Wolfgang

12
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Zeilenumbruch beim Zeichen " ; " erzwingen
15.05.2006 11:21:19
Gert
Hallo Wolfgang,
mit "Alt"+"Enter" wird eine 2te Zeile in "Zellen" erreicht.
mfg
Gert
zu 1)
15.05.2006 11:26:02
Reinhard
Hi Wolfgang,
A1:C1 sind verbunden, warum Autofit nicht klappt weiß ich leider nicht.
Option Explicit
Sub tt()
Range("A1") = Replace(Range("A1"), ";", Chr(10))
With Range("A1:C1")
.WrapText = True
.MergeCells = True
End With
Rows(1).AutoFit
Columns(1).AutoFit
End Sub

Gruß
Reinhard
ps: Ich freue mich über eine Rückmeldung ob diese Antwort hilfreich war oder nicht..
AW: Zeilenumbruch beim Zeichen " ; " erzwingen
15.05.2006 11:26:25
Bertram
Hi Wolfgang,
meinst du so was?

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If InStr(1, Target.Value, ";") <> 0 Then Target.WrapText = True
End Sub

Gruß
Bertram
Anzeige
AW: Zeilenumbruch beim Zeichen " ; " erzwingen
15.05.2006 13:17:21
Wolfgang
Hallo an Alle :
Gert Seler,
Danke für den Tipp die Sache über die Tastatur zu lösen.
Ich möchte es aber ein Makro automatisieren.
Aber vielen DAnk für diesen Tipp
Reinhard,
das kommt der Sache ganz Nahe.
Nur noch eine Frage kann das Zeichen " ; " im Text bestehen bleiben?
Und kann man eine ganze Spalte mit verbunden Zellen so mit dem Makro ausstatten.
Meine etwa so:
Ak1:AT1
AK2:AT2
usw...
Bertram,
ich habe Deine Lösung ausprobiert, bekomme aber immer eine Fehlermeldung.
Konnte aber noch nicht rausfinden voran es liegt.
Da Reinhard 's Makro ziemlich geau das ist was ich meinte versuche ich es erstmal damit.
Ich Danke auch Dir sehr.
Gruß an alle Wolfgang
Anzeige
AW: Zeilenumbruch beim Zeichen " ; " erzwingen
15.05.2006 13:24:43
Bertram
Hallo Wolfgang,
wie lautet denn die Fehlermeldung?
Gruß
Bertram
AW: Zeilenumbruch beim Zeichen " ; " erzwingen
15.05.2006 13:32:43
Wolfgang
Hallo Bertram
ide Fehlermeldung lautet:
Laufzeitfehler 13:
Typen unverträglich
Gruß Wolfgang
AW: Zeilenumbruch beim Zeichen " ; " erzwingen
15.05.2006 13:40:07
Bertram
Irgenwie kann ich den Fehler nicht reproduzieren, kannst du mal ein Beispiel geben, was du eingegeben hast?
Gruß
Bertram
AW: Zeilenumbruch beim Zeichen " ; " erzwingen
15.05.2006 14:27:39
Wolfgang
Hallo Bertram,
liegt es vielleicht daran das die Zellen Zeilenweise in dem Beispiel verbunden sind?
ZB A2:D2
Gruß Wolfgang
AW: Zeilenumbruch beim Zeichen " ; " erzwingen
15.05.2006 14:38:32
Bertram
Hallo Wolfgang,
hab mitlerweile festgestellt, dass der Fehler uaftritt, wenn man mehrere Zellen zu markieren versucht. Vergiss meine Vorschlag am besten:-)
Gruß
Bertram
Anzeige
AW: Zeilenumbruch beim Zeichen " ; " erzwingen
15.05.2006 13:32:03
Reinhard
Hi Wolfgang,
ungetestet:
Sub tt()
Dim zei, n
zei = Worksheets("Tabelle1").Range("AT65536").End(xlUp).Row
For n = 1 To zei
Range("AK" & n) = Replace(Range("AK" & n), ";", ";" & Chr(10))
Next n
With Worksheets("Tabelle1").Range("AK1:AK" & zei)
.WrapText = True
.MergeCells = True
End With
End Sub

Gruß
Reinhard
ps: Ich freue mich über eine Rückmeldung ob diese Antwort hilfreich war oder nicht..
AW: Zeilenumbruch beim Zeichen " ; " erzwingen
15.05.2006 14:22:23
Wolfgang
Hallo Reinhard,
ich hab es mal in meine Datei eingebaut.
Leider hab ich nicht daran gedacht das die erste Zeile eine Überschrift beinhaltet.
Diese sollte natürlich aussen vor bleiben.
Ich glaub dies konnte ich in der richtigen Weise ändern.
Dann wollte ich es mit "Sub Worksheet_SelectionChange(ByVal Target As Range)" nach jedem verlassen der Zelle das das Makro automatisch aufgerufen wird. Was auch passiert.
Leider kommen dann immer mehr Leerzeilen dazu.
Lässt sich das abstellen?
Und zum anderen habe ich noch eine UserForm mit einer TextBox die diese verbunden Zelle einliest.
Ist es möglich diese Textbox auch so zu Formatieren das Sie diesen Textumbruch übernimmt und auch so wieder in die Zelle zuschreibt?
Ich Danke Dir sehr
Gruß Wolfgang
Ich habe das Makro noch mal reingestellt.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim zei, n
zei = Worksheets("DATA").Range("AT65536").End(xlUp).Row
For n = 2 To zei
Range("AK" & n) = Replace(Range("AK" & n), ";", ";" & Chr(10))
Next n
With Worksheets("DATA").Range("AK2:AK" & zei)
.WrapText = True
.MergeCells = True
End With
End Sub

Anzeige
Frage noch offen o.w.T.
15.05.2006 14:38:14
Reinhard
Gruß Reinhard ps: Ich freue mich über eine Rückmeldung ob diese Antwort hilfreich war oder nicht..

300 Forumthreads zu ähnlichen Themen

@Hans W. Herber: 1 Million Beiträge - Glückwunsch
mpb

Hallo Hans,
wenn ich die URLs richtig interpretiere, haben wir im Forum soeben die Zahl von 1 Million Beiträgen überschritten.
Herzlichen Glückwunsch zu dem Erfolg Deines "Babys"!
Gruß
Martin
07.08.2008 16:23:47
Thread-ID: 1000004
3 Beiträge
Anzeige
Frage - Spalten einfügen & Spalten untereinander z
André

Hallo zusammen!
Ich habe da als blutiger Anfänger in VBA zwei Fragen:
1.) Wie kann ich in meiner Tabelle in jeder zweiten Spalte 4 leere Spalten einfügen lassen?
2.) Dann möchte ich unter den Inhalt der ersten fünf Spalten (A-E) den Inhalt der zweiten 5 Spalten (F-J) usw. In der grö...
08.08.2008 16:00:00
Thread-ID: 1000340
3 Beiträge
Zellen mit Werten aus darüberliegender Zelle fülle
Andreas

Guten Morgen!
Ich hätte folgendes Problem: Ich erhalte automatisiert Exceltabellen, bei denen nicht alle Zellen einer Zeile gefüllt werden, wenn dort der Inhalt einer darüberliegenden Zeile stehen sollte. Zur Weiterverarbeitung muss ich aber diese Zellen mit den dazugehörigen Werten füllen....
11.08.2008 08:59:25
Thread-ID: 1000713
4 Beiträge
Anzeige
Zellen formatieren mit vorangehenden "Nullen"
Addi

Hallo zusammen,
ich habe eine lange Liste, in der in einer Spalte Daten stehen, wo ab und zu vorangehende Nullen nötig sind (mal eine - mal 2...etc.) - und manchmal auch keine.
Wie kann ich diese Zellen formatieren, das die vorangehenden "Nullen" nicht automatisch weggelassen werden?
11.08.2008 10:37:00
Thread-ID: 1000746
8 Beiträge
Makro beenden bei Option "Schliessen"
Jürgen

Hallo Excel-Profis
ich habe folgenden Code in ein Makro eingebaut:
'Drucken mit Vorschau
Application.ActivePrinter = "\\dataserv\HP LaserJet 5L AV auf Ne05:"
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Preview:=True, Collate:= _
True
Hier wird der Standard-Drucker an...
11.08.2008 12:39:00
Thread-ID: 1000811
9 Beiträge
Zellen prüfen / Ausgabe wenn Bedingung erfüllt
Kay

Hallo,
Ich brauche dringend Eure Hilfe. Unter https://www.herber.de/bbs/user/54533.xls findet Ihr eine Mappe, in welcher in Spalte A
1 für "Kaufen"
0 für " "
-1 für "Verkaufen"
steht. IN SPALTE B SIND BISHER NUR MANUELL ERSTELLTE BEISPIELEINTRÄGE ENTHALTEN, DAMIT ERSICHTLIC...
12.08.2008 09:51:36
Thread-ID: 1001078
3 Beiträge
"Bild von Excel-Kamara" variabel...
Excel-Kamara"

Hi Experten,
einen Bereich (Zellen, Bild, Grafik...) mit der Excel-Kamara "fotografieren" und in eine andere Excelmappe einfügen ist kein Problem.
Bei mir werden Ecxel_Vorlagen ausgefüllt und unter fortlaufender Dateinummer abgespeichert, zB. QR000123, QR000124, QR000125 usw. Alle Datei...
12.08.2008 10:33:28
Thread-ID: 1001116
4 Beiträge
Formel "Text" ROTE Zahl bei Minuswert?
dieter(drummer)

Hi Formelspezialisten,
in Zelle B2 steht dise Formel (funktionert auc h):
=TEXT(I4-D4;"00.0")&" ("&TEXT(I4/D4-1;"0%")&")".
Mein Ziel, dass eine Minuszahl in ROT erscheint. Hab's mit bedingte Formatierung versucht und bekomme es nicht hin.
Gibt es eine Möglichkeit, a...
12.08.2008 10:59:29
Thread-ID: 1001135
7 Beiträge
Anzeige

Links zu Excel-Dialogen

TextBox UserForm

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
7
2
3
1
7
8
2
3
6
11
5
5
8
15
3
7
4
4
3
2
7
4
3
4