Live-Forum - Die aktuellen Beiträge
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender

Forumthread: Eintrag in Spalte suchen

Eintrag in Spalte suchen
fbaron
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
Anzeige

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Benutzer
Anzeige
AW: Eintrag in Spalte suchen
13.08.2012 09:39:51
Josef

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 »

Anzeige
AW: Eintrag in Spalte suchen
13.08.2012 09:41:17
Ramses
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
Anzeige
;

Forumthreads zu verwandten Themen

Anzeige
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige