Problem: Daten durchsuchen

09/10/2007 - 08:22 von Alex | Report spam
Hallo Leute,

ich hab ein Programm mit 5 Textboxen erstellt. Desweiteren besitzt
meine Arbeitsmappe ein Arbeitsblatt mit Daten. Ich möchte nun mit
Hilfe der Textboxen nur bestimmte Daten laden (Eine Textbox entspricht
einer Spalte meiner 5 Spalten von Daten) und in eine andere tabelle
laden. Sprich man schreibt etwas in die Textboxen und es werden nur
die Zeilen meiner Daten angezeigt oder transferiert, welche mit meinen
Textboxen übereinstimmen.
Das klappt ja alles. Mein Problem ist nun folgendes: schreibe ich in
eine Textbox nichts, so bekomme ich gar keine Daten, weil es bei mir
keine Spalte gibt, wo nichts drinsteht. Ich habe versucht die
entsprechenden Textboxen mit "*" zu füllen, so dass es egal ist was in
den entsprechenden Textboxen steht, dies brachte jedoch nichts.

Kann mir da jemand weiterhelfen?

Mein Code:

Private Sub CommandButton1_Click()

Letzte_Zeile = Worksheets("Daten_excel").Cells(65536,
6).End(xlUp).Row 'ermitteln de letzten Zeile

If TextBox1.Value <> "" Or TextBox2.Value <> "" Or TextBox3.Value <>
"" Or TextBox4.Value <> "" _
Or TextBox5.Value <> "" Then
'wenn einer der Textboxen voll, dann...

For Hilfsv1 = 1 To Letzte_Zeile 'bis zur letzten zeile überprüfen

wert1 = Worksheets("Daten_excel").Cells(Hilfsv1, 1)
wert2 = Worksheets("Daten_excel").Cells(Hilfsv1, 2)
wert3 = Worksheets("Daten_excel").Cells(Hilfsv1, 3)
wert4 = Worksheets("Daten_excel").Cells(Hilfsv1, 4)
wert5 = Worksheets("Daten_excel").Cells(Hilfsv1, 5)

If TextBox1.Value = "" Then TextBox1.Value = "*"
If TextBox2.Value = "" Then TextBox2.Value = "*"
If TextBox3.Value = "" Then TextBox3.Value = "*"
If TextBox4.Value = "" Then TextBox4.Value = "*"
If TextBox5.Value = "" Then TextBox5.Value "*"

If wert1 = TextBox1.Value And wert2 = TextBox2.Value And wert3
= TextBox3.Value And wert4 = TextBox4.Value And wert5 TextBox5.Value Then


With Worksheets("Tabelle3")

.Cells(Hilfsv1, 1) Worksheets("Daten_excel").Cells(Hilfsv1, 1)
.Cells(Hilfsv1, 2) Worksheets("Daten_excel").Cells(Hilfsv1, 2)
.Cells(Hilfsv1, 3) Worksheets("Daten_excel").Cells(Hilfsv1, 3)
.Cells(Hilfsv1, 4) Worksheets("Daten_excel").Cells(Hilfsv1, 4)
.Cells(Hilfsv1, 5) Worksheets("Daten_excel").Cells(Hilfsv1, 5)

End With
End If

Next Hilfsv1

End If


End Sub



Gruß Alex
 

Lesen sie die antworten

#1 Lorenz Hölscher
09/10/2007 - 09:01 | Warnen spam
Hallo Alex,

ich will Dir gerne helfen, aber ich verstehe noch nicht, was
inhaltlich passieren soll:
- Du hast ein Excel-Formular mit 5 Textboxen und 1 CommandButton?!
- beim Anzeigen sind alle Textboxen leer?
- was tràgst Du dort ein, welche Daten stehen in den Zeilen?
- wenn Du den Button anklickst, sollen die fünf Werte aus den
Textboxen in ein anderes Blatt eingetragen werden?!

Noch ratlos,
Lorenz

Ähnliche fragen