Live-Forum - Die aktuellen Beiträge
Datum
Titel
04.05.2024 20:49:40
Listbox - ausgewählte Zeile aus Tabellenblatt markieren
04.05.2024 16:03:54
Problem mit einer Regel bei bedingter Formatierung
04.05.2024 10:29:31
.Find(what:=..., Lookat:=xlWhole, LookIn:=xlValues) ->For
04.05.2024 09:44:33
Bestimmten bereich aus einem String per VBA separieren
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1784to1788
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1784to1788
1784to1788
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Suchbegriff aktivieren

Suchbegriff aktivieren
12.10.2020 17:42:51
philipp
Guten Tag,
ich habe folgendes Makro: 
Public Sub Suchen()
Dim strSuchbegriff As String, loLetzte As Long
strSuchbegriff = InputBox("Bitte Suchbegriff eingeben", "Namen Suchen und Filtern nach")
If Not strSuchbegriff = vbNullString Then
loLetzte = Cells(Rows.Count, Selection.Column).End(xlUp).Row
Range(Cells(2, Selection.Column), Cells(loLetzte, Selection.Column)) _
.AutoFilter field:=1, Criteria1:=strSuchbegriff
End If
End Sub
Es sollte der Suchbegriff nur in Spalte A gesucht werden und anschließend der 1. gefundene Adresse
anklickt werden.
mfg
philipp

13
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Suchbegriff aktivieren
12.10.2020 17:46:29
Hajo_Zi
Halo philip,
Suchen ist Find)()
        Set Rafound = Range("C1:C" & LoLetzte).find(sSearch, Range("C" & LoLetzte), , xlPart, ,  _
xlNext)
' kompletter Vergleich und Inhalt
'Set RaFound = Range("C1:C" & Loletzte).Find(sSearch, Range("C" & Loletzte), , xlWhole,  _
, xlNext)
'Set Rafound1 = Columns(1).Find("Erledigt", Range("A" & Rows.Count), xlFormulas, _
'                    xlWhole, , xlNext)
If Not Rafound Is Nothing Then
MsgBox Rafound.Row
End If

' xlPart enthalten
' xlWhole kompletter Vergleich

Anzeige
Fehlermeldung
12.10.2020 17:57:33
philipp
Guten Tag Hajo,
leider Fehlermeldung Laufzeitfehler 1004
Habe so reingesetzt:
Dim Rafound1, Rafound
Dim sSearch
Dim loletzte As Long
Set Rafound = Range("C2:C" & loletzte).Find(sSearch, Range("C" & loletzte), , xlPart, , _
xlNext)
' kompletter Vergleich und Inhalt
'Set RaFound = Range("C1:C" & Loletzte).Find(sSearch, Range("C" & Loletzte), , xlWhole, _
, xlNext)
'Set Rafound1 = Columns(1).Find("Erledigt", Range("A" & Rows.Count), xlFormulas, _
' xlWhole, , xlNext)
If Not Rafound Is Nothing Then
MsgBox Rafound.Row
End If
' xlPart enthalten
' xlWhole kompletter Vergleich
kann man mein Makro nicht entsprechend verändern ?
mfg
philipp
Anzeige
AW: Fehlermeldung
12.10.2020 18:00:17
Hajo_Zi
Hallo philipp,
Loletzte ist 0 und Zeile 0 gibt es nicht.
Zu Deiner Datei kann ich nichts schreiben, was wohl daran liegt das ich nicht auf fremde Rechner schaue.Ich baue keine Datei nach.
Sollte die Datei verlinkt werden?
Wenn du an Stelle einer Demomappe deine Originalmappe hochladen willst, diese aber sensible Daten enthält, kannst du diese Daten
http://www.ms-office-forum.de/forum/showthread.php?t=322895
änderrn.
Bilder lade ich mir nicht runter, da Excel damit nichts anfangen kann.
http://www.excel-ist-sexy.de/bilder-statt-datei/
Hochgeladene Bilder können zwar als solche in Excel importiert werden, sind jedoch bei der Lösung von Problemen nicht sehr hilfreich, da man die eigentlichen Daten nicht ohne große und zeitraubende Umwege direkt in die Tabelle übertragen kann.
Das ist nur meine Meinung zu dem Thema.
Gruß Hajo
Anzeige
AW: Fehlermeldung
12.10.2020 18:03:44
philipp
Hallo Hajo,
hab das nicht verstanden ?
Warum Muster, habe doch das Makro gesendet.
mfg
philipp
AW: Suchbegriff aktivieren
12.10.2020 18:50:51
Nepumuk
Hallo philipp,
so ok?
Public Sub Suchen()
    
    Dim strSuchbegriff As String
    
    strSuchbegriff = InputBox("Bitte Suchbegriff eingeben", "Namen Suchen und Filtern nach")
    
    If Not strSuchbegriff = vbNullString Then
        
        Rows(1).AutoFilter Field:=1, Criteria1:=strSuchbegriff
        
        If Cells(1, 1).End(xlDown).Row <> Rows.Count Then Cells(1, 1).End(xlDown).Select
        
    End If
