Thema Datum  Von Nutzer Rating
Antwort
09.01.2017 14:35:53 Dude
NotSolved
09.01.2017 14:54:32 Werner
NotSolved
09.01.2017 15:52:03 Dude
NotSolved
Blau Nach Suchdurchlauf gefundene Zelle aktivieren
 09.01.2017 18:15:23 Werner
NotSolved
10.01.2017 09:37:58 Dude
NotSolved
10.01.2017 11:53:45 Werner
NotSolved
10.01.2017 12:41:37 Dude
NotSolved
10.01.2017 15:54:33 Werner
Solved
11.01.2017 09:43:25 Dude
NotSolved
11.01.2017 10:57:43 Gast3309
NotSolved
11.01.2017 11:14:32 Werner
NotSolved
11.01.2017 11:37:18 Dude
Solved
11.01.2017 11:58:00 Werner
Solved

Ansicht des Beitrags:
Von:
Werner		 Datum:
09.01.2017 18:15:23		 Views:
727		 Rating:
     
Antwort:
  Ja
Thema:
Nach Suchdurchlauf gefundene Zelle aktivieren

Hallo,

dazu brauchst du die Zelle doch nicht zu selektieren.

Private Sub Search0_Click()
 Dim wb As Workbook
    Dim ws1 As Worksheet
    Dim ws2 As Worksheet
    Dim such As String, LetzteZeile As Long, i As Long
     
    Set wb = ActiveWorkbook
    Set ws1 = wb.Worksheets("Übersicht")
    Set ws2 = wb.Worksheets("Daten")
     
    such = UserForm1.TextBox1.Value

    With ws2
    LetzteZeile = .Cells(.Rows.Count, 2).End(xlUp).Row 'letzte Zeile in Spalte 2
     
    For i = 5 To LetzteZeile
        If .Cells(i, 2) = such Then
           MsgBox "Wert gefunden"
          UserForm1.TextBox2 = .Cells(i, 1) 'Wert aus ws2 Fundreihe Spalte A in TextBox2
          UserForm1.TextBox3 = .Cells(i, 2) 'Wert aus ws2 Fundreihe Spalte B in TextBox3
          Exit For
        End If
    Next i
    End With
End Sub

 

Nur als Beispiel, die TextBoxen für das Einlesen der Daten musst du halt noch an deine Bedürfnisse anpassen.

 

Gruß Werner

Ihre Antwort
  • 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: Name: Email:



  • 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
09.01.2017 14:35:53 Dude
NotSolved
09.01.2017 14:54:32 Werner
NotSolved
09.01.2017 15:52:03 Dude
NotSolved
Blau Nach Suchdurchlauf gefundene Zelle aktivieren
 09.01.2017 18:15:23 Werner
NotSolved
10.01.2017 09:37:58 Dude
NotSolved
10.01.2017 11:53:45 Werner
NotSolved
10.01.2017 12:41:37 Dude
NotSolved
10.01.2017 15:54:33 Werner
Solved
11.01.2017 09:43:25 Dude
NotSolved
11.01.2017 10:57:43 Gast3309
NotSolved
11.01.2017 11:14:32 Werner
NotSolved
11.01.2017 11:37:18 Dude
Solved
11.01.2017 11:58:00 Werner
Solved