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
|