Anzeige
Archiv - Navigation
176to180
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
176to180
176to180
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Auswahl über Textbox

Auswahl über Textbox
07.11.2002 12:13:25
Uwe
In meine Userform Eingabenummer
suche ich aus einer umfangreichen Excel-Tabelle den der Eingabe
entsprechenden Datensatz und fülle die Userform Ergebnis damit.
Das klappt auch solange nicht nach Zahlen (also Kundennummer oder sowas gesucht wird).
Wo ist der Feher. Anbei mein Beispiel.
s3 ist die erste Zelle die mit dem Textboxinhalt verglichen werden soll. Danach wird solange gesprungen bis eine Leerzelle
erreicht ist oder der Suchbegriff gefunden.

Private Sub CommandButton1_Click()


Ergebnis.Kreditor.Value = Eingabenummer.TextBox1.Value
Sheets("NU-Liste allgemein").Select
Range("s3").Select
Do While ActiveCell <> TextBox1
ActiveCell.Offset(1, 0).Select
If ActiveCell.Value = "" Then
Unload Eingabenummer
InfoEinzelanzeige.Show
Exit Sub
Else: Unload InfoEinzelanzeige
End If

Loop

Ergebnis.Gewerk.Value = ActiveCell.Offset(0, -18)
Ergebnis.Straße.Value = ActiveCell.Offset(0, -16)
Ergebnis.PLZ.Value = ActiveCell.Offset(0, -15)
Ergebnis.Ort.Value = ActiveCell.Offset(0, -13)
Ergebnis.Einsatz.Value = ActiveCell.Offset(0, -8)
Ergebnis.QMBwert.Value = ActiveCell.Offset(0, -7)
Ergebnis.StandQM.Value = ActiveCell.Offset(0, -6)
Ergebnis.Preisstufe.Value = ActiveCell.Offset(0, -5)
Ergebnis.Name1.Value = ActiveCell.Offset(0, -17)
Unload Vorauswahl
Range("a1").Select
Ergebnis.Show
End Sub

5
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
Re: Auswahl über Textbox
07.11.2002 12:28:04
Otto Ecker
Hallo Uwe,

formatiere die "Kundennummer" als Text. Dann wird diese auch gefunden.

Gruß Otto

schon probiert
07.11.2002 12:30:51
Uwe
Hallo Otto,

das war das Erste was ich versucht habe funktioniert aber nicht.

Uwe

Lösung
07.11.2002 13:02:30
Otto
Hallo Otto,

hab die Lösung gefunden.

Do While ActiveCell.Value <> Val(TextBox1)

wenn ich die Abfrage so gestalte läuft Alles.

Uwe

Re: schon probiert
07.11.2002 13:04:05
Otto Ecker
Hallo Uwe,

findet bei mir Text, Zahl als Text formatiert, aber keine Zahl als Zahl formatiert.

Duchlaufe mal das Modul im Einzelschritt. Setze den Cursor dann an die jeweilige Stelle um die Variable zu prüfen.

Gruß Otto

Re: Auswahl über Textbox
07.11.2002 13:04:27
Steffen
Versuche doch mal:
"Do While CStr(ActiveCell) <> TextBox1"

Der Inhalt der aktiven Zelle wird in eine Zeichenkette umgewandelt.

So denn...

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige