Live-Forum - Die aktuellen Beiträge
Datum
Titel
19.07.2024 18:36:17
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
556to560
556to560
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Suchfunktion nur für bestimmte Spalten
01.02.2005 10:00:08
Niri
Hallo!
In einer Arbeitsmappe werden Name, Vorname, spezielle dazugehörige Nummern und Geburtsdaten aufgeführt; in manchen Fällen kommen noch Beschreibungen dazu. Mit folgendem soll nun nach Name, Vorname oder Geburtsdatum gesucht werden. Problematisch ist, dass bei einem Namen wie Stark evt. auch Suchergebnisse in der Beschreibungsspalte aufgeführt werden, was natürlich nicht vorkommen sollte.
Hat jemand eine Idee wie ich das ganzeumschreiben kann?
Danke schonmal im Voraus.
Niri

Sub Auswahl()
Dim rng As Range
Dim sBegriff As String, sAdress As String, sFrage As String
sBegriff = InputBox( _
prompt:="Bitte Suchbegriff eingeben:", _
Default:="")
If sBegriff = "" Then Exit Sub
Set rng = Cells.Find( _
What:=sBegriff, _
Lookat:=xlPart, _
LookIn:=xlValues, _
MatchCase:=False, _
After:=Range("IV65536"))
If rng Is Nothing Then
Beep
MsgBox "Suchbegriff nicht gefunden!", , _
Application.UserName
Exit Sub
End If
sAdress = rng.Address
sFrage = MsgBox("Fundstelle:" & Space(25) & vbLf & vbLf & _
vbTab & rng.Address(False, False) & vbLf & vbLf & _
"Weitersuchen?", vbYesNo, "Fundstelle")
If sFrage = vbNo Then
Application.Goto rng, True
Exit Sub
End If
Do
Set rng = Cells.FindNext(After:=rng)
If rng.Address = sAdress Then Exit Sub
rng.Select
sFrage = MsgBox("Fundstelle:" & Space(25) & vbLf & vbLf & _
vbTab & rng.Address(False, False) & vbLf & vbLf & _
"Weitersuchen?", vbYesNo, "Fundstelle")
If sFrage = vbNo Then
Exit Sub
End If
Loop
End Sub

8
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Suchfunktion nur für bestimmte Spalten
01.02.2005 10:06:05
Josef
Hallo Niri!
Ändere diesen Teil.

Set rng = Columns("A:C").Find( _
What:=sBegriff, _
Lookat:=xlPart, _
LookIn:=xlValues, _
MatchCase:=False, _
After:=Range("C65536"))

Wobei du die Spalten natürlich an die Gegebenheiten deiner Tabelle
anpassen musst!
Gruß Sepp
P.S.: Rückmeldung nicht vergessen!
AW: Suchfunktion nur für bestimmte Spalten
Niri
Hallo und danke,
leider klappt es noch nicht. Bei mir betrifft es die Spalten A1 bis A884 und entsprechend B und C. Nach dem ich den Code geändert hab, gibt er mir allerdings auch die Spalten D bis F aus, obwohl diese nicht durchsucht werden sollen.
Anzeige
AW: Suchfunktion nur für bestimmte Spalten
01.02.2005 13:55:59
Josef
Hallo Niri!
Sorry, kleine Unachtsamkeit von mir;-)
Natürlich muss auch bei ".FindNext" der Bereich eingeschränkt werden!


      
Sub Auswahl()
    
Dim rng As Range
    
Dim sBegriff As String, sAdress As String, sFrage As String
    sBegriff = InputBox( _
        prompt:=
"Bitte Suchbegriff eingeben:", _
        Default:=
"")
    
If sBegriff = "" Then Exit Sub
    
Set rng = Range("A1:C884").Find( _
        What:=sBegriff, _
        Lookat:=xlPart, _
        LookIn:=xlValues, _
        MatchCase:=
False, _
        After:=Range(
"C884"))
    
If rng Is Nothing Then
        Beep
        MsgBox 
"Suchbegriff nicht gefunden!", , _
            Application.UserName
        
Exit Sub
    
End If
    sAdress = rng.Address
    sFrage = MsgBox(
"Fundstelle:" & Space(25) & vbLf & vbLf & _
    vbTab & rng.Address(
FalseFalse) & vbLf & vbLf & _
    
"Weitersuchen?", vbYesNo, "Fundstelle")
    
If sFrage = vbNo Then
    Application.Goto rng, 
True
    
Exit Sub
    
End If
    
Do
        
Set rng = Range("A1:C884").FindNext(After:=rng)
        
