Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
1036to1040
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
Inhaltsverzeichnis

Uneingeschränkte Suche in Zeilen/ Spalten

Uneingeschränkte Suche in Zeilen/ Spalten
12.01.2009 10:33:00
Horst
Hey !
Ich möchte per Makro nach Einträgen Suchen.
Bis jetzt habe ich immer mit
Tabelle1.Range("Ax:Axxx").Find(Suchwert1)
gesucht und den Range fest vorgegeben. da sich meine Exel-Sheet aber ständig erweitert möchte ich gerne uneingeschränkt eine Top-Down-(Bottom Up) Suche durchführen.
Wie kann ich das denn machen?
Gruß Horst

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Uneingeschränkte Suche in Zeilen/ Spalten
12.01.2009 11:03:24
Rudi
Hallo,
Tabelle1.Cells.Find(...)
oder, wenn du nur in A suchen willst
Tabelle1.Columns(1).Find(...)
Gruß
Rudi
AW: Uneingeschränkte Suche in Zeilen/ Spalten
12.01.2009 12:00:55
Horst
Danke
AW: Uneingeschränkte Suche in Zeilen/ Spalten
12.01.2009 11:05:55
fcs
Hallo Horst,
die Suche in einem Zellbereich kannst du wie folgt verallgemeinern:
Gruß
Franz

Sub test()
Dim Suchwert1, ZelleSuch As Range
Suchwert1 = "A4"
With Tabelle1
'Suchen im Wertebereich von Spalte A
Set ZelleSuch = .Range(.Cells(1, 1), .Cells(.Rows.Count, 1).End(xlUp)).Find(Suchwert1)
'oder
'Suchen in Spalte A
Set ZelleSuch = .Columns(1).Find(Suchwert1)
If ZelleSuch Is Nothing Then
MsgBox Suchwert1 & "   nicht gefunden!"
Else
ZelleSuch.Select
MsgBox Suchwert1 & "   gefunden in Zelle: " & ZelleSuch.Address
End If
End With
End Sub


Anzeige
AW: Uneingeschränkte Suche in Zeilen/ Spalten
12.01.2009 12:01:00
Horst
Danke

316 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige