Code funktioniert nicht
28.09.2018 11:03:11
Guesa
Benötige mal wieder dringend Hilfe
sitze gerade am Rechner und wollte eine Code-Zeile dazu schreiben aber diese funktioniert nicht, Userform5 wird nicht gestartet.
Könnt Ihr mal bitte gucken was ich da falsch mache
Gruß, Guesa
Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range) 'Zahl nach 4ter Stelle trennen
If Target.Count = 1 Then
If Target.Column = 4 And Target.Row >= 4 Then
If Target "" Then
If InStr(Target, " ") = 0 Then
Application.EnableEvents = False
Target = Left(Target, 4) & " " & Mid(Target, 5)
Application.EnableEvents = True
End If
End If
End If
End If
'Zeile in STK übernehmen
Dim iRow As Integer
If Target.Column 14 Then Exit Sub
If IsEmpty(Target) Then Exit Sub
If UCase(Target.Value) > "" Then
UserForm4.Show
'MTK übernehmen
If Target.Column 18 Then Exit Sub
If IsEmpty(Target) Then Exit Sub
If UCase(Target.Value) > "" Then
UserForm5.Show
End If
Application.CutCopyMode = False
End If
End Sub