Thema Datum  Von Nutzer Rating
Antwort
21.11.2015 17:40:30 Kurt6
Solved
Blau Automatische Einschränkung beim kopieren in eine NEUE Zeile auf 10 Zeichen.
 21.11.2015 18:08:46 BigBen
NotSolved

Ansicht des Beitrags:
Von:
BigBen		 Datum:
21.11.2015 18:08:46		 Views:
972		 Rating:
     
Antwort:
  Ja
Thema:
Automatische Einschränkung beim kopieren in eine NEUE Zeile auf 10 Zeichen.

Hallo,

vielleicht passt ja folgende Lösung:

Private Sub Worksheet_Change(ByVal Target As Range)
    Debug.Print "change " & Target.Address
    Dim rngRw As Range
    If Not Intersect(Target.Worksheet.Range("A:A"), Target) Is Nothing Then
        For Each rngRw In Target.Rows
            If Len(rngRw.Cells(1).Value) > 10 Then
                rngRw.Cells(1).Value = Left(rngRw.Cells(1).Value, 10)
            End If
        Next
    End If
End Sub

Dieser Code muss im Codebereich der betreffenden Tabelle eingefügt werden.

Falls ein Text via Zwischenablage eingefügt wird, läuft dieser Befehl automatisch, und passt den Text in jeder Zelle an, sofern dieser in der Länge über 10 Zeichen lang ist. Die Anpassung wird nur dann ausgeführt, wenn der Text sich in Spalte A befindet.

Einschränkung: Dieser Code wurde mit Excel 2013 entwickelt und getestet. Ich hae leider kein Excel 2007.

VG, BigBen

Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:



  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
21.11.2015 17:40:30 Kurt6
Solved
Blau Automatische Einschränkung beim kopieren in eine NEUE Zeile auf 10 Zeichen.
 21.11.2015 18:08:46 BigBen
NotSolved