wenn keine übereinstimmung, dann XXX in ein Feld
19.02.2004 12:10:12
spillo
habe mir folgenden code zusammengestückelt:
---------------------------------------------
Option Explicit
Private Sub CommandButton1_Click()
Cells(9, 18) = TextBox1.Text
Dim i As Byte, n As Byte
Dim wks1 As Worksheet, wks2 As Worksheet
Set wks1 = Worksheets("Artikel")
Set wks2 = Worksheets("Verkauf")
For i = 6 To 204
If wks2.Cells(9, 18) = wks2.Cells(i, 1) Then
wks1.Cells(5, 13) = wks1.Cells(i, 1)
'else
'wks1.Cells(5, 13) = 206
End If
Next i
Call pos_hinzufügen
Unload UserForm3
End Sub
---------------------------------------------
möchte jetzt, wenn es keinen satz gibt, dass
er mir einmalig ist feld "wks1.Cells(5, 13)" = 206 gibt.
mit dem oben markiertem else funktioniert es so nicht
richtig.
was mache ich falsch?
bitte helft mir
danke
spillo