Wie frage ich nach einem Objekt?

01/10/2007 - 16:00 von Jascha Lendeckel | Report spam
Hallo NG,

um in einer kleinen Tabelle Felder auszulesen suche ich mit

Feld = Workbooks("Projekte.XLS").Worksheets(1).Range("A:A")
.Find(Projektnr, LookIn:=xlValues)

nach der Zeile und lese dann mit

x=Workbooks("Projekte.XLS").Worksheets(1).Range("C" +
Trim(Str(Feld.Row))).Text

die Spalten aus die ich brauche

Das Problem ist, das die Daten die gesucht werden nicht immer
vorhanden sind und die erste Operation in die Variable "Feld" Nothing
rein schreibt wie kann ich das abfragen so das ich die nachfolgenden
operationen nur ausführe wenn Feld <> Nothing ist?
If Feld <> Nothing funktioniert nicht!

Gruß

Jascha Lendeckel

Versuche nicht, ein erfolgreicher, sondern ein wertvoller Mensch zu
werden.

Phantasie ist wichtiger als Wissen, denn Wissen ist begrenzt.

[Albert Einstein]
 

Lesen sie die antworten

#1 Helmut Weber
01/10/2007 - 16:13 | Warnen spam
Hallo Jascha,

vielleicht so:

Sub Test4413()
Dim Feld As Object
Set Feld = Workbooks("Personal.XLS").Worksheets(1). _
Range("A:A").Find("xxx", LookIn:=xlValues)
If Not Feld Is Nothing Then
MsgBox Feld
End If
End Sub

Aber ob das der beste Weg ist?


Gruß

Helmut Weber, MVP WordVBA

"red.sys" & chr$(64) & "t-online.de"
Win XP, Office 2003 (US-Versions)

Ähnliche fragen