Zuviel Werbung? - > Hier kostenlos beim SPS-Forum registrieren

Seite 1 von 2 12 LetzteLetzte
Ergebnis 1 bis 10 von 15

Thema: Suchmakro in Excel (mit Button)

  1. #1
    Registriert seit
    26.07.2005
    Beiträge
    454
    Danke
    22
    Erhielt 1 Danke für 1 Beitrag

    Standard


    Zuviel Werbung?
    -> Hier kostenlos registrieren
    Hallo,
    ich möchte in einer Exteltabelle (nur 1 Arbeitsblatt) einfach nach Bergriffen suchen, die in verschieden Felder händisch eingetragen wurden (teilweise auch über Drop-Down Auswahlen).
    Am oberen Rand des Blattes sollte also ein Button sein mit Label "Suchen", der eine Suchmaske öffnet, wo man einen Begriff eintragen kann. Dieser Begriff soll dann im gesamten Arbeitsblatt gesucht werden.
    Ich habe mit VB und Makros noch nicht so sehr viel Erfahrung, würde mich aber freuen, wenn ihr mir da weiterhelfen könntet. Vielleicht gibt es ja eine "einfache" Lösung.
    Danke
    Oli
    Press "Play" on Tape
    -------------------------------
    TwinCAT
    Step7
    Barber-Colman MacoDS
    Schneider Momentum SPS
    Wonderware 8.0
    Concept 2.2 SR2
    Vipa
    Allen-Bradley
    Zitieren Zitieren Suchmakro in Excel (mit Button)  

  2. #2
    Registriert seit
    08.08.2007
    Ort
    Dresden
    Beiträge
    9.648
    Danke
    1.059
    Erhielt 2.046 Danke für 1.627 Beiträge

    Standard

    Code:
    *
    Sub suchen()
    
    Dim rngFind As Range
    Dim strTitel As String
    'suchdialog kreieren
    strTitel = InputBox("Suche nach:", "Suchbegriff eingeben", , 5, 5)
    'zu durchsuchenden spaltenumfang angeben
    Set rngFind = Columns("A:H").Find(strTitel, LookIn:=xlFormulas)
    'zur stelle springen oder message ausgeben
    If Not rngFind Is Nothing Then
        rngFind.Select
    Else
        MsgBox "Es wurde nichts gefunden"
    End If
    
    End Sub
    [SIGNATUR]
    Ironie setzt Intelligenz beim Empfänger voraus.
    [/SIGNATUR]

  3. #3
    Registriert seit
    08.08.2007
    Ort
    Dresden
    Beiträge
    9.648
    Danke
    1.059
    Erhielt 2.046 Danke für 1.627 Beiträge

    Standard

    die Find-Methode kannst du natürlich noch anpassen und ausbauen - case-sensitiv und so weiter ... siehe dazu auch hier: http://www.ozgrid.com/VBA/find-method.htm
    Geändert von vierlagig (18.01.2010 um 10:35 Uhr)
    [SIGNATUR]
    Ironie setzt Intelligenz beim Empfänger voraus.
    [/SIGNATUR]

  4. #4
    Registriert seit
    08.08.2007
    Ort
    Dresden
    Beiträge
    9.648
    Danke
    1.059
    Erhielt 2.046 Danke für 1.627 Beiträge

    Standard

    eine ganz böse möglichkeit ist auch folgende:

    Code:
    *
    Sub suchen()
        Application.SendKeys ("^f")
    End Sub
    [SIGNATUR]
    Ironie setzt Intelligenz beim Empfänger voraus.
    [/SIGNATUR]

  5. #5
    olitheis ist offline Erfahrener Benutzer
    Themenstarter
    Registriert seit
    26.07.2005
    Beiträge
    454
    Danke
    22
    Erhielt 1 Danke für 1 Beitrag

    Standard

    Danke für Deine schnell AW.
    Wie gesagt, ich bin quasi ein Noob, was diese Codes angeht. Könntest Du mir evtl. die Vorgehensweise zum erstellen eines solchen Buttons mit Suchfunktion erklären (step-by-step)?
    Danke
    Press "Play" on Tape
    -------------------------------
    TwinCAT
    Step7
    Barber-Colman MacoDS
    Schneider Momentum SPS
    Wonderware 8.0
    Concept 2.2 SR2
    Vipa
    Allen-Bradley

  6. #6
    Registriert seit
    08.08.2007
    Ort
    Dresden
    Beiträge
    9.648
    Danke
    1.059
    Erhielt 2.046 Danke für 1.627 Beiträge

    Standard

    welche excel-version?
    [SIGNATUR]
    Ironie setzt Intelligenz beim Empfänger voraus.
    [/SIGNATUR]

  7. #7
    olitheis ist offline Erfahrener Benutzer
    Themenstarter
    Registriert seit
    26.07.2005
    Beiträge
    454
    Danke
    22
    Erhielt 1 Danke für 1 Beitrag

    Standard

    Excel 2003
    Press "Play" on Tape
    -------------------------------
    TwinCAT
    Step7
    Barber-Colman MacoDS
    Schneider Momentum SPS
    Wonderware 8.0
    Concept 2.2 SR2
    Vipa
    Allen-Bradley

  8. #8
    Registriert seit
    08.08.2007
    Ort
    Dresden
    Beiträge
    9.648
    Danke
    1.059
    Erhielt 2.046 Danke für 1.627 Beiträge

    Standard

    Alt+F11
    Einfügen -> Modul
    Quellcode einfügen (ohne * )
    speichern, editor schließen

    in der gewünschten tabelle:
    den button reinmalen (habe hier nur ein englisches excel2003, da ist es die toolbar "Forms")
    den button im auftauchenden dialog mit der eingefügten sub verknüpfen
    fertig!
    [SIGNATUR]
    Ironie setzt Intelligenz beim Empfänger voraus.
    [/SIGNATUR]

  9. Folgender Benutzer sagt Danke zu vierlagig für den nützlichen Beitrag:

    olitheis (18.01.2010)

  10. #9
    olitheis ist offline Erfahrener Benutzer
    Themenstarter
    Registriert seit
    26.07.2005
    Beiträge
    454
    Danke
    22
    Erhielt 1 Danke für 1 Beitrag

    Standard

    PERFEKT!!!
    Danke Dir
    Press "Play" on Tape
    -------------------------------
    TwinCAT
    Step7
    Barber-Colman MacoDS
    Schneider Momentum SPS
    Wonderware 8.0
    Concept 2.2 SR2
    Vipa
    Allen-Bradley

  11. #10
    olitheis ist offline Erfahrener Benutzer
    Themenstarter
    Registriert seit
    26.07.2005
    Beiträge
    454
    Danke
    22
    Erhielt 1 Danke für 1 Beitrag

    Standard


    Zuviel Werbung?
    -> Hier kostenlos registrieren
    ich nochmal. Wie könnte ich denn jetzt die Suche auf nur eine Spalte oder einen bestimmten bereich eingrenzen?
    Danke nochmal
    Press "Play" on Tape
    -------------------------------
    TwinCAT
    Step7
    Barber-Colman MacoDS
    Schneider Momentum SPS
    Wonderware 8.0
    Concept 2.2 SR2
    Vipa
    Allen-Bradley

Ähnliche Themen

  1. Blinkender 3D Button
    Von Carsten77 im Forum HMI
    Antworten: 2
    Letzter Beitrag: 24.10.2011, 09:48
  2. Google +1 Button
    Von Xandriana im Forum Stammtisch
    Antworten: 5
    Letzter Beitrag: 08.08.2011, 09:40
  3. IFix3.5 Button
    Von Janosch im Forum HMI
    Antworten: 1
    Letzter Beitrag: 23.06.2011, 00:38
  4. Button mit Passwortabfrage
    Von PhGruber im Forum HMI
    Antworten: 2
    Letzter Beitrag: 22.02.2010, 14:34
  5. Über WinCC einen Button in Excel drücken
    Von Anfängerproggi im Forum HMI
    Antworten: 3
    Letzter Beitrag: 26.07.2007, 11:17

Lesezeichen

Berechtigungen

  • Neue Themen erstellen: Nein
  • Themen beantworten: Nein
  • Anhänge hochladen: Nein
  • Beiträge bearbeiten: Nein
  •