Zellinhalt beschneiden

If Target.Row > 1 Then If Target.Column = 3 Or Target.Column = 8 Then If Target.Cells.Count = 1 Then Application.EnableEvents = False Target.Value = Left(Trim(Target.Text), 10) Application.EnableEvents = True End If End If End If

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Sub t() Dim s As String s = "5ABC123456,2FH29AV" 's = "Gerätetyp(14 Zeichen),3AX13AV,5ABC123456,3y3y0y" If InStr(s, "Gerätetyp") Then MsgBox Split(s, ",")(2) Else MsgBox Split(s, ",")(0) End If End Sub

Option Explicit Private Sub Worksheet_Change(ByVal Target As Range) If Target.Row > 1 Then If Target.Column = 3 Or Target.Column = 8 Then If Target.Cells.Count = 1 Then Dim Arr, i As Integer Application.EnableEvents = False ' ********** zum testen 'Target = "5ABC123456,2FH29AV" 'oder 'Target = "Gerätetyp(14 Zeichen),3AX13AV,5ABC123456,3y3y0y" ' *********** Arr = Split(Target, ",") Select Case Ubound(Arr) Case 1 'Array fängt mit 0 an '2 Teilig Target = Arr(0) 'Serno = Arr(1) 'usw Case 3 '4 Teilig Target = Arr(2) 'Serno = Arr(3) 'usw End Select Application.EnableEvents = True End If End If End If End Sub

Hallo
versteh ich nicht.
Ein Programm sollte immer so lange verfeinert werden, bis kein Fehler mehr Auftritt. also nie in den Debuggermode gelangt.
Z.B. Fehlerbehandlung drum

Es können doch mehrere Routinen abgefragt werden...
Aber der Beep paast doch gut hierzu
Beispiel:

Private Sub Worksheet_Change(ByVal Target As Range)
    On Error GoTo Fehler
    
    
    
    '************Zelländerungen im Bereich 1 bearbeiten 
    If Target.Row > 1 Then
        If Target.Column = 3 Or Target.Column = 8 Then
            If Target.Cells.Count = 1 Then
                Dim Arr, i As Integer
                 
                '********'Hier Beep 
                'mach was ' 
                
                
                
                Application.EnableEvents = False
                 
                Arr = Split(Target, ",")
                Select Case Ubound(Arr)
                    Case 1   'Array fängt mit 0 an 
                        '2 Teilig 
                        Target = Arr(0)
                        'Serno = Arr(1) 
                        'usw 
                    Case 3
                        '4 Teilig 
                        Target = Arr(2)
                        'Serno = Arr(3) 
                        'usw 
                End Select
                 
                Application.EnableEvents = True
            End If
        End If
    End If
    
    
    '************Zelländerungen im Bereich 2 bearbeiten 
    If Target.Row = 5 Then
        If Target.Column >= 10 And Target.Column <= 18 Then
            If Target.Cells.Count = 1 Then
                
                'hier läuft was ganz anderes 
    
            End If
        End If
    End If
    
    
    
        
    '*** Fehlerbehandlung 
    Err.Clear
Fehler:
    Application.EnableEvents = True
    If Err.Number <> 0 Then MsgBox "Fehler: " & _
        Err.Number & vbLf & Err.Description: Err.Clear
End Sub

LG UweD

Beliebteste Forumthreads (12 Monate)

7 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

7
Beiträge zum Forumthread

Beiträge zu diesem Forumthread