Thema Datum  Von Nutzer Rating
Antwort
07.10.2010 11:22:16 Annika
NotSolved
07.10.2010 11:43:53 Severus
NotSolved
Rot Aw:Aw:Scuhfeld
 07.10.2010 13:34:56 Annika
NotSolved
07.10.2010 13:45:06 Severus
NotSolved
07.10.2010 13:38:03 Annika
NotSolved

Ansicht des Beitrags:
Von:
Annika		 Datum:
07.10.2010 13:34:56		 Views:
778		 Rating:
     
Antwort:
  Ja
Thema:
Aw:Aw:Scuhfeld
Severus schrieb am 07.10.2010 11:43:53:

Annika schrieb am 07.10.2010 11:22:16:

Hallo,
ich hab da so ein problem das ihr bestimmt lösen könnt.

Also gegeben ist bei mir eine Tabelle mit vielen vielen spalten und vielen vielen Zeilen. über die überschriften hab ich auch schon einen filter gelegt. Jetzt möchte ich folgendes machen:
ich möchte ein Makro schreiben das ich meinem Suchen Button zuweisen kann. wenn ich dieses Makro auslöse soll das was in meinem Suchfeld K3 steht in der Spalte C gesucht werden und dann sollen nurnoch die Zeilen auftauchen in denen der gesuchte begridd drin steht.


Beispiel
wenn mein suchbegriff wäre: blau
dann soll er mir alle Zeilen anzegen in denen in der Spalte C steht: Blau, himmelblau, blaubeere, blaus...

ich hoffe ihr habt verstanden was ich machen möchte und könnt mir weiterhelfen


Option Explicit

Sub Aus_Ein_Blenden()
Dim LaufZahl As Long
Dim LetzteZeile As Long
Dim strSUCH As String
With ActiveSheet
.Cells.EntireRow.Hidden = False
LetzteZeile = .Range("C65536").End(xlUp).Row
strSUCH = UCase(.Range("K3"))
If strSUCH = "" Then Exit Sub
For LaufZahl = 4 To LetzteZeile
If InStr(1, UCase(.Cells(LaufZahl, 3)), strSUCH, vbBinaryCompare) = 0 Then
.Cells(LaufZahl, 3).EntireRow.Hidden = True
End If
Next LaufZahl
End With
End Sub

Severus



Hi Danke für deine Hilfe. Funktioniert eigentlich schon ganz gut. Aber bisher gibt es mir nur die Zeilen an in denen genau das drin steht was auch in meinem Suchfeld drinnen ist. aber ich möchte ja auch das er mir die zeilen raussucht in denen das wort nur enthalten ist. Also wenn ich Hund in meinem Suchfeld drinnen hab, dann möchte ich auch die zeile mit hundehütte ausgegeben bekommen. kann man das nioch irgendwie ergänzen?

lg Annika

Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:



  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
07.10.2010 11:22:16 Annika
NotSolved
07.10.2010 11:43:53 Severus
NotSolved
Rot Aw:Aw:Scuhfeld
 07.10.2010 13:34:56 Annika
NotSolved
07.10.2010 13:45:06 Severus
NotSolved
07.10.2010 13:38:03 Annika
NotSolved