End Sub

Gruß
Nepumuk
Anzeige
AW: Suchbegriff aktivieren ja aber noch eine Frage
12.10.2020 18:58:21
philipp
Guten Abend Nepumuk,
Danke das klappt, allerdings wird der bei 2 gesuchten Zeilen die 2.selectiert.
Was muss ich ändern, damit von den gesuchten der 1. Wert selectiert wird ?
mfg
philipp
AW: Suchbegriff aktivieren ja aber noch eine Frage
12.10.2020 19:13:40
Nepumuk
Hallo philipp,
so besser?
Public Sub Suchen()
    
    Dim strSuchbegriff As String
    
    strSuchbegriff = InputBox("Bitte Suchbegriff eingeben", "Namen Suchen und Filtern nach")
    
    If Not strSuchbegriff = vbNullString Then
        
        Rows(1).AutoFilter Field:=1, Criteria1:=strSuchbegriff
        
        With ActiveSheet.AutoFilter.Range.SpecialCells(xlCellTypeVisible)
            
            If .Areas(1).Rows.Count > 1 Then
                
                .Areas(1).Cells(2, 1).Select
                
            Else
                
                If .Areas.Count > 1 Then .Areas(2).Cells(1, 1).Select
                
            End If
        End With
    End If
End Sub

Gruß
Nepumuk
Anzeige
Ja Nepumuk aber die Zeile 2
12.10.2020 19:25:22
philipp
Hallo Nepumuk,
danke. Aber es wird die Zeile 2 ausgeblendet, bei meinem Makro nicht.
Ich würde gern ein 2. Suchmakro haben so wie Du es gemacht hast aber in der kompl.
Datenbank suchen. Datenbank habe ich 20 Spalten.
mfg
philipp
Zeile 2 klappt ! Habe geändert.
12.10.2020 19:27:08
philipp
AW: Ja Nepumuk aber die Zeile 2
12.10.2020 19:27:33
Nepumuk
Hallo philipp,
wenn deine Daten erst in Zeile 3 beginnen, dann so:
        Rows(2).AutoFilter Field:=1, Criteria1:=strSuchbegriff

Gruß
Nepumuk
Danke habe genau so gemacht
12.10.2020 19:29:41
philipp
Hallo Nepumuk,
was muss ich ändern damit in der gesamten Datenbank gesucht wird ?
mfg
philipp
AW: Danke habe genau so gemacht
12.10.2020 19:42:31
Nepumuk
Hallo philipp,
so?
Public Sub Suchen()
    
    Dim strSuchbegriff As String
    Dim objCell As Range
    
    strSuchbegriff = InputBox("Bitte Suchbegriff eingeben", "Namen Suchen und Filtern nach")
    
    If Not strSuchbegriff = vbNullString Then
        
        If ActiveSheet.FilterMode Then ActiveSheet.ShowAllData
        
        Set objCell = Cells.Find(What:=strSuchbegriff, After:=Cells(1, 1), _
            LookIn:=xlValues, LookAt:=xlWhole, MatchCase:=False)
        
        If Not objCell Is Nothing Then
            
            Rows(2).AutoFilter Field:=objCell.Column, Criteria1:=strSuchbegriff
            
            With ActiveSheet.AutoFilter.Range.SpecialCells(xlCellTypeVisible)
                
                If .Areas(1).Rows.Count > 1 Then
                    
                    .Areas(1).Cells(2, objCell.Column).Select
                    
                Else
                    
                    If .Areas.Count > 1 Then .Areas(2).Cells(1, objCell.Column).Select
                    
                End If
            End With
            
            Set objCell = Nothing
            
        End If
    End If
End Sub

Gruß
Nepumuk
Anzeige
Einfach Klasse, Nepumuk ! Danke -)
12.10.2020 19:44:41
philipp

Links zu Excel-Dialogen

InputBox

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige