Herbers Excel-Forum - das Archiv
suchen und verarbeiten
Informationen und Beispiele zu den hier genannten Dialog-Elementen:
⇒ TextBox
- suchen und verarbeiten von lucashh vom 21.12.2006 01:22:29
- AW: suchen und verarbeiten - von Franc am 21.12.2006 09:05:19
- AW: suchen und verarbeiten - von lucashh am 22.12.2006 01:05:15
- AW: suchen und verarbeiten - von lucashh am 22.12.2006 01:05:15
 |
Betrifft: suchen und verarbeiten
von: lucashh
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 Subdie 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
 |
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 |
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
| |