Mehrfache Verzweigung mit Else



Excel-Version: 97
  

Re: Mehrfache Verzweigung mit Else

von: WernerB.
Geschrieben am: 16.04.2002 - 22:47:08


Hallo Olga,

vielleicht geht's auch ganz ohne die "Else":

Viel Erfolg wünscht
WernerB.

  

Re: Mehrfache Verzweigung mit Else

von: Olga Schäfer
Geschrieben am: 16.04.2002 - 22:58:17


Hallo ich babe dies ausprobiert, leider funktioniert dies bei mir nicht.
Ich glaube dies müsste mit select case funktionieren.

Danke
Olga

  

Re: Mehrfache Verzweigung mit Else

von: WernerB.
Geschrieben am: 16.04.2002 - 23:14:45


Hallo Olga,

hier auch noch die Select-Case-Variante:

Viel Erfolg wünscht
WernerB.

nach unten

Betrifft: Mehrfache Verzweigung mit Else
von: Olga Schäfer
Geschrieben am: 16.04.2002 - 22:35:50

Hallo
Mein Code lautet:

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

 nach oben

Beiträge aus den Excel-Beispielen zum Thema "Mehrfache Verzweigung mit Else"