Live-Forum - Die aktuellen Beiträge
Datum
Titel
19.04.2024 19:41:34
Bei VBA Ausführung Anzeige einfrieren
19.04.2024 17:05:40
Zählen von Zeilen, in denen in bestimmten Bereich Daten sind
19.04.2024 16:34:52
gemeinsamer Filter über drei Spalten
19.04.2024 15:39:42
Exceltabelle daten per combobox zu word Datei
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
512to516
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
512to516
512to516
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Werte Suchen mit Vba

Werte Suchen mit Vba
08.11.2004 23:22:57
matze
Hallo,
gibt es eine Möglichkeit nachfolgenden Code zu verinfachen?
Ich suche den Wert in der Spalte C, bei dem in SPalte A 10 und in Spalte B der Wert 20 steht.
Nur so scheint mir das nicht so ideal....
Dim i As Integer
For i = 1 To 65536
If Cells(i, 1) = 10 And Cells(i, 2) = 20 Then
MsgBox Cells(i, 3)
End If
Next
Vielen Dank
Viele Grüsse

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

Betreff
Datum
Anwender
Anzeige
AW: Werte Suchen mit Vba
Ulf
Das hast du aber noch nicht probiert, oder? Würde auch einen Fehler geben, statt Integer ist Long erforderlich.
Musst du denn alle Zeilen abfragen?
Ulf
AW: Werte Suchen mit Vba
08.11.2004 23:59:05
Josef
Hallo Matze!
Vieleicht so!

Sub zehn_zwanzig_suchen()
Dim rng As Range
Dim sFirst As String
Set rng = Range("A:A").Find(what:=10, LookIn:=xlValues, LookAt:=xlWhole)
If Not rng Is Nothing Then
sFirst = rng.Address
If rng.Offset(0, 1) = 20 Then
MsgBox rng.Offset(0, 2)
Exit Sub
End If
Do
Set rng = Range("A:A").FindNext(after:=rng)
If rng.Address = sFirst Then Exit Do
If rng.Offset(0, 1) = 20 Then
MsgBox rng.Offset(0, 2)
Exit Sub
End If
Loop
End If
MsgBox "Nicht vorhanden!"
End Sub

Gruß Sepp
Anzeige

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige