Abfrageproblem
14.05.2018 16:54:10
StefanGlander
nach langer Zeit benötige ich heute erneut Eure Hilfe.
Ich möchte die Spalten 4 und 5 befüllen .
Private Sub Worksheet_Change(ByVal Target As Excel.Range)
If Target.Column 5 Then Exit Sub
If IsEmpty(Target) Then Exit Sub
If Target = "n" Then '
Target = "Nein"
ElseIf Target = "g" Then
Target = "Gut"
ElseIf Target = "N" Then
Target = "Nein"
ElseIf Target = "G" Then
Target = "Gut"
End If
If Target.Column 4 Then Exit Sub
If IsEmpty(Target) Then Exit Sub
If Target = "o" Then
Target = "Ohne"
ElseIf Target = "O" Then
Target = "Ohne"
ElseIf Target = "m" Then
Target = "Mit"
ElseIf Target = "M" Then
Target = "Mit"
End If
End Sub
Danke für Eure Hilfe