Hallo zusammen,
folgendes habe ich geschrieben
Sub Dtaen_aufbereiten()
Dim wrks As Worksheet
Dim wrkb As Workbook
Dim zieldatei As Workbook
Dim i, y As Integer ' i=Zeile
Set zieldatei = ActiveWorkbook
Set wrks = ActiveWorksheet
If wrks.Cells(i, 6) = wrks.Cells(2, 8) Then
wrks.Cells(i, 11) = wrks.Cells(i, 7)
wrks.Cells(i, 12) = wrks.Cells(i, 8) '
wrks.Cells(i, 13) = wrks.Cells(i, 9)
End If
Leider kommt bei set wrks = ActiveWorksheet immer die Fehlermeldung "Variable nicht definiert" und activeworksheet ist markiert.
Weiß jemand wo der Fehler ist?