Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
204to208
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
204to208
204to208
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

suchen bis zur Empty Zelle

suchen bis zur Empty Zelle
22.01.2003 13:26:25
Mag
Hallo zusammen,

hat jemand eine Idee wie man es machen könnte wenn...
Ich habe ein Excel Blatt das besteht aus zwei Teilen, beide Teile haben eine Spalte mit Namen und dahinter Zahlen. Die Namen in der Spalte des ersten Teils sind gleich dem des zweiten Teils. Ich möchte aber das das Makro nur im ersten Teil sucht und falls er den Namen nicht finden sollte an eine andere Stelle springen soll.

Danke im voraus.

Mag

1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
Re: suchen bis zur Empty Zelle
22.01.2003 16:56:58
günther
hallo mag

dieser code läuft solange ab, bis in der markierten spalte eine leere zelle gefunden wird:

Dim xlrange As Range
Dim zelle As Range
Dim daten As Object


Set daten = Sheets("...Name des Tabellenblattes ...")

With daten
.Activate
.Columns("A:A").Select ' "A:A" ist Spalte mit Namen
End With

Set xlrange = Selection
Set zelle = xlrange.Cells(1, 1) ' wobei z.B.Cells(1,1) = Zelle A1

suchen = zelle.Value
finden = TextBox1.Text

Do While Not IsEmpty(zelle)
If suchen = finden Then

' hier steht anweisung wenn name gefunden

End If

Set zelle = zelle.Offset(1, 0) ' wenn nicht gefunden weiter

Loop

' wenn leere zelle gefunden wird schleife verlassen und hier steht weitere anweisung wenn nicht gefunden

gruss
günther

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige