ich bin gerade total am verzweifeln und weiß einfach nicht weiter.
In die Zelle B7 soll eine Seriennummer eingegeben und überprüft werden ob diese in der Datenbank vorhanden ist. Wenn diese nicht vorliegt soll die Zelle rot werden wenn sie gefunden wird soll diese grün und Werte in andere Zellen übertragen werden. Leider Gottes erhalte ich immer zwei Fehlermeldungen:
1. Laufzeitfehler 28 - Nicht genügend Stapelspeicher
Wenn ich diesen Fehler quittiere erhalte ich beim nächsten mal diese Fehlermeldung:
2. Die Methode Cells für das Objekt Worksheet ist fehlgeschlagen
Kann mir bitte jemand sagen was ich falsch gemacht habe? Ist das Change Event die falsche Vorgehensweise für meine Anwendung? Ich habe Change Event gewählt, weil die Seriennummer eingescannt wird und automatisch ein Enter ausgeführt wird. Ich habe mir gedachte so müsste niemand einen Button betätigen oder Enter drücken.
Grüße
MarC
Private Sub Worksheet_Change(ByVal Target As Range)
Dim KeyX As Range
Dim RowNo1 As Long
Dim LastRow As Long
Set KeyX = Range("B7")
LastRow = Sheets("Tabelle2").Cells(Rows.Count, 2).End(xlUp).Row
For RowNo1 = 6 To LastRow
If Mid(Sheets("Tabelle1").Cells(7, 2), 3, 6) = Sheets("Tabelle2").Cells(RowNo1, 2) Then
Sheets("Tabelle1").Cells(7, 2).Interior.Color = RGB(0, 176, 80)
Sheets("Tabelle1").Cells(9, 2) = Mid(Sheets("Tabelle1").Cells(7, 2), 19, 5)
Sheets("Tabelle1").Cells(11, 6) = Sheets("Tabelle2").Cells(RowNo1, 5)
Else
Sheets("Tabelle1").Cells(7, 2).Interior.Color = RGB(255, 0, 0)
Sheets("Tabelle1").Cells(7, 3).Interior.Color = RGB(255, 0, 0)
End If
Next RowNo1
End Sub