Daten aus Excelliste lesen

Hallo,
ich benötige Hilfe mit folgendem Problem:
Ich habe eine Excelliste, die ich mit Userformtextboxen bearbeite. D.h.
Ich habe ein Textfeld in dem ich ein Suchwort eingebe, einen Button der mir die
Exceldatei öffnet und das Suchwort verarbeitet.
Das Suchwort (b) wird in einer Spalte gefunden und befindet sich in einer Zeile
A B C D E F
1
2 a b c d e f
3
4
Ich möchte nun die Spalte F auslesen. Also b wird gefunden und gibt mir f aus
Das funktioniert prima.
Jetzt mein Problem. Wenn in der Spalte B nicht nur das b sondern auch b und x steht
muss ich in mein Textsuchfeld im Userform b und x eingeben, damit die Zeichenkette gefunden wird.
D.h. ich muss den ganzen Zeileninhalt eingeben. Ich kann nicht zb. nur x in mein Suchfeld eingeben damit ich die Ausgabe f erhalte.
Also ich kann kein Schlagwort eingeben, sondern ich muss genau die Zeichenkette eingeben, damit f ausgegeben wird. Ansonsten erhalte ich eine Fehlermeldung.
Ich lese eine riesige Exceldatei aus und ich weiss ja nicht was genau in der Zelle steht um das gesuchte zu finden.
Wer kann mir helfen?
Hier mein funktionierender Ausschnitt
If Len(Trim$(Tex_Variable)) Then
Tex_Lizenz = ""
For Each objWB In Application.Workbooks
If objWB.FullName = cstrFile1 Then bolAlreadyOpen = True: Exit For
Next
If objWB Is Nothing Then Set objWB = Workbooks.Open(cstrpath & cstrFile1)
With objWB
Set objRange = .Sheets(cstrTab).Columns(3).Find(What:=Tex_Variable, LookAt:=xlWhole, _
LookIn:=xlValues, MatchCase:=False, SearchFormat:=False)
If Not objRange Is Nothing Then
Tex_Lizenz = objRange.Offset(0, 5)
Else
MsgBox "Anwendung nicht gefunden!"
End If
If Not bolAlreadyOpen Then .Close False
End With
Else
MsgBox "Anwendung im Feld Variable eingeben!", vbCritical
Exit Sub
End If
Hallo,
dann solltest du auch nach Teilen suchen.
Ändere
LookAt:=xlWhole
in
LookAt:=xlPart
Gruß
Rudi
#############################################################
Danke Rudi funktioniert einwandfrei!
Es wird mit dem Schlagwort die Zeile gefunden und der Wert einer Zelle ausgelesen.
Aber immer nur der erste Wert der gefunden wird.
Wie funktioniert es damit ich z.B. in Zeile 150 das Schlagwort finde und mir der Wert ausgegeben wird und dann in Zeile 180 das gleiche Schlagwort und auch dort mir der Wert ausgegeben wird?
Also einmal funktionierts, aber wenn das Schlagwort mehrmals im Excelsheet ist, wird nur das erste gefundene ausgegeben.
Eine Hilfe wäre echt super

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

With Worksheets(1).Range("a1:a500") Set c = .Find(2, lookin:=xlValues) If Not c Is Nothing Then firstAddress = c.Address Do c.Value = 5 Set c = .FindNext(c) Loop While Not c Is Nothing End If End With

Hallo Kollegen
@onur + @Luschi - bitte seit mir nicht böse was ich gerade in eurer AW entdeckt habe ...!!
Ihr schimpft über die Experten von Mikrosoft, aber der Code den ihr dem Frager anbietet ist - ABSOLUT TÖDLICH!
Ich habe ihn gerade getestet, und der MUSS unweigerlich in einer doppelten Katastrophe enden!
1. - der Code von euch laeuft unerbittlich in eine Todesschleife, wo selbst Is Nothing nichts mehr nützt!
2. - die Todesschleife entsteht druch das Veraendern von Daten, was in einer Original Datei absolut Tödlich ist!
Ich kam nur dahinter weil mir etwas auffiel, und ich Ahnungslos dachte: - oh, was für eine Super geile Idee der Kollegen! -
Kann man waehrend dem FindNext Suchlauf den gesuchten Ausdruck staendig Variabel veraendern? - s.hier: - c.Value = 5
Im ersten Augenblick dachte ich naiv ab hier sucht er die neue Zahl 5, bis ich auf meine Tabelle sah, und alle 2er verschwunden waren. Das Makro lief in einen Laufzeitfehler. Das begriff ich zuerst nicht, wiederholte den Test. Bis ich begriff das ich die Zahl 2 durch den Wert 5 staendig überschrieben!! - Dann begriff ich die Gefahr für eine umfangreiche Original Datei!!
Wie will das Programm dann bitte die "firstAdresse" wiederfinden, wenn der Wert überschrieben wurde?
Als ich das begriff verstand ich auch das der Frager bitte diesen Code so NICHT verwenden darf. Der killt sich ja im Original wichtige Daten! Sorry, wenn es die Wahrheit ist müssen wir sie als verantwortliche Ratgeber auch offen nennen. Selbst wenn wir zugeben müssen selber Mist gebaut zu haben!
Fehler machen ist menschlich, und ich habe grossen Respekt gerade vor Luschi und onur, weil eur Wissen und eure Programmier Faehigkeiten weit über meinen liegen!! Das erkenne ich ohne jede Diskussion an!
Auch wenn ich nicht die "hellste Kerze" im Herber Forum Kronleuchter bin hat der alte Praktiker seine Nische gefunden.
Trotzdem mache ich auch immer wieder die dümmsten Fehler. Reichen wir uns die HAND ALS KOLLEGEN ...
@Frager - hier mal ein Versuch von mir eine Lösung über MsgBox anzubieten, wobei man mit c.Select die Zelle direkt anspringen kann, damit man sieht was da wirklich drinsteht. Wenn mehrere Werte gesucht werden sollen, evtl. auch in anderen Spalten, evtl. in der gleichen Zeile, kann man das noch mit IF Then auswerten. Dazu müsste ich aber konkret wissen was gesucht werden soll und in welcher Reihenfolge? Bei Text kann man prüfen ob der Anfang oder das Ende übereinstimmen. Varianten im Suchlauf gibt es mehr als genug.
Hilft das weiter? - Sonst helfen wir solange beim Code weiter bis er passt ....
mfg Piet

Sub Makro_als_Todesschleife()
Dim c As Range, Wert As Variant
Dim firstAddress As String
With Worksheets(1).Range("A1:A500")
Wert = 2
Set c = .Find(What:=Wert, LookIn:=xlValues, LookAt:=xlPart, MatchCase:=False)
If Not c Is Nothing Then
firstAddress = c.Address
Do  'Zelle anspringen
c.Select
MsgBox c.Value
Set c = .FindNext(c)
Loop While Not c Is Nothing And firstAddress  c.Address
End If
End With
End Sub

Beliebteste Forumthreads (12 Monate)

13
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Daten aus Excelliste lesen

13 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

13
Beiträge zum Forumthread

Beiträge zu diesem Forumthread