Makro Problem
Stefanglander
ich habe beim stöbern folgenden Code gefunden:
Sub TestCopy()
Dim wks As Worksheet
Dim iRow As Integer, iRowL As Integer, iRowT As Integer
Set wks = Worksheets("Target")
iRowL = Cells(Rows.Count, 1).End(xlUp).Row
For iRow = 1 To iRowL
If InStr(Cells(iRow, 9).Value, "WES") Then
iRowT = wks.Cells(Rows.Count, 1).End(xlUp).Row + 1
Rows(iRow).Copy wks.Rows(iRowT)
End If
Next iRow
wks.Columns.AutoFit
Application.CutCopyMode = False
End Sub
Diesen Code habe ich in das Modul1 geschrieben, den CMD habe ich Tabelle1 stehen. Das 2. Tabellenblatt heiß "Target"Was mache ich falsch ?
Gruß
Stefan
Wenn ich nun den CMB drücke erhalte ich die Fehlermeldung "
Sub oder Funktion nicht definiert"