Suche per VBA
03.09.2003 09:50:44
Sebastian
wenn diese variable jetzt nicht in dem datensheet vorhanden ist, soll in der zelle im quellsheet in bestimmter wert ("nicht vorhanden") eingetragen werden. Funktionsweise?
hier der code:
Public
Sub FindenKtnr()
Dim i As String
Dim j As String
Application.ScreenUpdating = False
For x = 1 To 5
i = Worksheets("Geschaefte").Range("c1").End(xlDown).Offset(1, -2)
If i = "" Then Exit Sub
Windows("VIAACNET.xls").Activate
Range("c:c").Select
j = Selection.find(i).Offset(0, -2)
Windows("Uebersicht.xls").Activate
Range("c1").End(xlDown).Offset(1, 0).Select
Selection.Value = j
Next x
Application.ScreenUpdating = True
End Sub
Vielen Dank