3
Excel Suchbutton
Hallo,
ich habe mir ein kleines Modul erstellt, welches in einer bestimmten Spalte nach Werten sucht.
Es funktioniert auch wenn es sich nicht um Verweise in der Spalte handelt.
Sobald in der Spalte Verweise zu anderen Orten stehen findet er die angezeigten Werte nicht.
Sub Suchen()
Dim rngFind As Range
Dim strTitel As String
'suchdialog kreieren
strTitel = InputBox("Artikel-Nr.:", "Bitte geben Sie den gesuchten Artikel ein!")
'zu durchsuchenden spaltenumfang angeben
Set rngFind = Columns("A").Find(strTitel, LookIn:=xlFormulas, LookAt:=xlWhole)
'zur stelle Springen oder message ausgeben
If Not rngFind Is Nothing Then
rngFind.Select
Else
MsgBox "Artikel wurde nicht gefunden"
End If
End Sub
MfG
Florian86
ich habe mir ein kleines Modul erstellt, welches in einer bestimmten Spalte nach Werten sucht.
Es funktioniert auch wenn es sich nicht um Verweise in der Spalte handelt.
Sobald in der Spalte Verweise zu anderen Orten stehen findet er die angezeigten Werte nicht.
Sub Suchen()
Dim rngFind As Range
Dim strTitel As String
'suchdialog kreieren
strTitel = InputBox("Artikel-Nr.:", "Bitte geben Sie den gesuchten Artikel ein!")
'zu durchsuchenden spaltenumfang angeben
Set rngFind = Columns("A").Find(strTitel, LookIn:=xlFormulas, LookAt:=xlWhole)
'zur stelle Springen oder message ausgeben
If Not rngFind Is Nothing Then
rngFind.Select
Else
MsgBox "Artikel wurde nicht gefunden"
End If
End Sub
MfG
Florian86
Share on Facebook
Share on Twitter
Share on Reddit
Share on LinkedinPlease also mark the comments that contributed to the solution of the article
Content-Key: 266946
Url: https://administrator.de/contentid/266946
Printed on: April 19, 2024 at 13:04 o'clock
3 Comments
Latest comment
Hallo!
Wie du schon richtig erkannt hast, sind das Verweise - der Zelleninhalt sieht daher anders aus als die Anzeige.
Du kannst eben nur nach Zelleninhalt suchen.
Wie sehen die Verweise genau aus? Könnte man diese nicht durch Fixwerte ersetzen?
Alternativ kannst du eine weitere Spalte einfügen und darin den Wert (Formelergebnis) der Zelle speichern.
Somit steht in A2 dann der richtige Wert!
Gruß
Eisbein
Wie du schon richtig erkannt hast, sind das Verweise - der Zelleninhalt sieht daher anders aus als die Anzeige.
Du kannst eben nur nach Zelleninhalt suchen.
Wie sehen die Verweise genau aus? Könnte man diese nicht durch Fixwerte ersetzen?
Alternativ kannst du eine weitere Spalte einfügen und darin den Wert (Formelergebnis) der Zelle speichern.
Range("A2").Value = Range("A1").Value Somit steht in A2 dann der richtige Wert!
Gruß
Eisbein
Hallo Florian86!
Vielleicht klappts ja so:
Grüße Dieter
Vielleicht klappts ja so:
| LookIn:=xlValues |
Grüße Dieter
Danke...
lg
Florian86
lg
Florian86
