Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
700to704
700to704
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Suchen mit VBA liefert kein Ergebnis ?!

Forumthread: Suchen mit VBA liefert kein Ergebnis ?!

Suchen mit VBA liefert kein Ergebnis ?!
26.11.2005 19:21:33
Heribert
Hallo Excelprofs,
in meinem "jetzt erlern ich VBA" Wahn, habe ich
versucht über eine Userform per makro 2 Suchbegriffe die beide stimmen müssen,
zu ermitteln und dann entsprechende Werte der Zeile x auszugeben.
Leider liefert mir das Makro keine Resultate, obgleich die Suchbegriffe
in der Tabelle vorkommen.
Ist meine Vorgehensweise(Suchmakro) grundsätzlich falsch oder hängt das mit den/der Formatierung de Zellen zusammen?Habe es mit String und Integer probiert.
Meine Testmappe:
https://www.herber.de/bbs/user/28741.xls
Besten Dank und noch nen schönes WoEnde
Heribert
Anzeige

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

Betreff
Datum
Anwender
Anzeige
AW: Suchen mit VBA liefert kein Ergebnis ?!
26.11.2005 19:32:55
Matthias
Hallo Heribert,
Wenn nur Zahlen gesucht werden sollen:

If Cells(z, 1) = CDbl(TextBox1) And Cells(z, 2) = CDbl(TextBox2) Then

Du vergleichst in deinem Code nämlich Äpfel mit Birnen, sprich Zahlen mit Text.
Es ginge auch

If Cells(z, 1).Text = TextBox1 And Cells(z, 2).Text = TextBox2 Then

Aber was soll das:

For z = 4 To Cells(Rows.Count, 1).End(xlUp).Row - 3

die -3 bewirkt. dass nur bis Zeile 4 gesucht wird.
Und was soll das:

For s = 1 To 10
Next s

Innerhalb der Schleife kommt die Schleifenvariable nie vor, d.h. es wird 10 mal dasselbe ausgeführt. Weil's so schön ist? ;-)
Gruß Matthias
Anzeige
AW: Suchen mit VBA liefert kein Ergebnis ?!
26.11.2005 19:39:49
Heribert
Hallo Matthias,
ersteinmal schönen Dank.
dies
For z = 4 To Cells(Rows.Count, 1).End(xlUp).Row - 3
hiermit wollte ich den Suchbereich ,zwecks lernen, mal festlegen.
Kommt aber wieder raus, dann xlUp.....
und dies
For s = 1 To 10
tja, hiermit wollte ich den ges. Spaltenbereich mit angeben.
Aber wenn das nicht nötig ist, werde ich es weglassen.
Ich befürchte, ich bleib euch als Fragestelleer noch ne Weile erhalten ;-}
Gruss
Heribert
Anzeige
AW: Suchen mit VBA liefert kein Ergebnis ?!
26.11.2005 19:44:52
Matthias
Hallo Heribert,
hier nochmal überarbeitet:

Private Sub CommandButton3_Click()
Dim z, s As Integer
Dim found As Boolean
With Sheets("Tabelle1")
For z = 4 To .Cells(Rows.Count, 1).End(xlUp).Row
If .Cells(z, 1).Text = TextBox1 And .Cells(z, 2).Text = TextBox2 Then
TextBox3 = .Cells(z, 3).Text
TextBox4 = .Cells(z, 4).Text
found = True
Exit For
End If
Next z
End With
If Not found Then
MsgBox "nicht vorhanden!"
TextBox3 = ""
TextBox4 = ""
End If
End Sub

Gruß Matthias
Anzeige
AW: Suchen mit VBA liefert kein Ergebnis ?!
26.11.2005 19:49:16
Heribert
So mach ich es....
Vielen Dank
Gruss
Heribert
;

Forumthreads zu verwandten Themen

Liste "definierter Namen" per VBA?
David

Hallo zusammen,
ist es per VBA möglich, die in einer Tabelle definierten Namen auszulesen, in einem neuen Sheet aufzulisten und daneben den/die mit dem Namen verbundene(n) Bereich bzw. Formel?
Ich würde mir gern bei umfangreichen Namensdefinitionen das Nachschauen im Menü ersparen, da j...
14.08.2008 12:15:44
Thread-ID: 1001809
5 Beiträge
Anzeige
VBA - Zelle kopieren bis Wert einer Zelle null ist
Schulze

Halli Hallo,
ich bin ziemlicher Neuling in VBA. Daher würde ich euch bitten mir bei meiner Fragestellung zu helfen und zwar wie folgt: Ich möchte aus einer Tabelle aller Zellen kopieren, bis der Wert einer Zelle 0 annimmt. Diesen bestimten Bereich möchte ich in einer neuen Datei abspeichern...
19.08.2008 08:39:35
Thread-ID: 1002782
17 Beiträge
Anzeige
Dynamische Wertänderung in VBA
Timo

