Hallo zusammen,

ich habe ein kleines VB Problem, dass ich gerne lösen würde. Leider komme ich einfach nicht weiter. Hoffe ihr könnt mir helfen :)

Ziel ist es auf Knopfdruck eine Zellen-Range von Blatt2 auf Blatt1 in eine bestimmte Zellen-Range zu kopieren. Was bzw. welche Range von Blatt2 dabei kopiert werden soll, ist abhängig von einem Zellwert (steht in "L30"). Insgesamt gibt es 48 verschiedene Möglichkeiten (ORI1, ORI2...) und demnach auch 48 verschiedene Ranges, die ich angeben muss. Ich bin leider alles andere als Profi und das ist mein Code bislang:

Sub KopierenJeNachZellenwert()
      Dim s As String
      s = ActiveCell.Value
      If Blatt1.Range("L30") = "ORI1" Then Blatt2.Range("N10:P22").copy
      ElseIf Blatt1.Range("L30") = "ORI2" Then Blatt2.Range("N24:P36").copy
      ElseIf Blatt1.Range("L30") = "ORI3" Then Blatt2.Range("N37:P78").copy
usw.      


      Else
      Blatt2.Range("B1").copy
      Blatt1.Activate
      Blatt1.Range("C13").Select
      ActiveSheet.Paste
      Application.CutCopyMode = False
      Else
      
      End If
      
   End Sub

Ich bekomme damit immer die Error-Meldung "Else ohne If". Wenn ich diese Version hier benutze, klappt es aber (allerdings nur eine Möglichkeit abgedeckt: ORI1):

Sub KopierenJeNachZellenwert()
      Dim s As String
      s = ActiveCell.Value
      If Blatt1.Range("L30") = "ORI1" Then Blatt2.Range("N10:P22").copy Else Blatt2.Range("B1").copy
      Blatt1.Activate
      Blatt1.Range("C13").Select
      ActiveSheet.Paste
      Application.CutCopyMode = False
   End Sub

Hoffe ihr könnt mir helfen!

Tausend Dank vorab!

Mat