Hallo zusammen,
mein Problem wird für viele geringfügig erscheinen, aber ich finde einfach den Fehler nicht.
Gestartet wird das Makro aus einem Blatt, das als Ziel gespeichert wird.
Aus dem Blatt "Importmatrix" soll der entsprechende Bereich in das "Ziel"-Blatt nach C6:P37 kopiert werden.
Dim Klasse1 As String
Dim Klasse2 As String
Dim Fach As String
Dim Ziel As Worksheet
Set Ziel = ActiveSheet
Klasse1 = ActiveSheet.Range("b1").Value
Klasse2 = Sheets("Importmatrix").Range("a1").Value
If Klasse1 = Klasse2 Then
MsgBox ("Klasse OK"), vbInformation
Else: MsgBox ("Falsche Importdatei!"), vbInformation
Exit Sub
End If
Fach = ActiveSheet.Range("b2").Value
If Fach = "C" Then GoTo Weiter1
If Fach = "V" Then GoTo Weiter2
If Fach = "AJ" Then GoTo Weiter3
Weiter1:
Sheets("IMPORTMATRIX").Select
Range("b11:o42").Copy
Sheets(Ziel).Select --- Und hier ist irgendwie der Wurm drin.
Exit Sub
Weiter2:
MsgBox ("V"), vbInformation
Exit Sub
Weiter3:
MsgBox ("AJ"), vbInformation
End Sub
Vielen Dank für Eure Hilfe.
René