SUB exit und IF Fehler
geri
Habe Code zusammengefügt jeder Code für sich geht sollte aber beim Ereignis in blatt beide
Funktionen ausführen
in Spalte 13 oder 14 der CALL
und in Spalte D die MSGBOX scheiter denke ich an den Sub und if Anweisungen wenn ich der MSGBOXTEIL einfüge funktioniert dieser korrekt, aber der CALL Teil nicht mehr ohne MSG funkt der CALL Teil korrekt
Denke es stimmen die Sprünge nicht
Private Sub Worksheet_Change(ByVal Target As Range)
Dim r As Range
If Target.Cells.Count > 1 Then Exit Sub
If Intersect(Target, Range("$D$5:$D$499")) Is Nothing Then Exit Sub
'hier dein Code
MsgBox "Bitte in letzten EINTRAG in Zelle rechts eintragen " & vbCrLf & " --> _
Zeichnungsnummer, Schemablatt, Modul, Modul & Rung usw. DANKE!"
Target.Offset(0, 1).Select
'xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx der CALL Teil
'Für jede geänderte Zelle
For Each r In Target
'Wenn Spalte A oder B
If (r.Column = 13) Or (r.Column = 14) Then
'dann Kommentar eintragen
Call AenderungskennungAlsKommentar(r)
End If
Next
Set r = Nothing
End Sub
Danke
Gruss aus CH
geri
Anzeige