Office Forum
www.Office-Loesung.de
Access :: Excel :: Outlook :: PowerPoint :: Word :: Office :: Wieder Online ---> provisorisches Office Forum <-
Suche in einer Excel Tabelle mit Makro
zurück: Per WhatsThisButton Erignis auslösen weiter: Abfrage nur wenn Ergebnis falsch Unbeantwortete Beiträge anzeigen
Neues Thema eröffnen   Neue Antwort erstellen     Status: Antwort Facebook-Likes Diese Seite Freunden empfehlen
Zu Browser-Favoriten hinzufügen
Autor Nachricht
Krümel1234
Neuling


Verfasst am:
12. Jun 2011, 22:46
Rufname:
Wohnort: Augsburg

Suche in einer Excel Tabelle mit Makro - Suche in einer Excel Tabelle mit Makro

Nach oben
       Version: Office 2007

Hallo,
bin etwas aus der Übung. Ich habe eine Excel Tabelle und möchte mit Hilfe von Makros bestimmte Sachen aus der Tabelle gesucht bekommen.
In diesem Fall soll in einem Textfeld ein Suchbegriff eingegeben werden. Der Button startet die Suche und das Ergebniss soll in einem Label angezeigt werden.
Als Beispiel:
Vorname Name Personalität
Hans Meier schüchtern
Karl Huber faul

nun soll, wenn ich in das Textfeld schüchtern eingebe, alle Vornamen und Nachnamen im Label angezeigt werden, die die gleiche persönlichkeit haben.
Ist sowas überhaupt möglich?

Danke schonmal für die Hilfe
DK
Anwender


Verfasst am:
12. Jun 2011, 23:36
Rufname:

AW: Suche in einer Excel Tabelle mit Makro - AW: Suche in einer Excel Tabelle mit Makro

Nach oben
       Version: Office 2007

Hallo,

die Informationen, die Du geliefert hast sind etwas dürftig. Aber vielleicht kannst Du damit was anfangen:

Code:
Sub Suche()

Dim a, b As String

a = InputBox("gesuchtes Attribut")

For i = 1 To 10
    If Cells(i, 3) = a Then
        b = UserForm1.Label1.Caption
        UserForm1.Label1.Caption = b & "; " & Sheets("Tabelle1").Cells(i, 2).Value & ", " & Sheets("Tabelle1").Cells(i, 1).Value
    End If
Next i

End Sub


Sowohl die Suche als auch das Label, in dem die Ergebnisse angezeigt werden sollen, habe ich in eine UserForm gepackt.

Gruß,
DK

_________________
Est Sularus oth Mithas!
slowboarder
Im Profil kannst Du frei den Rang ändern


Verfasst am:
12. Jun 2011, 23:52
Rufname:


AW: Suche in einer Excel Tabelle mit Makro - AW: Suche in einer Excel Tabelle mit Makro

Nach oben
       Version: Office 2007

Hi

für den Fall, daß du immer nur nach ganzen Suchbegriffen suchst:

Code:
Private Sub CommandButton1_Click()
Dim Suchbegriff As String
Dim Zelle As Range
Suchbegriff = "schüchtern"
Label1.Caption = ""
If WorksheetFunction.CountIf(Columns(3), Suchbegriff) = 0 Then
    Label1.Caption = "nicht gefunden"
Else
    Columns(3).Replace Suchbegriff, True, lookat:=xlWhole
    For Each Zelle In Columns(3).SpecialCells(xlCellTypeConstants, 4)
        Label1.Caption = Label1.Caption & Zelle.Offset(0, -2) & ", " & Zelle.Offset(0, -1) & Chr(10)
    Next
    Columns(3).Replace True, Suchbegriff
End If
       
End Sub


gruß, daniel
Neues Thema eröffnen   Neue Antwort erstellen Alle Zeiten sind
GMT + 1 Stunde

Diese Seite Freunden empfehlen

Seite 1 von 1
Gehe zu:  
Du kannst Beiträge in dieses Forum schreiben.
Du kannst auf Beiträge in diesem Forum antworten.
Du kannst deine Beiträge in diesem Forum nicht bearbeiten.
Du kannst deine Beiträge in diesem Forum nicht löschen.
Du kannst an Umfragen in diesem Forum nicht mitmachen.
Du kannst Dateien in diesem Forum nicht posten
Du kannst Dateien in diesem Forum herunterladen

Verwandte Themen
Forum / Themen   Antworten   Autor   Aufrufe   Letzter Beitrag 
Dieses Thema ist gesperrt, du kannst keine Beiträge editieren oder beantworten. Excel Formeln: Anzahl bei 2 Bedingungen aus Tabelle berechnen 1 Satanico 2570 20. Okt 2004, 13:31
steve1da Anzahl bei 2 Bedingungen aus Tabelle berechnen
Keine neuen Beiträge Excel Formeln: Suche Formel (zählenwenn mit mehreren Krit - Summenprodukt) 17 akm1978 4080 02. Okt 2004, 23:27
Gast Suche Formel (zählenwenn mit mehreren Krit - Summenprodukt)
Keine neuen Beiträge Excel Formeln: bestimmte Datensätze selektieren / Tabelle auswerten 0 tc_der_echte 1749 23. Sep 2004, 11:00
tc_der_echte bestimmte Datensätze selektieren / Tabelle auswerten
Keine neuen Beiträge Excel Formeln: kursive Zahlen mit Makro berechnen? 2 abidmon 827 10. Sep 2004, 15:52
abidmon kursive Zahlen mit Makro berechnen?
Keine neuen Beiträge Excel Formeln: werte in neue tabelle mit neuen spalten kopieren 1 Timo 1723 03. Sep 2004, 07:37
ae werte in neue tabelle  mit neuen spalten kopieren
Keine neuen Beiträge Excel Formeln: sortieren einer Tabelle 6 ae 2655 02. Sep 2004, 15:04
fl618 sortieren einer Tabelle
Keine neuen Beiträge Excel Formeln: Suche Formel für Fussballtipp 2 Kiko 2800 22. Aug 2004, 13:03
Big Earn Suche Formel für Fussballtipp
Keine neuen Beiträge Excel Formeln: Tabelle einer Internetseite auslesen 1 Andy_beginner 1931 14. Jul 2004, 23:19
Manfred Bartak Tabelle einer Internetseite auslesen
Keine neuen Beiträge Excel Formeln: Tabelle Tippgemeinschaft 2 Hallenhandball 2259 30. Jun 2004, 15:37
BRU222 Tabelle Tippgemeinschaft
Keine neuen Beiträge Excel Formeln: Suche Formel für einstellige gerade Zufallszahl 1 milai 1331 28. Mai 2004, 08:39
steve1da Suche Formel für einstellige gerade Zufallszahl
Keine neuen Beiträge Excel Formeln: Tabelle filtern mit 2 Kriterien 2 Gast 717 20. Apr 2004, 11:56
Gast Tabelle filtern mit 2 Kriterien
Keine neuen Beiträge Excel Formeln: 2 Tabellen vergleichen und Werte in zweiter Tabelle ergänzen 2 Gast 1218 14. Apr 2004, 15:39
Gast 2 Tabellen vergleichen und Werte in zweiter Tabelle ergänzen
 

----> Diese Seite Freunden empfehlen <------ Impressum - Besuchen Sie auch: Word VBA