Microsoft Excel

Herbers Excel/VBA-Archiv

Eintrag in Spalte suchen | Herbers Excel-Forum


Betrifft: Eintrag in Spalte suchen von: fbaron
Geschrieben am: 13.08.2012 09:33:21

Hallo Zusammen,
ich habe ein Problem.
Ich suche in einer Datei eine Artikelnummer, wenn sie dort nicht ist, soll sie dort angebaut werden und Werte eingetragen werden.

Mein Ansatz lautet wie folgt:

Worksheets("Basisdatei").Select
SV = Columns(1).Find(ArtNr).Row

SV steht für Setzvariable
Er setzt dort aber einen Fehler, Wenn die Artikelnummer nicht gefunden wird.

Wie kann man das besser machen?
Es soll ungefähr wie folgt weitergehen: Wenn SV = leer, dann
Cells (i,6)= ArtNr
Cells(i,7)= Bezeichnung

Danke

Friederike

  

Betrifft: AW: Eintrag in Spalte suchen von: Josef Ehrensberger
Geschrieben am: 13.08.2012 09:39:51


Hallo Friederike,

da fehlen noch einige Infos um gezielt helfen zu können, aber als Ansatz.

Sub friederike()
  Dim rng As Range
  Dim lngFree As Long
  
  With Worksheets("Basisdatei")
    Set rng = .Columns(1).Find(What:=ArtNr, LookIn:=xlValues, LookAt:=xlWhole, MatchCase:=False, After:=.Cells(1, 1))
    If Not rng Is Nothing Then
      '? wenn gefunden
    Else
      lngFree = .Cells(.Rows.Count, 1).End(xlUp).Row + 1
      .Cells(lngFree, 6) = ArtNr 'sollte die nicht in Spalte 1?
      .Cells(lngFree, 7) = Bezeichnung
    End If
  End With
  
  Set rng = Nothing
End Sub






« Gruß Sepp »



  

Betrifft: AW: Eintrag in Spalte suchen von: Ramses
Geschrieben am: 13.08.2012 09:41:17

Hallo

als Ansatz mal folgendes.
Ich gehe mal davon aus, dass SV als Long definiert ist

On Error Resume Next
SV = Columns(1).Find(ArtNr).Row
If IsEmpty(SV) Then

Deine Anweisungen was dann zu tun ist

Else

Deine Anweisungen welche Daten gelesen werden sollen

End If
On Error GoTo 0 '(0 = NULL)

Gruss Rainer


Beiträge aus den Excel-Beispielen zum Thema "Eintrag in Spalte suchen"