MS-Office-Forum
Google
   

Zurück   MS-Office-Forum > Microsoft Office > Microsoft Excel
Registrieren Forum Hilfe Alle Foren als gelesen markieren

Banner und Co.

Antworten
Ads Der Renner, 11 Entwicklertools für Access, Tipps & Trick und offene Datenbanken zum einzigartigen Preis.
Themen-Optionen Ansicht
Alt 18.01.2018, 20:04   #1
pointi_1983
Neuer Benutzer
Neuer Benutzer
Standard VBA - Einfache Suchfunktion in VBA

Hallo liebe Forumsgemeinde,

ich suche ein einfaches VBA-Makro welches mir folgendes leistet:

In einer Arbeitsmappe habe ich zwei Blätter. Eines ist die Übersicht und eines ein Datenblatt. In der Übersicht möchte ich eine Suche einbinden, welche auf das Datenblatt zugreift. dh

1. Suchmaske mit Eingabe xy
2. Suche im Datenblatte Spalte A
3. Rückgabe in der Übersicht die gefundene Zeile

Kennt jemand von euch so ein Beispielmakro? Ich denke so etwas sollte ja öfters benötigt werden. Danke und lg pointi
pointi_1983 ist offline  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Alt 18.01.2018, 21:06   #2
Werner.M
Neuer Benutzer
Neuer Benutzer
Standard

Hallo,

und was wird gesucht? Text, Zahlen, Datum?

Gruß Werner
Werner.M ist gerade online  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Alt 18.01.2018, 21:16   #3
Werner.M
Neuer Benutzer
Neuer Benutzer
Standard

Hallo,

zum Beispiel so:
Code:

Option Explicit

Public Sub Suche()
Dim strSuch As Variant, raFund As Range

strSuch = InputBox("Bitte Suchbegriff eingeben:", "Suche")
If strSuch = vbNullString Then Exit Sub
With Worksheets("Tabelle2")
    Set raFund = .Columns(1).Find(what:=strSuch, LookIn:=xlValues, lookat:=xlWhole)
    If Not raFund Is Nothing Then
        MsgBox strSuch & " gefunden in Zelle " & raFund.Address(0, 0)
    Else
        MsgBox strSuch & " nicht vorhanden."
    End If
End With

Set raFund = Nothing
End Sub
Gruß Werner
Werner.M ist gerade online  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Alt 19.01.2018, 13:30   #4
pointi_1983
Threadstarter Threadstarter
Neuer Benutzer
Neuer Benutzer
Standard

Danke. das sieht ja schon sehr gut aus. Ich suche nach Text...

Wie müsste ich den code anpassen nach dem IF damit ich in diese Zeile springe?

Danke und lg Pointi
pointi_1983 ist offline  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Alt 19.01.2018, 13:46   #5
Werner.M
Neuer Benutzer
Neuer Benutzer
Standard

Hallo,

Code:

Option Explicit

Public Sub Suche()
Dim strSuch As Variant, raFund As Range

strSuch = InputBox("Bitte Suchbegriff eingeben:", "Suche")
If strSuch = vbNullString Then Exit Sub
With Worksheets("Tabelle2")
    Set raFund = .Columns(1).Find(what:=strSuch, LookIn:=xlValues, lookat:=xlWhole)
    If Not raFund Is Nothing Then
        Application.Goto Range(raFund.Address), True
    Else
        MsgBox strSuch & " nicht vorhanden."
    End If
End With

Set raFund = Nothing
End Sub
Gruß Werner
Werner.M ist gerade online  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Alt 19.01.2018, 14:07   #6
pointi_1983
Threadstarter Threadstarter
Neuer Benutzer
Neuer Benutzer
Standard

Funktioniert perfekt, Danke.
pointi_1983 ist offline  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Ads
Antworten


Aktive Benutzer in diesem Thema: 1 (Registrierte Benutzer: 0, Besucher: 1)
 
Themen-Optionen
Ansicht

Forumregeln
Es ist Ihnen nicht erlaubt, neue Themen zu verfassen.
Es ist Ihnen nicht erlaubt, auf Beiträge zu antworten.
Es ist Ihnen nicht erlaubt, Anhänge anzufügen.
Es ist Ihnen nicht erlaubt, Ihre Beiträge zu bearbeiten.

vB Code ist An.
Smileys sind An.
[IMG] Code ist An.
HTML-Code ist An.
Gehe zu


Alle Zeitangaben in WEZ +1. Es ist jetzt 20:49 Uhr.


Partner und Co.
Access-Paradies -Alles rund um die Datenbank Microsoft Access -Code -Programme-Tools -Tipps   Kostenlose Tipps & Tricks, Downloads und Programme   www.kulpa-online.com - Tipps - Tricks - Tutorials - Meinungen - Downloads uvm...   vb@rchiv · Willkommen in der Welt der VB Programmierung   Access-Garhammer - Hier finden Sie jede Menge Beispiel-Datenbanken zu Access und mehr ...   mcseboard.de   Die Top Seite für Excel-VBA-Makros uvm.

Powered by: vBulletin Version 3.6.2 (Deutsch)
Copyright ©2000 - 2018, Jelsoft Enterprises Ltd.

Copyright ©2000-2010 MS-Office-Forum. Alle Rechte vorbehalten.
Copyright ©Design: Manuela Kulpa ©Rechte: Günther Kramer
Eine Verwendung der Inhalte in anderen Publikationen, auch auszugsweise,
ist ohne ausdrückliche Zustimmung der Autoren nicht gestattet.
Beachten Sie bitte auch unsere Nutzungsbedingungen.