If rng.Address = sAdress Then Exit Sub
        
    rng.Select
    sFrage = MsgBox(
"Fundstelle:" & Space(25) & vbLf & vbLf & _
    vbTab & rng.Address(
FalseFalse) & vbLf & vbLf & _
    
"Weitersuchen?", vbYesNo, "Fundstelle")
    
If sFrage = vbNo Then
    
Exit Sub
    
End If 


Gruß Sepp
P.S.: Rückmeldung nicht vergessen!
Anzeige
AW: Suchfunktion nur für bestimmte Spalten
Niri
Hallo nochmal,
das ist der Code den ich jetzt verwende. Immernoch bezieht die Suche jeodch Zeile F mit ein. Kann man denn einzelne Spalten nicht einfach aus der Suche ausschließen?

Private Sub Workbook_Open()
Dim rng As Range
Dim sBegriff As String, sAdress As String, sFrage As String
sBegriff = InputBox( _
prompt:="Bitte Suchbegriff eingeben:", _
Default:="")
If sBegriff = "" Then Exit Sub
Set rng = Range("A1:C884").Find( _
What:=sBegriff, _
Lookat:=xlPart, _
LookIn:=xlValues, _
MatchCase:=False, _
After:=Range("C884"))
If rng Is Nothing Then
Beep
MsgBox "Suchbegriff nicht gefunden!", , _
Application.UserName
Exit Sub
End If
sAdress = rng.Address
sFrage = MsgBox("Fundstelle:" & Space(25) & vbLf & vbLf & _
vbTab & rng.Address(False, False) & vbLf & vbLf & _
"Weitersuchen?", vbYesNo, "Fundstelle")
If sFrage = vbNo Then
Application.Goto rng, True
Exit Sub
End If
Do
Set rng = Cells.FindNext(After:=rng)
If rng.Address = sAdress Then Exit Sub
rng.Select
sFrage = MsgBox("Fundstelle:" & Space(25) & vbLf & vbLf & _
vbTab & rng.Address(False, False) & vbLf & vbLf & _
"Weitersuchen?", vbYesNo, "Fundstelle")
If sFrage = vbNo Then
Exit Sub
End If
Loop
End Sub

Anzeige
AW: Suchfunktion nur für bestimmte Spalten
01.02.2005 14:52:26
Josef
Hallo Niri!
Ich hab' dir doch den angeüassten Code gepostet!
Gruß Sepp
P.S.: Rückmeldung nicht vergessen!
AW: Suchfunktion nur für bestimmte Spalten
Niri
Hallo,
soweit so gut. Aber nun sucht Excel tatsächlich nur noch in den ersten drei Spalten, allerdings funktioniert der Loop nicht mehr. Wenn ich angebe dass ich weitersuchen möchte bricht das ganze ab.
Code fehlerhaft!
02.02.2005 09:46:20
Josef
Hallo Niri!
Da ist beim kopieren des Codes was verloren gegangen;-))
So stimmt's!


      
Sub Auswahl()
Dim rng As Range
Dim sBegriff As String, sAdress As String, sFrage As String
sBegriff = InputBox( _
   prompt:=
"Bitte Suchbegriff eingeben:", _
   Default:=
"")
   
If sBegriff = "" Then Exit Sub
Set rng = Range("A1:C884").Find( _
   What:=sBegriff, _
   Lookat:=xlPart, _
   LookIn:=xlValues, _
   MatchCase:=
False, _
   After:=Range(
"C884"))
   
If rng Is Nothing Then
   Beep
   MsgBox 
"Suchbegriff nicht gefunden!", , _
      Application.UserName
   
Exit Sub
   
End If
sAdress = rng.Address
sFrage = MsgBox(
"Fundstelle:" & Space(25) & vbLf & vbLf & _
   vbTab & rng.Address(
FalseFalse) & vbLf & vbLf & _
   
"Weitersuchen?", vbYesNo, "Fundstelle")
   
If sFrage = vbNo Then
   Application.Goto rng, 
True
   
Exit Sub
   
End If
   
Do
   
Set rng = Range("A1:C884").FindNext(After:=rng)
      
If rng.Address = sAdress Then Exit Sub
      
   rng.Select
   sFrage = MsgBox(
"Fundstelle:" & Space(25) & vbLf & vbLf & _
      vbTab & rng.Address(
FalseFalse) & vbLf & vbLf & _
      
"Weitersuchen?", vbYesNo, "Fundstelle")
      
If sFrage = vbNo Then
      
Exit Sub
      
End If
   
Loop
End Sub 


Gruß Sepp
P.S.: Rückmeldung nicht vergessen!
Anzeige
Jetzt klappts...
Niri
Alles klar, danke, jetzt geht alles..

327 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige
Anzeige

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige