Thema
|
Datum
|
Von Nutzer
|
Rating
|
Antwort
|
|
30.06.2011 15:41:09 |
Tina |
|
|
Wert aus Formular übernehmen + Such Funktion |
30.06.2011 15:53:23 |
Till |
|
|
|
30.06.2011 17:51:56 |
Gast43208 |
|
|
|
30.06.2011 17:52:44 |
Tina |
|
|
|
30.06.2011 20:31:02 |
Till |
|
|
|
04.07.2011 13:39:15 |
Tina |
|
|
|
04.07.2011 14:32:35 |
Till |
|
|
|
06.07.2011 13:09:01 |
Tina |
|
|
|
06.07.2011 17:12:37 |
Till |
|
|
|
06.07.2011 17:30:55 |
Tina |
|
|
|
06.07.2011 17:34:55 |
Tina |
|
|
|
07.07.2011 19:17:57 |
Dekor |
|
|
Von:
Till |
Datum:
30.06.2011 15:53:23 |
Views:
1003 |
Rating:
|
Antwort:
|
Thema:
Wert aus Formular übernehmen + Such Funktion |
Option Explicit
Sub test()
NameSuchen "Helge"
End Sub
Private Sub NameSuchen(GesuchterName$)
Dim rng As Range, AV
Dim R&, C&, LR&
LR = Cells(Rows.Count, 1).End(xlUp).Row
Set rng = Range("A1:C" & LR)
AV = rng.Value
For R = 1 To UBound(AV)
For C = 1 To 2
If AV(R, C) = GesuchterName Then
AV(R, 3) = GesuchterName
End If
Next
Next
rng.Value = AV
End Sub
Statt Helge musst du dann im Funktionsaufruf "textbox1.text" oder sowas eingeben, jenach dem wie dein Feld da heißt...
Gruß
Till
|
- Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
- Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
- Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
- Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
- Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei
Antworten auf Ihren Beitrag zu benachrichtigen
Bitte geben Sie ein aussagekräftiges Thema an.
Bitte geben Sie eine gültige Email Adresse ein!
- Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
- Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
- Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
- Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
- Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei
Antworten auf Ihren Beitrag zu benachrichtigen
Thema
|
Datum
|
Von Nutzer
|
Rating
|
Antwort
|
|
30.06.2011 15:41:09 |
Tina |
|
|
Wert aus Formular übernehmen + Such Funktion |
30.06.2011 15:53:23 |
Till |
|
|
|
30.06.2011 17:51:56 |
Gast43208 |
|
|
|
30.06.2011 17:52:44 |
Tina |
|
|
|
30.06.2011 20:31:02 |
Till |
|
|
|
04.07.2011 13:39:15 |
Tina |
|
|
|
04.07.2011 14:32:35 |
Till |
|
|
|
06.07.2011 13:09:01 |
Tina |
|
|
|
06.07.2011 17:12:37 |
Till |
|
|
|
06.07.2011 17:30:55 |
Tina |
|
|
|
06.07.2011 17:34:55 |
Tina |
|
|
|
07.07.2011 19:17:57 |
Dekor |
|
|