Thema Datum  Von Nutzer Rating
Antwort
Rot Nach Suchdurchlauf gefundene Zelle aktivieren
 09.01.2017 14:35:53 Dude
NotSolved
09.01.2017 14:54:32 Werner
NotSolved
09.01.2017 15:52:03 Dude
NotSolved
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:
Dude		 Datum:
09.01.2017 14:35:53		 Views:
1322		 Rating:
     
Antwort:
  Ja
Thema:
Nach Suchdurchlauf gefundene Zelle aktivieren

Hey Leute.
Ich starte ein Makro, welches ein anderes Worksheet durchsucht und würde gerne die gefundene Zelle selektieren ohne zu dem anderen Worksheet zu wechseln. Bisher habe ich nur Lösungen gefunden, bei der ich auf das besagte andere Sheet wechseln musste, was ich vermeiden will. Mein Code sieht bisher so aus, funktioniert aber leider nicht:

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
    LetzteZeile = ws2.Range("B65536").Row
    
    For i = 5 To LetzteZeile
        If ws2.Cells(i, 2) = such Then
           MsgBox "Wert gefunden"
           ws2.Cells(i, 2).Select
        End If
    Next i
End Sub


 

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
Rot Nach Suchdurchlauf gefundene Zelle aktivieren
 09.01.2017 14:35:53 Dude
NotSolved
09.01.2017 14:54:32 Werner
NotSolved
09.01.2017 15:52:03 Dude
NotSolved
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