Hallo Olga,
vielleicht geht's auch ganz ohne die "Else":
Viel Erfolg wünscht
WernerB.
Hallo ich babe dies ausprobiert, leider funktioniert dies bei mir nicht.
Ich glaube dies müsste mit select case funktionieren.
Danke
Olga
Hallo Olga,
hier auch noch die Select-Case-Variante:
Viel Erfolg wünscht
WernerB.
Option Explicit
Private Sub Worksheet_Change(ByVal Target As Excel.Range)
Dim z As Long
If Target.Column = 6 Then
If Target.Value = "r" Then
z = Worksheets("Raiffeisen").Cells(65536, 1).End(xlUp).Row + 1
Rows(Target.Row).EntireRow.Copy Destination:=Worksheets("Raiffeisen").Cells(z, 1)
Rows(Target.Row).Delete
Else
If Target.Value = "s" Then
z = Worksheets("Sparkasse").Cells(65536, 1).End(xlUp).Row + 1
Rows(Target.Row).EntireRow.Copy Destination:=Worksheets("Sparkasse").Cells(z, 1)
Rows(Target.Row).Delete
End If
End If
End If
End Sub
Der funktioniert auch, jetzt möchte ich Deutschebank (Eingabe von d), und Hypobank (Eingabe von h) einrichten
Ich weiß nicht wie dies funktioniert?
Vielen Dank
Olga