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":


Option Explicit
Private Sub Worksheet_Change(ByVal Target As Excel.Range)
Dim 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
      End If

      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

      If Target.Value = "d" Then
        z = Worksheets("Deutschebank").Cells(65536, 1).End(xlUp).Row + 1
        Rows(Target.Row).EntireRow.Copy Destination:=Worksheets("Deutschebank").Cells(z, 1)
        Rows(Target.Row).Delete
      End If

      If Target.Value = "h" Then
        z = Worksheets("Hypobank").Cells(65536, 1).End(xlUp).Row + 1
        Rows(Target.Row).EntireRow.Copy Destination:=Worksheets("Hypobank").Cells(z, 1)
        Rows(Target.Row).Delete
      End If
    End If
End Sub


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:


Option Explicit
Private Sub Worksheet_Change(ByVal Target As Excel.Range)
Dim As Long
    If Target.Column = 6 Then
      Select Case Target.Value
        Case "r"
          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
        Case "s"
          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
        Case "d"
          z = Worksheets("Deutschebank").Cells(65536, 1).End(xlUp).Row + 1
          Rows(Target.Row).EntireRow.Copy _
            Destination:=Worksheets("Deutschebank").Cells(z, 1)
          Rows(Target.Row).Delete
        Case "h"
          z = Worksheets("Hypobank").Cells(65536, 1).End(xlUp).Row + 1
          Rows(Target.Row).EntireRow.Copy _
            Destination:=Worksheets("Hypobank").Cells(z, 1)
          Rows(Target.Row).Delete
      End Select
    End If
End Sub

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"