Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender

Forumthread: Wenn bestimmte Textlänge Tabelle - VBA

Wenn bestimmte Textlänge Tabelle - VBA
11.04.2024 12: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 12: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 13: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

Anzeige
Anzeige
Anzeige
Anzeige
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige