Supportnet / Forum / Tabellenkalkulation
Werte suchen
Frage
Hi
Hat jemand eine Idee, wie man aus einer Tabellenspalte einen von mir gesuchten Wert heraussuchen kann.
Danke im Voraus!
Antwort 1 von Saarbauer
Hallo,
es gibt verschiedene Möglichkeiten
1. Befehl "Suchen"
2. Automatisch Filter
3. Filter
4. Bedingte Formatierung
5. Suchen mit Inputbox
um auf die schnelle einige zu nennen
Welche in deinem Fall am günstigsten ist, kann man anhand der Angaben nicht sagen.
Gruß
Helmut
es gibt verschiedene Möglichkeiten
1. Befehl "Suchen"
2. Automatisch Filter
3. Filter
4. Bedingte Formatierung
5. Suchen mit Inputbox
um auf die schnelle einige zu nennen
Welche in deinem Fall am günstigsten ist, kann man anhand der Angaben nicht sagen.
Gruß
Helmut
Antwort 2 von Cell
Hi!
1. Vorschläge sind super!
2. Um mein Anliegen zu konkretisieren:
Ich möchte iregend einen zu suchenden Wert in eine bestimmte Zelle eingeben. Nun wäre es ganz toll, wenn ein Makro einen vorgegebenen Suchbereich markiert und wenn der wert da ist, soll er ihn markieren.
Danke für die Antwort!
Cell
1. Vorschläge sind super!
2. Um mein Anliegen zu konkretisieren:
Ich möchte iregend einen zu suchenden Wert in eine bestimmte Zelle eingeben. Nun wäre es ganz toll, wenn ein Makro einen vorgegebenen Suchbereich markiert und wenn der wert da ist, soll er ihn markieren.
Danke für die Antwort!
Cell
Antwort 3 von rainberg
Hallo Cell,
folgender Code färbt dir alle Zellen in Spalte A rot, welche dem Suchkriterium in B1 entsprechen.
Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
Dim rngZelle As Range
If Target.Address = "$B$1" Then
Columns("a:a").Interior.ColorIndex = xlNone
For Each rngZelle In Range("A:A")
If rngZelle.Value = Cells(1, 2).Value Then
rngZelle.Interior.ColorIndex = 3
End If
Next
End If
End Sub
Gruß
Rainer
folgender Code färbt dir alle Zellen in Spalte A rot, welche dem Suchkriterium in B1 entsprechen.
Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
Dim rngZelle As Range
If Target.Address = "$B$1" Then
Columns("a:a").Interior.ColorIndex = xlNone
For Each rngZelle In Range("A:A")
If rngZelle.Value = Cells(1, 2).Value Then
rngZelle.Interior.ColorIndex = 3
End If
Next
End If
End Sub
Gruß
Rainer
Antwort 4 von Cell
Danke für die Antwort Rainer!
Sieht nach einem 1A Makro aus aber es gibt da ein Problem. Wenn ich einen neuen Makro erstelle und den Source reinkopiere und dann den Makro ausführe
fragt mich das Programm nach einem Makronamen (obwohl ich schon einen vergeben habe) und erstellt mir einen neuen Makro Rumpf.
Wo liegt das Problem??
Cell
Sieht nach einem 1A Makro aus aber es gibt da ein Problem. Wenn ich einen neuen Makro erstelle und den Source reinkopiere und dann den Makro ausführe
fragt mich das Programm nach einem Makronamen (obwohl ich schon einen vergeben habe) und erstellt mir einen neuen Makro Rumpf.
Wo liegt das Problem??
Cell
Antwort 5 von rainberg
Hallo Cell,
ich habe deine Frage so beantwortet, wie sie gestellt war, mehr war da nicht zu lesen.
Das Makro ist eine eigenständige Ereignisprozedur, deren Code du nicht einfach irgendwo hineinkopieren kannst.
Leider lässt deine Fragestellung keine bessere Antort zu.
Gruß
Rainer
ich habe deine Frage so beantwortet, wie sie gestellt war, mehr war da nicht zu lesen.
Das Makro ist eine eigenständige Ereignisprozedur, deren Code du nicht einfach irgendwo hineinkopieren kannst.
Leider lässt deine Fragestellung keine bessere Antort zu.
Gruß
Rainer
Antwort 6 von Cell
Hallo Rainer,
ich habe keine Zweifel daran, dass der Code funktioniert nur bekomme ich es nicht zum Laufen und wollte wissen wie man den Code ausführbar macht.
Bin nämlich ein blutiger Anfänger ;-)
Gruss
Cell
ich habe keine Zweifel daran, dass der Code funktioniert nur bekomme ich es nicht zum Laufen und wollte wissen wie man den Code ausführbar macht.
Bin nämlich ein blutiger Anfänger ;-)
Gruss
Cell
Antwort 7 von rainberg
Hallo Cell,
- kopiere den Code
- öffne deine Arbeitsmappe
- Rechtsklick auf den Tabellenreiter der Tabelle in welcher der Code laufen soll
- "Code anzeigen" auswählen
- Code im rechten Fenster einfügen
- VBA-Editor verlassen
- in B1 ein Suchkriterium eingeben
Gruß
Rainer
- kopiere den Code
- öffne deine Arbeitsmappe
- Rechtsklick auf den Tabellenreiter der Tabelle in welcher der Code laufen soll
- "Code anzeigen" auswählen
- Code im rechten Fenster einfügen
- VBA-Editor verlassen
- in B1 ein Suchkriterium eingeben
Gruß
Rainer
Antwort 8 von Cell
Hi,
Danke, funktioniert nun einwandfrei wie ich es mir vorgestellt habe.
Gruss
Cell
Danke, funktioniert nun einwandfrei wie ich es mir vorgestellt habe.
Gruss
Cell