VBA Suchmaske

[skoppe]

Hallo,

ich brauche natürlich wie immer Eure Hilfe. Ich glaube, dass es gar nicht schwer ist, aber ich stehe auf dem Schlauch

Ich habe eine Tabelle erstellt und dafür die VBA programmiert.


Public Sub SuchenKennzeichen1()
Dim rngTreffer As Range
Dim strSuchbegriff As String
strSuchbegriff = InputBox("Bitte Kennzeichen zusammenhängend eingeben z.b. M-AA299", "Datenbank durchsuchen")
Set rngTreffer = ActiveWorkbook.ActiveSheet.Columns(7).Find(strSuchbegriff, LookIn:=xlValues, _
Lookat:= _
xlWhole)
If strSuchbegriff = vbNullString Then Exit Sub
If Not rngTreffer Is Nothing Then
    rngTreffer.Select
Else
    MsgBox "Suchbegriff " & strSuchbegriff & " nicht gefunden."
End If
End Sub

Funktioniert auch tadellos. Nun möchte ich aber, dass die Suche nicht nur in Colums 7 stattfindet sondern auch in Column 8 .... das geht bestimmt über ElseIf, aber ich bekomme es einfach nicht hin..

Vielen Dank im Voraus.

[Werner.M]

Hallo,

so:

Code:

Set rngTreffer = ActiveWorkbook.ActiveSheet.Columns("G:H").Find(strSuchbegriff, LookIn:=xlValues, Lookat:=xlWhole)

Gruß Werner

[RPP63]

Moin!
Markiere G:H und drücke beherzt Strg+f
Statt in Deine InputBox trägst Du den Suchbegriff schlicht in den Excel-Dialog ein.
Verrätst Du uns, warum Du eine Standard-Funktionalität in eine VBA-Routine auslagern willst, die absolut nix anderes macht als Dein überflüssiger Code?

Gruß Ralf

[MisterBurns]

Wenn man bei den Nummern bleiben möchte, geht auch

Code:

Set rngTreffer = ActiveWorkbook.ActiveSheet.Columns(7).Resize(, 2).Find(strSuchbegriff, LookIn:=xlValues, Lookat:=xlWhole)

@Ralf: Du kennst doch die Antwort bereits...

[skoppe]

Herrlich! Besten Dank!

[skoppe]

@Ralf

Ich wollte es gerne idiotensicher machen. Habe hier so ein paar Spezialisten ..... :20:

Besten Dank für die Hilfe

[RPP63]

Hmmh …
Zunächst mal würde ich niemanden an meine Datei heranlassen, der nicht die absoluten Grundlagen beherrscht!
Schließlich könnte er ja so ziemlich alles in der Datei unwiederbringlich zerstören.
Und im Ernst:
Der Shortcut Strg+f (f wie find) löst in nahezu allen mir bekannten Programmen eine Suche mittels nicht-modalem Dialog auf.

Willste noch so ein paar allgemeingültige Shortcuts wissen (jeweils Strg+ …)?
p wie print
s wie save
c wie copy
x wie … cut  :21: (eher die symbolische Schere)
v wie … paste  :21: (eher der symbolische Trichter)

Wer also ist der Idiot?
Bevor Du Dich echauffierst:
Die aus dem Griechischen abgeleitete Bedeutung ist eher Privatperson.

In diesem Sinne
Gruß Ralf

[skoppe]

Ralf,

vielleicht sind nicht alle solche Excel-Experten wie Du und dafür gibt es doch auch dieses Forum oder? Um Fragen stellen zu können, damit diese beantwortet werden.

Also vielen Dank für Deine Erklärung (besonders die ShortCuts, totales Neuland! )

Keine Sorge, bin intelligent genug um so einen Post nicht ernst zu nehmen.

In diesem Sinne!

[RPP63]

DU machst den Fehler, den Anwendern die Kompetenz abzusprechen.
Sollte es tatsächlich so sein, dann solltest Du sie schulen.
Schließlich lassen sich Makros relativ problemlos auch von Idioten abschalten.
Dann hilft Dir Deine Intelligenz erst mal nüscht …