Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1972to1976
1972to1976
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Anzeige
Inhaltsverzeichnis

Wenn bestimmte Textlänge Tabelle - VBA

Forumthread: Wenn bestimmte Textlänge Tabelle - VBA

Wenn bestimmte Textlänge Tabelle - VBA
11.04.2024 14:28:07
Sven
Hallo,

gibt es eine Möglichkeit mittels VBA folgendes zu realisieren? Ein beliebiger Text soll ich eine Tabelle übertragen werden. Allerdings nur eine bestimmte Textlänge (z. B. 30 Zeichen). Wenn der Text länger als die besagten 30 ist soll der Rest in eine weitere Tabelle übertragen werden. Am Ende sollte es so aussehen wie im Bild die beiden gezeigten Tabellen. Geht sowas irgendwie?

Danke

Sven


Userbild
Anzeige

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Wenn bestimmte Textlänge Tabelle - VBA
11.04.2024 14:45:10
daniel
Hi

im Prinzip so: 
xxx = "dein beliebiger Text"

Tabelle1 = Left(xxx, 30)

If Len(xxx)>30 Then Tabelle2 = Mid(xxx, 31)


Gruß Daniel
AW: Wenn bestimmte Textlänge Tabelle - VBA
11.04.2024 15:59:06
Yal
Hallo Sven,

ungefähr so: 

Private Sub Worksheet_Change(ByVal Target As Range)

    Set Target = Target.Cells(1) 'nur die erste Zelle

    If Not Intersect(Target, Target.Parent.Columns(2)) Is Nothing Then

        Target.Value = Left(Target.Value, 30)

    End If

End Sub


VG
Yal
Anzeige

Forumthreads zu verwandten Themen

Zellenhöhe anpassen von zusammenhängen Zellen
Markus
Hallo zusammen,

ich war auf der Suche nach einer Lösung von o.g. Problem. Ich habe dabei im Archiv einen Thread gefunden, der für den Fragestellenden nicht wirklich gelöst wurde. Vielleicht könnt ihr die Lösung hier mit hinzufügen, wenn ihr wollt. Die Lösung ist zwar sicher nicht hoch profe...
07.12.2023 09:14:40
Thread-ID: 1956828
1 Beitrag
Zeilenhöhe autom. anpassen (merged & not merged)
Dirk

Hallo VBA-Könner
Ich habe folgendes Problem und wäre euch für eure Hilfe sehr dankbar
Habe eine Arbeitsmappe mit mehreren Arbeitsblättern, die jeweils verschiedene Tabellen beinhalten. Die Arbeitsmappe ist als Template gedacht, um Projekte standardisiert dokumentieren zu können.
...
09.06.2009 11:47:53
Thread-ID: 1080051
1 Beitrag
Zeilenhöhe automatisieren (merged & regular cells)
Dirk

Hallo VBA-Könner
Ich habe folgendes Problem und wäre euch für eure Hilfe sehr dankbar
Habe eine Arbeitsmappe mit mehreren Arbeitsblättern, die jeweils verschiedene Tabellen beinhalten. Die Arbeitsmappe ist als Template gedacht, um Projekte standardisiert dokumentieren zu können.
...
12.06.2009 13:29:16
Thread-ID: 1080926
1 Beitrag
Makro funktioniert nur nach manueller Anwahl
Gesa

Hallo,
habe folgendes Makro im Archiv (Automatische Zeilenhöhe bei verbundenen Zellen)
gefunden:
Private Sub Worksheet_Change(ByVal Target As Range) Dim CurrentRowHeight As Single, MergedCellRgWidth As Single Dim CurrCell As Range Dim ActiveCellWidth As Single, PossNewRowHeight As...
19.09.2006 15:36:51
Thread-ID: 803214
8 Beiträge
Höhe der Zeile anpassen per VBA
arek

Hallo an alle,
ich hätte folgende Frage:
Mein Ziel ist es, die Zeilenhöhen in der Beispielsdatei (
https://www.herber.de/bbs/user/113336.xlsm) per VBA automatisch anzupassen.
Dazu werden in Tabellenblatt 1 verschiedene Daten eingegeben (Spalte B,C,D,E und F) und dann werden insb...
05.05.2017 11:58:11
Thread-ID: 1556486
4 Beiträge
Zeilenhöhe verbundene Zellen vor Drucken ausführen
Jana

Hallo zusammen und ein frohes neues Jahr.
Ich habe mir hier vor einiger Zeit ein Makro zusammengesucht mit dem sich die Höhe der verbundenen Zellen prima anpassen lässt. (Vorweg: Ja, die verbundenen Zellen müssen leider sein, das Dokument hat ne Historie und wird nicht nur von mir und auch...
02.01.2017 17:44:32
Thread-ID: 1532701
10 Beiträge
Zeilenhöhe per VBA bei verbundenen Zellen
Markus

Hallo,
ich habe ein Blatt (Blatt3), in dem ich die Zeilenhöhe von Zeile 8 per VBA automatisch anpassen möchte.
Das Problem dabei ist, dass F8:O8 verbundene Zellen sind, deren Inhalt dynamisch per Formel (Verketten) generiert wird und stark in der Textlänge variiert. Die restlichen Zel...
13.12.2017 00:29:57
Thread-ID: 1596866
1 Beitrag
Automatische Zeilenhöhe, vergrößern/verkleinern
Skamqi

Hallo Liebe Community :)
bei Excel gibt es ja die Möglichkeit, die Zelle so zu formatieren, das die Zelle an den Zellinhalt angepasst wird (also die Größe) und auch, das der Zeilenumbruch erlaubt wird.
So habe ich z.B. mit der Formel
=VERKETTEN(A1;Zeichen(19);A2;(Zeichen(10);A3)
...
11.01.2017 12:18:48
Thread-ID: 1534375
1 Beitrag
automatische Zeilenhöhe bei verbundenen Zellen
Friedemann

Hallo Leute
Ich habe wieder mal ein Problem als nicht VBA Experte.
Ich möchte meine Zeilenhöhe von verbundenen Zellen automatisch anpassen.
Ich habe folgendes Makro gefunden welches auch sehr gut funktioniert. Ich möchte es aber wie folgt abändern:
1. Das Makro soll laufen wenn...
05.04.2006 06:02:20
Thread-ID: 752272
5 Beiträge
Zelle gelockt nach ActiveSheet.protect
hkoepp63

Hallo Zusammen,
ich muss aus einer Tabelle den Schreibschutz rausnehmen um "gemergte Zellen" in der Zeilenhöhe automatisch anzupassen. Es funktioniert auch alles. Der einzige Fehler ist, daß danach der Schutz der Zelle(n) eingeschlatet wird... Die Zellen J22:S22 müssen aber beschreibbar ble...
03.12.2019 16:47:39
Thread-ID: 1726971
3 Beiträge
Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Live-Forum - Die aktuellen Beiträge
Datum
Titel
14.05.2026 13:31:09
Zeichen ausblenden
14.05.2026 09:50:42
Makro für MacOs
13.05.2026 19:14:18
Gleichheitszeichen
13.05.2026 14:24:56
VBA Projekt Passwort automatisch eingeben
13.05.2026 08:49:41
Reale Berechnung ohne Nachkommawerte
Keine passende Antwort im Forumarchiv gefunden?
Stelle deine Frage im Live-Forum