Registriert seit: 04.02.2019
Version(en): 2010
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.
Registriert seit: 05.09.2017
Version(en): 2013
Hallo,
so:
Code:
Set rngTreffer = ActiveWorkbook.ActiveSheet.Columns("G:H").Find(strSuchbegriff, LookIn:=xlValues, Lookat:=xlWhole)
Gruß Werner
Folgende(r) 1 Nutzer sagt Danke an Werner.M für diesen Beitrag:1 Nutzer sagt Danke an Werner.M für diesen Beitrag 28
• skoppe
Registriert seit: 12.10.2014
Version(en): 365 Insider (32 Bit)
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
Gib einem Mann einen Fisch und du ernährst ihn für einen Tag.
Lehre einen Mann zu fischen und du ernährst ihn für sein Leben. (Konfuzius)
Folgende(r) 1 Nutzer sagt Danke an RPP63 für diesen Beitrag:1 Nutzer sagt Danke an RPP63 für diesen Beitrag 28
• elamigo
Registriert seit: 02.05.2018
Version(en): Excel 365 & 2016
21.02.2019, 13:03
(Dieser Beitrag wurde zuletzt bearbeitet: 21.02.2019, 13:04 von 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...
Schöne Grüße
Berni
Registriert seit: 04.02.2019
Version(en): 2010
Registriert seit: 04.02.2019
Version(en): 2010
@Ralf
Ich wollte es gerne idiotensicher machen. Habe hier so ein paar Spezialisten ..... :20:
Besten Dank für die Hilfe
Folgende(r) 1 Nutzer sagt Danke an skoppe für diesen Beitrag:1 Nutzer sagt Danke an skoppe für diesen Beitrag 28
• elamigo
Registriert seit: 12.10.2014
Version(en): 365 Insider (32 Bit)
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
Gib einem Mann einen Fisch und du ernährst ihn für einen Tag.
Lehre einen Mann zu fischen und du ernährst ihn für sein Leben. (Konfuzius)
Registriert seit: 04.02.2019
Version(en): 2010
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!
Registriert seit: 12.10.2014
Version(en): 365 Insider (32 Bit)
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 …
Gib einem Mann einen Fisch und du ernährst ihn für einen Tag.
Lehre einen Mann zu fischen und du ernährst ihn für sein Leben. (Konfuzius)
Folgende(r) 1 Nutzer sagt Danke an RPP63 für diesen Beitrag:1 Nutzer sagt Danke an RPP63 für diesen Beitrag 28
• skoppe