Live-Forum - Die aktuellen Beiträge
Datum
Titel
19.10.2025 21:57:06
Diagrammpunkte in unterschiedlichen Farben je nach Wert
19.10.2025 18:21:56
Prüfen, ob Bild geladen wurde
19.10.2025 15:24:14
VBA -Drucken nur, wenn ich mit bestimmtem WLAN verbunden bin
19.10.2025 10:48:58
Zufällige Uhrzeit
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
348to352
348to352
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Vergleichsfunktion

Forumthread: Vergleichsfunktion

Vergleichsfunktion
09.12.2003 11:41:52
Stefan
Hi Zusammen ich schon wieder. Meine Vba kenntnisse wachsen und wachsen nur leider nicht schnell genug :-)

Ich bin auf der suche nach einer Schleife die solange durch eine arbeitsmappe(abkuerzungen)geht bis der Wert mit einem Wert in der arbeitsmappe (quelle) übereinstimmt ODER der wert in der arbeitsmappe quelle gleich leer ist als ergebnis brauche ich die zeile in der die übereinstimmung gefunden wurde
leider funktioniert meine funktion die ich mir überlegt hatte nicht. obwohl der wert schon an dritter stelle gefunden werden müßte läuft die variable zeile von typ integer über.

was habe ich falschgemacht?

Danke schon mal für eure spitzen hilfe.

gruß stefan

Do While Worksheets("Quelle").Cells(aktuellezeile, Spalte).Value <> Worksheets("Abkuerzungen").Cells(Zeile, 1).Value Or Worksheets("Quelle").Cells(aktuellezeile, Spalte).Value = ""

Zeile = Zeile + 1


Loop
Anzeige

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

Betreff
Datum
Anwender
Anzeige
AW: Vergleichsfunktion
09.12.2003 13:46:12
q
' Hallo Stefan,
' versuch es mal so :

Option Explicit


Sub UbereinstimmungMitQuelle()
Dim aktuellezeile&, Zeile&, Spalte%
Dim QZelle As Range ' gesuchte Zelle aus der Tabelle Quelle
Dim QWert$ ' gesuchter Wert
aktuellezeile& = 1: Spalte% = 1 ' QZelle ist jetzt [a1]
Set QZelle = Worksheets("Quelle").Cells(aktuellezeile, Spalte)
QWert$ = CStr(QZelle.Value)
Zeile& = 1
' falls der wert in der arbeitsmappe quelle gleich leer ist , wird man in der Tabelle Abkuerzungen
' eine leere Zelle suchen, also die zweite Bedingung ist falch ...
Do While (QWert$ <> CStr(Worksheets("Abkuerzungen").Cells(Zeile&, Spalte%).Value))
If (Zeile& < Rows.Count) Then
Zeile& = Zeile& + 1
Else
MsgBox "Ubereinstimmung nicht gefunden.": End
End If
Loop
MsgBox "Ubereinstimmung mit dem QWert " & QWert$ & " liegt in der Tabelle Abkuerzungen in der Zeile " & Zeile
End Sub


' gruss q
Anzeige
AW: Vergleichsfunktion
11.12.2003 10:46:12
Stefan
Hi q besten dank Funktion funktioniert jetzt bestens

mfg stefan
;

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