Hallo,
ich habe ein kleines Problem und möchte vorab sagen, dass ich ein wirklicher VBA Laie bin. Ich habe folgendes Makro aufgenommen (nicht selbst geschrieben, da ich das nicht kann):
Sub updatechartloanvolumetrend()
If Range("C10") = "19981998" Then
ActiveSheet.ChartObjects("...
05.09.2008 09:38:00
Thread-ID: 1007590
3 Beiträge
VBA Warnhinweis Ignorieren
Asits

Hallo,
ich möchte per Macro Spalte A, in der Vor-und Nachname durch ein Komma getrennt sind
automatisch trennen.
Das mache ich mit:
Columns("B:B").Select
Selection.Insert Shift:=xlToRight
Range("B1").Select
ActiveCell.FormulaR1C1 = "Vorname"
Columns("A:A").Sele...
17.09.2008 20:12:04
Thread-ID: 1010513
3 Beiträge
Anzeige
Register der Multifunktionsleiste per VBA aktivier
Günther

Hallo!
Ich würde gerne per VBA das aktive Register der Multifunktionsleiste verändern (konkret: das Register Add-Ins aktivieren, damit dessen Inhalte im Vordergrund sichtbar werden).
Kennt jemand den entsprechenden Befehl? Wenn ja, mir bitte kurz mitteilen.
Herzlichen Dank im Voraus...
23.11.2008 17:51:53
Thread-ID: 1027119
4 Beiträge
Steuerelement Listbox1 in tabelle wird in VBA n
Mike

Hallo
Ich habe in einer Tabelle aus der Symbolleiste Steuerelemente ein Listenfeld in eine Tabelle eingefügt. Der Objektname lautet "Listbox1".
Über ein Makro will ich nun diese Listbox füllen.
Listbox1.additem "Text"
wenn ich das Makro ausführen wird die Listbox1 jedoc nicht ge...
28.11.2008 11:59:00
Thread-ID: 1028645
3 Beiträge
VBA prüfen, ob PC online ist!
Tobias

Hallo zusammen,
hab ein programm geschrieben das Währungskurse aus dem Internet läd und diese in einem Excelsheet ablegt.
Leider bekomme ich einen Abbruch wenn keine Internetverbindung besteht nun möchte ich gerne vor dem Update eine Prüfung durchführen ob der PC online ist.
ja Up...
04.12.2008 09:15:25
Thread-ID: 1030038
2 Beiträge
dynamischer Zellbezug in vba
Andi

Hallo Experten,
Ich wär euch sehr dankbar wenn ihr mir bei folgendem Problem weithelfen könnt. Ich versuch im beigelegten Dokument, Daten aus einer Pivottabelle über ein Makro darzustellen. Ich kann jedoch die Referenzzelle nicht gemäss der entsprechenden Zeile anpassen.
Bitte schauts...
09.01.2009 12:49:25
Thread-ID: 1038197
3 Beiträge
Summe von n bis n+t in VBA
n

Hallo zusammen
Leider habe ich sehr wenig Ahnung von VBA und probiere gerade eine Formel hinzubekommen. Sehr wahrscheinlich ist es für andere einfach, daher bitte ich um Rat.
Ich habe eine Spalte mit Zahlen (B2:B16).
Abgesehen von dieser Spalte habe ich zwei weitere Variablen: t und...
22.01.2009 17:06:49
Thread-ID: 1042696
4 Beiträge
Listbox mit verschiedenen Einträgen mit VBA ausles
Erik

Hallöle.
Folgende Situation:
Auf einem Excel-Sheet liegt eine Listbox. Hier sind unterschiedliche Werte eingetragen die auch einzeln markiert werden können.
Wie lese ich die Listbox mit einem Macro aus und wie vergebe ich ggf. dem Formular-Element einen Namen? Ich möchte dahin komm...
02.02.2009 14:46:09
Thread-ID: 1046261
5 Beiträge
Andere Schreibweise für Formel in VBA
MAS

Einen wunderschönen guten Abend,
ich muss in einem Tabellenblatt einige Formeln per VBA erzeugen.
Mit Hilfe des Makrorecorders müsste ich diesen String erzeugen - die Formel ist allerdings nur recht schwer lesbar
Würde gerne schöne Zellbezeichnungen angeben - was muß ich denn dazu...
04.03.2009 16:56:56
Thread-ID: 1056514
5 Beiträge
per VBA eine ListBox füllen
Peter

Guten Morgen!
Dank der freundlichen Unterstützung von Tino konnte ich meine Datei bis hierher erstellen.
Ich habe folgendes Problem:
Wenn über die Userform Daten eingegeben werden, werden diese einmal in die Seite Gesamt geschrieben und dann noch in die Seite des ausgewählten Verein...
10.03.2009 08:50:59
Thread-ID: 1058467
13 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

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