Live-Forum - Die aktuellen Beiträge
Datum
Titel
25.04.2024 00:42:03
Listbox mit gefilterten Daten füllen
24.04.2024 20:38:58
Summe mit Bedingung, nur letzte Ergebnisse anzeigen
24.04.2024 19:29:30
Formel filter
24.04.2024 18:49:56
merge & select
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
808to812
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
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
808to812
808to812
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Zellinhalt suchen

Zellinhalt suchen
17.10.2006 16:31:01
Rolf
Hallo Forum,
für einen Vorschlag (in VBA) zu folgender Aufgabe wäre ich dankbar:
In Spalte B stehen in ca. 1000 Zellen jeweils die Ergebnisse von Berechnungen. Nach der Betätigung eines CommandButton soll der Wert, der zuvor in Zelle C1 eingegeben wurde, in der Spalte B gesucht werden und die entsprechende Zelle soll in Spalte B aktiviert werden. Sollte der Wert aus C1 nicht gefunden werden, soll zum nächst größeren in Spalte B gesprungen werden.
Danke Euch vorab für einen Lösungsvorschlag!
Grüße
Rolf

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

Betreff
Datum
Anwender
Anzeige
AW: Zellinhalt suchen
17.10.2006 23:09:39
fcs
Hallo Rolf,
Suchmakro:

Private Sub CommandButton1_Click()
Dim Bereich As Range, rngFinden As Range, Suchen, I As Long, Vergleich
Set Bereich = Me.Range(Cells(1, 2), Cells(Me.Rows.Count, 2).End(xlUp))
Suchen = Me.Range("C1").Value
Set rngFinden = Bereich.Find(What:=Suchen, LookIn:=xlValues, lookat:=xlWhole)
If rngFinden Is Nothing Then
Vergleich = Application.WorksheetFunction.Max(Bereich)
For I = 1 To Bereich.Rows.Count
If Bereich(I, 1) > Suchen And Bereich(I, 1) < Vergleich Then Vergleich = Bereich(I, 1)
Next I
Set rngFinden = Bereich.Find(What:=Vergleich, LookIn:=xlValues, lookat:=xlWhole)
End If
rngFinden.Select
End Sub

Gruss
Franz
Anzeige
AW: Zellinhalt suchen
18.10.2006 08:23:44
Rolf
Hallo Franz,
vielen Dank für Deine schnelle Hilfe!
Das Suchmacro tut genau das, was es soll.
Gruß
Rolf

Links zu Excel-Dialogen

CommandButton

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige