Live-Forum - Die aktuellen Beiträge
Datum
Titel
16.10.2025 09:40:53
Mehrere Konferenzen ohne Personenüberschneidung terminieren
16.10.2025 00:15:51
Passwort im Herbersforum ändern
15.10.2025 16:22:17
Datum ist nicht Datum :(
15.10.2025 15:02:20
Blockpfeile mit Makro gehen nicht mehr nach freigabe
Keine passende Antwort im Forumarchiv gefunden?
Stelle deine Frage im Live-Forum
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
204to208
204to208
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

suchen bis zur Empty Zelle

Forumthread: 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

Anzeige

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)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
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