Er leert nicht!
06.11.2004 21:11:43
Thorben
Ich habe ein kleines Problem. Ich verwende folgendes Script:
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Address = "$E$33" Then
Dim wksK As Worksheet
Dim wksDB As Worksheet
Dim wksPreis As Worksheet
Dim rng As Range
Dim iCol As Integer
Dim lRow As Long
Set wksK = Sheets("Kalkulation")
Set wksDB = Sheets("DB")
Set wksPreis = Sheets("Preisentwicklung")
Set rng = wksDB.Range("A:A").Find(wksK.[D12]) 'EAN-Code in "DB" suchen
If Not rng Is Nothing Then
rng.Offset(0, 5) = wksK.[E30] 'Einkaufspreis eintragen
Set rng = wksPreis.Range("A:A").Find(wksK.[D10])
If Not rng Is Nothing Then
iCol = wksPreis.Cells(rng.Row, 256).End(xlToLeft).Column + 1
wksPreis.Cells(rng.Row, iCol) = wksK.[E30] & " / " & Format(Date, "dd/mm/yy")
Else
lRow = wksPreis.Range("A65536").End(xlUp).Row + 1
wksPreis.Cells(lRow, 1) = wksK.[D10]
wksPreis.Cells(lRow, 2) = wksK.[E30] & " / " & Format(Date, "dd/mm/yy")
wksK.[E30] = ""
End If
End If
End If
End Sub
Nach dem er den Preis in die Liste eingetragen hat, sollte er eigentlich die Zelle E30 wieder leeren. Er macht dies aber nicht nur sporadisch und ohne ein System. Woran kann das liegen? Habt ihr eine Idee?`
Vielen Dank