Live-Forum - Die aktuellen Beiträge
Datum
Titel
26.04.2024 17:18:47
Große Datenmenge in komplexes Diagramm verpacken
26.04.2024 16:22:47
Aktualisierung Verknüpfung bei geschlossener Quelldatei
26.04.2024 16:05:28
PivotChart-Stapeldiagramm erstellen
26.04.2024 15:34:42
Überlagernde Textbox-Ansicht
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1372to1376
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
1372to1376
1372to1376
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Wert wird nicht gefunden

Wert wird nicht gefunden
30.07.2014 11:46:52
Peter
Hallo Zusammen
Hier benötige ich mal wieder Eure Hilfe.
In einer Schleife durchlaufe ich alle belegten Zellen in eineer Spalte und wenn der Wert in der Zelle gleich ist wie in einer Textbox soll eine Meldung ausgegben werden.
Dazu habe ich eine kleine Bsp. Datei erstellt.
Nun ist es bei mir so, das im Direktfenster alles gleich ist und es wird trozdem keine Meldung ausgegeben warum?
Ich konnte kein Fehler im Code feststellen, vieliecht einer von Euch und kann mir auf die Sprüngen helfen
https://www.herber.de/bbs/user/91780.xlsm
Vielen Dank und viele Grüße
Peter (hpo)

8
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Wert wird nicht gefunden
30.07.2014 12:09:35
Werner
Hallo Peter,
ändere folgende Zeile in deinem code
If e.Value = CVar(TextBox1.Value) Then
in
If e.Value = CVar(TextBox1.Value * 1) Then
Textboxen beinhalten Text, auch wenn du dort Zahlen eingibst. Du vergleichst mit deinem Code also Text mit Zahlen, da kann keine Übereinstimmung gefunden werden.
Durch die Multiplikation mit 1 wird aus dem Text in der Textbox eine Zahl und es funktioniert.
Gruß Werner

AW: Wert wird nicht gefunden
30.07.2014 12:31:18
Peter
Hallo Werner
Vielen Dank für Deine Hilfe.
Mein Problem ist aber, das ich sowohl Zahlen mit Text oder auch nur Text oder nur Zahlen habe nach dem gesucht werden muss. Deshalb habe ich ja vor der Textbox das "Cvar" angegeben.
Wie kann ich den dies auffangen, damit ich keine Fehlermeldung bekommen und der Inhalt auch gefunden wird?
Vieleicht kannst Du mir hier weiter helfen. Wäre sehr schön ;-)
Viele dank
Gruß
Peter (hpo)

Anzeige
AW: Wert wird nicht gefunden
30.07.2014 12:51:06
Peter
Hallo Peter,
so sollte das aber funtionieren:
If CStr(rZelle.Value) = CStr(TextBox1.Value) Then
Gruß Peter

AW: Wert wird nicht gefunden
30.07.2014 13:25:21
EtoPHG
Hallo Peter & Peter
1. Wenn du nach dem sichtbaren Inhalt einer Zelle suchen willst, benutze e.Text, statt e.Value
2. CStr(e.Value) hilft nicht, viel wenn es sich z.b. um Kommazahlen handelt, bei der nicht alle Kommastellen sichtbar sind. Gefunden würden hier nur Zellen, für die alle Kommastellen der Zahl angeben würden.
3. Würde ich diesen Befehl vorziehen, da er auch Funde mit 'beginnt mit' aufzeigt: 
If TextBox1 & "*" like e.Text Then
Gruess Hansueli

Anzeige
AW: Wert wird nicht gefunden
30.07.2014 12:56:33
Rudi
Hallo,
das im Direktfenster alles gleich ist
klar. Ob du eine Zahl als Zahl oder Text reinschreibst is egal. Sieht immer gleich aus. Ist es aber nicht.
Da Textboxen immer Text enthalten: 
    If CStr(e) = TextBox1 Then
Gruß
Rudi

AW: Wert wird nicht gefunden
30.07.2014 13:08:32
Peter
Hallo Zusammen (Rudi, Peter, Werner)
Vielen Dank für Eure Hilfe.
Manchmal steht man auf der Leitung, den Inhalt in ein Str. zu wandel macht natürlich mehr sin und Funktioniert wunderbar.
Nochmal vielen Dank
Gruß
Peter (hpo)

