Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
624to628
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
624to628
624to628
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

wenn >40 Zeichen in Zelle gehe 1 Zeile nach unten

wenn >40 Zeichen in Zelle gehe 1 Zeile nach unten
23.06.2005 10:57:44
geri
Guten Morgen
suche Lösung für folgendes, im Bereich D5:D100 dürfen je Zelle nur 40 Zeichen
eingetragen werden wenn Zeichen #40 eingetragen wird aktiviere eine Zelle unterhalb zum weiterschreiben, wenn möglich in VBA
Danke
gruss geri

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

Betreff
Datum
Anwender
Anzeige
AW: wenn >40 Zeichen in Zelle gehe 1 Zeile nach unten
23.06.2005 11:27:33
UweD
Hallo geri
hab mal was gebastelt:
- rechte Maustaste auf den Tabellenblattreiter
- Code anzeigen
- im neuen Fenster den Code einfügen

Private Sub Worksheet_Change(ByVal Target As Range)
On Error GoTo Fehler
If Not Intersect(Target, Range("D5:D100")) Is Nothing Then
If Len(Target) > 40 Then
Application.EnableEvents = False
Target.Offset(1, 0) = Mid(Target, 41)
Target = Left(Target, 40)
SendKeys "{F2}" 'schaltet sofort wieder in Änderungsmodus
End If
End If
Fehler:
Application.EnableEvents = True
End Sub

Gruß UweD
(Rückmeldung wäre schön)
Anzeige
AW: wenn >40 Zeichen in Zelle gehe 1 Zeile nach unten
23.06.2005 11:42:33
geri
Hallo Uwe
Danke, sieht gut aus
gruss geri

333 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige