ich habe folgendes Problem. Ich habe ein Tabellenblatt mit Datensätzen und ein Tabellenblatt für die Auswertung. Ich habe mir ein Makro geschrieben, welches aus der Zelle B4 des Blattes Auswertung sein Suchkriterium ziehen soll und dann die Spalte AG ab Zeile 13 auf dem Datenblatt Daten durchsuchen soll. Bei Übereinstimmung soll die ganze Zeile in das Blatt auswertung kopiert werden.
Ich bekomme aber ständig Fehlermeldungen.
Kann mir jemand sagen was ich falsch gemacht habe?
Der Code:
Sub suche()
Dim wks, wks2 As Worksheet, I As Integer, krit As String
Set wks = Worksheets("Daten")
Set wks2 = Worksheets("Auswertung")
If Not wks2.Cells(4, 2).Value) = Empty Then
krit = wks2.Cells(4, 2).Value
Else: MsgBox "Please choose search criteria in field 'B4'"
End If
For I = 13 To wks.Cells(Rows.Count, 33).End(xlUp).Row
If wks.Cells(I, 33).Value = krit Then
Kopieren (I)
End If
Next
End Sub
Sub Kopieren(Zeile As Long)
Dim NextRow As Long
NextRow = wks2.Cells(Rows.Count, 1).End(xlUp).Row + 1
wks2.Cells(NextRow, 1) = _
wks.Cells(Zeile, 33)
End
Sub
Fehlermeldungen: Datentypen nicht vereinbar; Objekt erforderlich(beim kopieren)
Desweiteren kommt immer die Messagebox obwohl in B4 etwas steht!?
Für Hilfe wäre ich sehr dankbar!
Gruß Chistian