das ist mein Makro:
Application.ScreenUpdating = False
'Sheets("Beleg1").Select
Dim iRow As Integer, iRowL As Integer, n As Integer
Dim SuchWert
iRowL = Cells(Rows.Count, 3).End(xlUp).Row
n = 4 'setzt in Zeile4 auf
SuchWert = Application.InputBox("Bitte geben Sie die gesuchte Nummer ein !", ("Anfrage", , , , , , 1))
If SuchWert = False Then Exit Sub
For iRow = 1 To iRowL
If Cells(iRow, 1) = SuchWert Then
Range(Cells(iRow, 1), Cells(iRow, 18)).Copy Destination:=Sheets("Beleg2").Cells(n, 1)
n = n + 1
End If
Next iRow
Application.ScreenUpdating = True
If n = 2 Then MsgBox ("Keine Werte gefunden !")
Sheets("Beleg2").Select
Range("A1").Select
ActiveSheet.PageSetup.PrintArea = ""
ActiveSheet.PageSetup.PrintArea = _
ActiveSheet.UsedRange.Address
Application.Goto Reference:="Print_Area"
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
ActiveSheet.PageSetup.PrintArea = ""
ActiveCell.Select
Application.ScreenUpdating = False 'Echo OFF
Application.Goto Reference:="KD"
End Sub
Das Poroblem ist folgendes:
In der Zeile: If Cells(iRow, 1) = SuchWert Then
erhalte ich die Fehlermeldung: "Sub oder Funktion nicht definiert.
Wie muss die Zeile nun lauten?