AW: Wert wird nicht gefunden
30.07.2014 13:59:45
Peter
Hallo Peter,
warum verwendest Du nicht die Find-Methode oder Match?
Dim WkSh      As Worksheet
Dim rZelle    As Range
Set WkSh = ThisWorkbook.Worksheets("Tabelle1")
With WkSh.Columns(2)
Set rZelle = .Find(What:=TextBox1.Value, LookAt:=xlWhole, LookIn:=xlValues)
If Not rZelle Is Nothing Then
MsgBox "Der Begriff  """ & TextBox1.Value & """  wurde in der Zeile  """ & _
rZelle.Row & """  gefunden."
Else
MsgBox "Der Begriff  """ & TextBox1.Value & """  wurde nicht gefunden."
End If
End With
Gruß Peter

Anzeige
AW: Wert wird nicht gefunden
30.07.2014 14:11:48
Peter
Hallo Peter
hier noch die Match-Variante 
Dim WkSh      As Worksheet
Dim vZeile    As Variant
Set WkSh = ThisWorkbook.Worksheets("Tabelle1")
If IsNumeric(TextBox1.Value) Then
vZeile = Application.Match(CDbl(TextBox1.Value), WkSh.Columns(2), 0)
Else
vZeile = Application.Match(TextBox1.Value, WkSh.Columns(2), 0)
End If
If IsNumeric(vZeile) Then
MsgBox "Der Begriff  """ & TextBox1.Value & """  wurde in der Zeile  """ & _
vZeile & """  gefunden."
Else
MsgBox "Der Begriff  """ & TextBox1.Value & """  wurde nicht gefunden."
End If

Gruß Peter
Anzeige

300 Forumthreads zu ähnlichen Themen

@ Tino - brauche Hilfe bei einer deiner Formeln
oblivion

Hallo, ich habe eine Frage an dich. Du hast mir die Formel erstellt in A16.
Ich habe die Datei mal hochgeladen und in Blatt "Beispiel" Spalte A etwas hereingeschrieben.
Danke für deine Hilfe.
Gruß Oblivion
https://www.herber.de/bbs/user/54685.zip
17.08.2008 21:06:00
Thread-ID: 1002466
4 Beiträge
Anzeige
Teilergebnis einer Spalte wird nicht angezeigt
thaake

Hallo,
ich lasse mir die Teilergebnisse verschiedener Spalten anzeigen mit =Teilergebnis(9;V5:V300), was auch überall klappt, aber nur eine Spalte weigert sich. Formatierung ist vollkommen ok, das Anzeigen in einer anderen Zelle mit Verweis auf diese Spalte klappt auch nicht. Summe dagegen...
22.09.2008 11:21:12
Thread-ID: 1011416
2 Beiträge
Inhalt von UF wird nicht angezeigt
UF

Hi Forum,
ich starte meine UF mit dem folgenden Code:
Sub auto_open() Application.WindowState = xlMinimized UF_BitteWarten.Show vbModeless Application.Run "RESETMASK" UF_BitteWarten.Hide UF_Maske.Show End Sub
Wie zu erkennen, wird beim Start ein Reset ausgeführt, der einige Sekun...
26.09.2008 14:29:02
Thread-ID: 1012639
16 Beiträge
Anzeige
Filterergebnisse werden nicht angezeigt
hajo


Hallo zusammen,
wenn ich mit Autofilter einen Filter in VBA setze, wird mir das Ergebnis nicht angezeigt. Wenn ich die gleiche Aktion manuell ausführe bekomme ich das gewünschte Ergbniss. Kann mir jemand helfen?
Range("A1").Select
Selection.AutoFilter
Selection.AutoFilter F...
29.10.2008 12:43:42
Thread-ID: 1020236
5 Beiträge
Rechtschreibung: Pop-Up wird nicht mehr angezeigt
Norbert

Hallo,
nach dem Auswählen des Menüpunktes "Extras" - "Rechtschreibung", wird das zugehörige Pop-Up zur Auswahl der Korrekturvorschläge nicht mehr angezeigt.
Nach einem Klick auf die Schaltfläche "Rechtschreibung" ebenfalls nicht mehr.
Ich habe die möglichen Optionen zur Einstellung...
11.11.2008 11:22:22
Thread-ID: 1023480
3 Beiträge
Ergebnis wird nicht absteigend sortiert
Stefan

Hallo zusammen!
Ich habe folgendes Problem. Bei meiner Auswertung der Tabelle1 in Tabelle2 erfolgt die Auswertung nicht in absteigender Form. Die Tabelle2 soll immer in absteigender Form nach Spalte C geordnet werden. Ich war der Meinung dies geschieht automatisch mit der Formel in Spalte B...
15.11.2008 18:55:00
Thread-ID: 1024806
7 Beiträge
langer Text wird nicht mehr angezeigt
u_hoernchen

Ich muss einen langen Text (ca. 1.500 Zeichen) in eine Excel-Zelle schreiben (geht leider nicht anders, also das bitte nicht in Frage stellen). Nun wird beim Ausdruck und bei der Bildschirmanzeige aber die letzte Zeile nicht mehr umgebrochen (Zeilenumbruch ist formatiert), in der Zelle steht ab...
05.01.2009 11:10:25
Thread-ID: 1036916
4 Beiträge
Formel wird nicht ausgeführt
Andy

Hallo Leute,
Guten Abend. Ich habe ein ganz großes Problem.
Ich habe eine Exceldatei mit vielen Datensätzen (ca. 8000). In Spalte C habe ich eine Formel, die auf Spalte A und B Bezug nimmt und aus einer Matrix den entsprechenden Wert sucht. Das ganze hat bis jetzt super funktioniert. W...
19.02.2009 16:47:00
Thread-ID: 1052226
8 Beiträge
Anzeige

Links zu Excel-Dialogen

TextBox

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige
Archiv - Verwandte Themen
Forumthread
Beiträge
3
2
1
15
6
4
2
6
3
7
1
5
14
2
5
2
7
5
2
4
4
2
5
3
2