Excel - VBA-Problem

Impressum | Werbung

Geizhals » Forum » Programmierung »

Excel - VBA-Problem (2 Beiträge, 87 Mal gelesen)

Top-100 | Fresh-100

Du bist nicht angemeldet. [ Login/Registrieren ]

Hi!

Ich würde Excel gerne dazu bewegen, per Makro einen per Input-Befehl erhaltenen Suchbegriff in einem Datenblatt zu suchen, diesen gefundenen Wert in einem zweiten Datenblatt anzuzeigen, und in weiterer Folge noch (falls vorhanden) weitere gleiche Fundstellen abzuklappern, um auch diese nach der Reihe anzuzeigen.

Nun gut. Ein kleines Stück ist mir ja schon gelungen. Aber nur ein kleines....

Das zweiten Datenblatt (dort werden die Ergebnisse angezeigt), beinhaltet ein Listenfeld in welchem per Index (A2:B5000) jene ersten beiden Spalten des durchsuchten Datenblattes angeführt sind.

Bis dato ist es mir nur gegklückt, den ersten Schritt - also Input - suchen - im 2. Datenblatt anzeigen - zu bewältigen. Weitere eventuelle Fundstellen zeigt mein Programm jedoch nicht an....

Vielleicht habt ihr eine Lösung,  und zur besseren Verständnis meines Kauderwelchs, habe ich auch meinen jetztigen Code angeführt:
----------------------------------------------
Sub Auswahl()

Dim gZelle As Range, sBegriff As String

sBegriff = InputBox("Bitte Suchbegriff eingeben:", _
    Application.UserName)
If sBegriff = "" Then Exit Sub

Sheets("Datensatz").Select

Set gZelle = ActiveSheet.Columns("A:K").Find(sBegriff)

If gZelle Is Nothing Then
    Beep
    MsgBox "Suchbegriff konnte nicht gefunden werden!", , Application.UserName
    Sheets("Person suchen").Select
    Range("e2").Select
    Exit Sub
End If

Sheets("Person suchen").Select
Range("c2").Select
ActiveCell.FormulaR1C1 = gZelle.Row - 1
Range("e2").Select

End Sub
----------------------------------------------
Vielen Dank für Eure Hilfe!

SunnyHill.

Re: Excel - VBA-Problem (Codename 47 am 09.02.2006, 03:28:50)

Dieses Forum ist eine frei zugängliche Diskussionsplattform.
Der Betreiber übernimmt keine Verantwortung für den Inhalt der Beiträge und behält sich das Recht vor, Beiträge mit rechtswidrigem oder anstößigem Inhalt zu löschen.
Datenschutzerklärung