Herbers Excel-Forum - das Archiv

suchen und verarbeiten

Informationen und Beispiele zu den hier genannten Dialog-Elementen:
TextBox
Bild

Betrifft: suchen und verarbeiten
von: lucashh

Geschrieben am: 21.12.2006 01:22:29
Guten Morgen zusammen,
nach eingabe in einem textbox1("kennziffer") wird eine abfrage gestartet und das gesuchte wert in textbox2("ID) ausgeworfen.
Private Sub IDSuchen_Change()
Dim suchstring As String
suchstring = kennziffer
Worksheets("Daten").Select
Columns("A:A").Select
Selection.Find(What:=suchstring, After:=ActiveCell, LookIn:=xlFormulas, _
LookAt:=xlWhole, Searchorder:=xlByRows, SearchDirection:=xlNext, _
MatchCase:=False).Activate
ActiveCell.Offset(0, 0).Select
With Application.Selection
ID = .Offset(0, 1).Value 'ID
kennziffer= suchstring
End With
End Sub

die kennziffer stehen in spalte A das gesuchte wert"ID" in spalte B
nun möchte ich zur kontrolle wissen ob das gesuchte wert mehrfach steht
wenn ja soll der bereich spalte b : D markiert wird. zusätzlich soll in den markierten bereich in spalte C kontolliert werden ob da eine 1 steht wenn ja soll der wert in zelle D in textbox3 ausgewiesen wird
könnt Ihr mir dazu tipps oder hilfe geben
Viele grüsse
lucashh
Bild

Betrifft: AW: suchen und verarbeiten
von: Franc

Geschrieben am: 21.12.2006 09:05:19
Was soll denn alles bei mehrfacheintrag markiert werden? Die komplette Spalte? Wenn ja, ergibt das für mich nicht wirklich Sinn. ^^ Oer welchen Sinn hat die Suchfunktion? Eventuell kann man da acuh was anderes machen.
Hier erstmal der Code ohne Markierung der Spalten und es wird auch nur der 1. Eintrag gesucht.
Private Sub IDSuchen_Change()
With Worksheets("Daten").Range("A:A")
Set c = .Find(TextBox1, LookIn:=xlValues)
If Not c Is Nothing Then
TextBox2 = c.Offset(0, 1)
If c.Offset(0, 2) = "1" Then TextBox3 = c.Offset(0, 3)
End If
End With
End Sub

Bild

Betrifft: AW: suchen und verarbeiten
von: lucashh
Geschrieben am: 22.12.2006 01:05:15
hallo franc,
danke für deine beitrag habe mein problem gelöst
gruss
lucashh
 Bild
Excel-Beispiele zum Thema "suchen und verarbeiten"
Zellinhalt suchen und Zelle auswählen Suchbegriff über mehrere Tabellenblätter suchen.
Suchen und weitersuchen Zahl +/- 1 suchen
Ein Zeichen in einer Formel suchen Datum suchen und Wert eintragen
Wert in Tabelle suchen und in UserForm ausgeben Letzte Zelle mit Inhalt suchen
Textdatei nach Begriff durchsuchen und Fundzeile importieren Wert in Array suchen, ohne jedes Datenfeld abzufragen