Office Forum
www.Office-Loesung.de
Access :: Excel :: Outlook :: PowerPoint :: Word :: Office :: Wieder Online ---> provisorisches Office Forum <-
Bestimmte Zellen suchen und markieren
Gehe zu Seite 1, 2  Weiter
zurück: Werte einer Zellen (durch Komma getrennt) in ein listenfeld weiter: Im und Export von Daten einer Tabelle. Unbeantwortete Beiträge anzeigen
Neues Thema eröffnen   Neue Antwort erstellen     Status: Feedback Facebook-Likes Diese Seite Freunden empfehlen
Zu Browser-Favoriten hinzufügen
Autor Nachricht
abu2008
Einsteiger


Verfasst am:
09. Dez 2007, 01:22
Rufname:

Bestimmte Zellen suchen und markieren - Bestimmte Zellen suchen und markieren

Nach oben
       Version: Office 2007

Hallo Excel+VBA-Profis

Ich bin neu hier und möchte erst mal alle begrüßen.
Ich wollte fragen ob ihr mir helfen könnt.Ich möchte mit einer TextBox1 und einem CommandButton1 auf einer UserForm1 einen code erstellen der mir alle zellen in einer tabelle absucht nach z.B einem text oder zahlen den/die ich in die TextBox1 eingebe und durch betätigen des "suchbuttons" z.B. CommandButton1 suche. Und es sollen dann ALLE DIE ZELLEN MERKIERET werden die dem suchbegriff entsprechen.
Diesen code habe ich auf einer anderen seite gefunden aber es ist mit einer InputBox.Kann man den vielleicht ergänzen ?
Code:
Sub MultiSelect()
   Dim wks As Worksheet
   Dim rngFind As Range, rngRows As Range
   Dim sFind As String, sSearch As String
   sSearch = InputBox("Suchbegriff:", , "test")
   Set rngFind = Cells.Find(sSearch)
   If rngRows Is Nothing Then
      Set rngRows = rngFind
   End If
   If Not rngFind Is Nothing Then
      sFind = rngFind.Address
      Do
         Set rngRows = Application.Union(rngRows, rngFind)    'Ist diese zeile richtig geschrieben ?
         Set rngFind = Cells.FindNext(After:=rngFind)
         If rngFind.Address = sFind Then Exit Do
      Loop
   End If
   rngRows.Select
End Sub


Danke schon mal im voraus!!
Jürgen_H
aus Freude an Excel...


Verfasst am:
09. Dez 2007, 01:44
Rufname: Henne
Wohnort: Brüggen Niederrhein


AW: Bestimmte Zellen suchen und markieren - AW: Bestimmte Zellen suchen und markieren

Nach oben
       Version: Office 2007

Hallo abu2008,

auf die Schnelle. Beim Suchbegriff Ha wird Hans und Haus usw gefunden. Wenn du nur die genauen Treffer willst, kurz melden.


Gruß Jürgen

_________________
Freue mich über eine kurze Rückmeldung.
abu2008
Einsteiger


Verfasst am:
09. Dez 2007, 12:34
Rufname:

AW: Bestimmte Zellen suchen und markieren - AW: Bestimmte Zellen suchen und markieren

Nach oben
       Version: Office 2007

Das geht ja schnell hier!!!

Das ist genau das was ich brauche.

Dancke Jürgen_H !!!!!
Jürgen_H
aus Freude an Excel...


Verfasst am:
09. Dez 2007, 12:40
Rufname: Henne
Wohnort: Brüggen Niederrhein

AW: Bestimmte Zellen suchen und markieren - AW: Bestimmte Zellen suchen und markieren

Nach oben
       Version: Office 2007

Hallo abu2008,

freut mich das es wie gewünscht klappt und danke für die Rückmeldung. Wenn du diese Zeile im Code ersetzt:
Code:

Set Zelle = .Find(TextBox1.Value, LookIn:=xlValues, lookat:=xlWhole)


dann werden nur die genauen Treffer gefunden. Du kannst aber zusätzlich mit dem Joker * arbeiten, um auch nach Text- Zahlteilen zu suchen.

Noch einen schönen Sonntag.
Gruß Jürgen

_________________
Freue mich über eine kurze Rückmeldung.
abu2008
Einsteiger


Verfasst am:
09. Dez 2007, 13:28
Rufname:


AW: Bestimmte Zellen suchen und markieren - AW: Bestimmte Zellen suchen und markieren

Nach oben
       Version: Office 2007

Danke noch mal.

Sag mal gibt es vielleicht die Möglichkeit separat dazu die Kommentare abzusuchen und die zellen zu markieren die den gesuchten text enthalten?
Jürgen_H
aus Freude an Excel...


Verfasst am:
09. Dez 2007, 15:32
Rufname: Henne
Wohnort: Brüggen Niederrhein

AW: Bestimmte Zellen suchen und markieren - AW: Bestimmte Zellen suchen und markieren

Nach oben
       Version: Office 2007

Hallo abu2008,

ich habe dir gerade was gebastelt und kann es nicht mehr hochladen, da ich insgesamt 2MB erreicht habe.
Frage ans Forum: Wie komm ich nochmal zu meiner Uploadübersicht, um hier etwas zu löschen?

Danke für die Unterstützung im Voraus,
Gruß Jürgen

_________________
Freue mich über eine kurze Rückmeldung.
abu2008
Einsteiger


Verfasst am:
09. Dez 2007, 17:57
Rufname:

AW: Bestimmte Zellen suchen und markieren - AW: Bestimmte Zellen suchen und markieren

Nach oben
       Version: Office 2007

Hier hab ich was zur Uploadübersicht gefunden!!
http://www.office-loesung.de/ftopic151358_0_0_asc.php
Jürgen_H
aus Freude an Excel...


Verfasst am:
09. Dez 2007, 23:08
Rufname: Henne
Wohnort: Brüggen Niederrhein

AW: Bestimmte Zellen suchen und markieren - AW: Bestimmte Zellen suchen und markieren

Nach oben
       Version: Office 2007

Hallo abu2008,

danke, dass war der entscheidende Hinweis. Hier mal der Anhang. Schau mal, ob es so Okay ist.


Gruß Jürgen

_________________
Freue mich über eine kurze Rückmeldung.



abu2008_09.12.07_2.xls
 Beschreibung:

Download
 Dateiname:  abu2008_09.12.07_2.xls
 Dateigröße:  35.5 KB
 Heruntergeladen:  37 mal

abu2008
Einsteiger


Verfasst am:
10. Dez 2007, 01:05
Rufname:

AW: Bestimmte Zellen suchen und markieren - AW: Bestimmte Zellen suchen und markieren

Nach oben
       Version: Office 2007

Hallo Jürgen_H !!

Es ist jetzt ein bisschen komisch. Wenn ich diese zeile im code ändere

Code:
Set Zelle = .Find(TextBox1.Value, LookIn:=xlValues)


dann muss man trotzdem den ganzen Suchbegriff eingeben damit er in den Zellen sucht.Und bei den Kommentaren muss man ja so gar Groß- und Kleinschreibung beachten.

Grüße aus dem Internet!!!
Jürgen_H
aus Freude an Excel...


Verfasst am:
10. Dez 2007, 18:48
Rufname: Henne
Wohnort: Brüggen Niederrhein

AW: Bestimmte Zellen suchen und markieren - AW: Bestimmte Zellen suchen und markieren

Nach oben
       Version: Office 2007

Hallo abu2008,

dann ersetze mal den Code gegen diesen. Groß- bzw Kleinschreibung bei den Kommentaren ist nun egal. Bei der Suche in Zellen werden auch Textteile gefunden.

Code:

Private Sub CommandButton1_Click()
Dim Zelle As Range
Dim FirstAddress
Dim lngX As Long

If TextBox1.Value = "" Then
Exit Sub
Else

If Me.CheckBox1.Value = True Then
ActiveSheet.UsedRange.Interior.ColorIndex = xlNone
For Each Zelle In ActiveSheet.UsedRange.SpecialCells(xlCellTypeComments)
 If InStr(LCase(Zelle.Comment.Text), LCase(TextBox1.Text)) > 0 Then
  Zelle.Interior.ColorIndex = 15
  lngX = lngX + 1
 End If
Next
Else

With ActiveSheet.UsedRange
    .Interior.ColorIndex = xlNone
    Set Zelle = .Find(TextBox1.Value, LookIn:=xlValues, lookat:=xlPart)
    If Not Zelle Is Nothing Then
        FirstAddress = Zelle.Address
        Do
            Zelle.Interior.ColorIndex = 15 'Die Farbe bitte ebenfalls anpassen.
            lngX = lngX + 1
            Set Zelle = .FindNext(Zelle)
        Loop While Not Zelle Is Nothing And Zelle.Address <> FirstAddress
    End If
End With
End If
End If
If lngX = 0 Then
MsgBox "Die Suche nach [" & TextBox1.Value & "] ergab leider keinen Treffer."
Else
MsgBox "Der Suchbegriff [" & TextBox1.Value & "] wurde " & lngX & "x gefunden."
End If

End Sub


Gruß Jürgen

_________________
Freue mich über eine kurze Rückmeldung.
abu2008
Einsteiger


Verfasst am:
10. Dez 2007, 20:23
Rufname:

AW: Bestimmte Zellen suchen und markieren - AW: Bestimmte Zellen suchen und markieren

Nach oben
       Version: Office 2007

Hallo Jürgen_H !!

Viiieeelen Dank. Es funktioniert bestens!!!!

Grüße aus dem Internet!!!
abu2008
Einsteiger


Verfasst am:
10. Dez 2007, 23:50
Rufname:

AW: Bestimmte Zellen suchen und markieren - AW: Bestimmte Zellen suchen und markieren

Nach oben
       Version: Office 2007

Hallo Jürgen_H !!

Ich bin es wieder. Also ich hab erst jetzt gemerkt, dass es bei dem Code ja um keine MARKIERUNG sondern um änderung der Zellenfarbe/Formatierung handelt.
Ich wollte ja, dass die Zellen MARKIERT/SELEKTIERT werden.

Grüße aus dem Internet!!!
Jürgen_H
aus Freude an Excel...


Verfasst am:
11. Dez 2007, 18:40
Rufname: Henne
Wohnort: Brüggen Niederrhein

AW: Bestimmte Zellen suchen und markieren - AW: Bestimmte Zellen suchen und markieren

Nach oben
       Version: Office 2007

Hallo abu2008,

OK. Dann tausche den Code noch mal gegen diesen hier. Er selektiert die Zellen.
Code:

Private Sub CommandButton1_Click()
Dim Zelle As Range
Dim FirstAddress
Dim lngX As Long
Dim rng As Range

If TextBox1.Value = "" Then
Exit Sub
Else

If Me.CheckBox1.Value = True Then
With ActiveSheet.UsedRange.SpecialCells(xlCellTypeComments)
    Set Zelle = .Find(TextBox1.Value, LookIn:=xlComments, lookat:=xlPart)
    If Not Zelle Is Nothing Then
        FirstAddress = Zelle.Address
        Set rng = Zelle
        Do
           Set rng = Union(rng, Zelle)
            lngX = lngX + 1
            Set Zelle = .FindNext(Zelle)
        Loop While Not Zelle Is Nothing And Zelle.Address <> FirstAddress
    End If
End With

Else
With ActiveSheet.UsedRange
    Set Zelle = .Find(TextBox1.Value, LookIn:=xlValues, lookat:=xlPart)
    If Not Zelle Is Nothing Then
        FirstAddress = Zelle.Address
        Set rng = Zelle
        Do
           Set rng = Union(rng, Zelle)
            lngX = lngX + 1
            Set Zelle = .FindNext(Zelle)
        Loop While Not Zelle Is Nothing And Zelle.Address <> FirstAddress
    End If
End With
End If
End If
If lngX = 0 Then
MsgBox "Die Suche nach [" & TextBox1.Value & "] ergab leider keinen Treffer."
Else
rng.Select
MsgBox "Der Suchbegriff [" & TextBox1.Value & "] wurde " & lngX & "x gefunden."
End If

End Sub


Gruß Jürgen

_________________
Freue mich über eine kurze Rückmeldung.
abu2008
Einsteiger


Verfasst am:
11. Dez 2007, 21:48
Rufname:

AW: Bestimmte Zellen suchen und markieren - AW: Bestimmte Zellen suchen und markieren

Nach oben
       Version: Office 2007

Hallo Jürgen_H !!

Es funktioniert, super, vielen Dank!!

Grüße aus dem Internet!!!
Jürgen_H
aus Freude an Excel...


Verfasst am:
11. Dez 2007, 22:07
Rufname: Henne
Wohnort: Brüggen Niederrhein


AW: Bestimmte Zellen suchen und markieren - AW: Bestimmte Zellen suchen und markieren

Nach oben
       Version: Office 2007

Hallo abu2008,

mir ist noch eine Kleinigkeit aufgefallen. Wenn das aktive Blatt keine Kommentare besitzt, läuft die Suche in einen Fehler und der Debugger meldet sich. Dann bitte noch mal den Code tauschen Embarassed Jetzt sollte es aber klappen.

Code:

Private Sub CommandButton1_Click()
On Error GoTo Fehler
Dim Zelle As Range
Dim FirstAddress
Dim lngX As Long
Dim rng As Range

If TextBox1.Value = "" Then
Exit Sub
Else

If Me.CheckBox1.Value = True Then
With ActiveSheet.UsedRange.SpecialCells(xlCellTypeComments)
    Set Zelle = .Find(TextBox1.Value, LookIn:=xlComments, lookat:=xlPart)
    If Not Zelle Is Nothing Then
        FirstAddress = Zelle.Address
        Set rng = Zelle
        Do
           Set rng = Union(rng, Zelle)
            lngX = lngX + 1
            Set Zelle = .FindNext(Zelle)
        Loop While Not Zelle Is Nothing And Zelle.Address <> FirstAddress
    End If
End With

Else
With ActiveSheet.UsedRange
    Set Zelle = .Find(TextBox1.Value, LookIn:=xlValues, lookat:=xlPart)
    If Not Zelle Is Nothing Then
        FirstAddress = Zelle.Address
        Set rng = Zelle
        Do
           Set rng = Union(rng, Zelle)
            lngX = lngX + 1
            Set Zelle = .FindNext(Zelle)
        Loop While Not Zelle Is Nothing And Zelle.Address <> FirstAddress
    End If
End With
End If
End If
If lngX = 0 Then
MsgBox "Die Suche nach [" & TextBox1.Value & "] ergab leider keinen Treffer."
Else
rng.Select
MsgBox "Der Suchbegriff [" & TextBox1.Value & "] wurde " & lngX & "x gefunden."
End If
Exit Sub
Fehler:
MsgBox "Eventuell enthält das aktive Blatt keine Kommentare." & vbCr & _
"Fehlernummer: " & Err.Number & vbCr & Err.Description
End Sub


Gruß Jürgen

_________________
Freue mich über eine kurze Rückmeldung.
Neues Thema eröffnen   Neue Antwort erstellen Alle Zeiten sind
GMT + 1 Stunde

Gehe zu Seite 1, 2  Weiter
Diese Seite Freunden empfehlen

Seite 1 von 2
Gehe zu:  
Du kannst Beiträge in dieses Forum schreiben.
Du kannst auf Beiträge in diesem Forum antworten.
Du kannst deine Beiträge in diesem Forum nicht bearbeiten.
Du kannst deine Beiträge in diesem Forum nicht löschen.
Du kannst an Umfragen in diesem Forum nicht mitmachen.
Du kannst Dateien in diesem Forum nicht posten
Du kannst Dateien in diesem Forum herunterladen

Verwandte Themen
Forum / Themen   Antworten   Autor   Aufrufe   Letzter Beitrag 
Keine neuen Beiträge Excel Formeln: daten suchen 18 excelfinki 2799 17. Dez 2004, 11:34
excelfinki daten suchen
Keine neuen Beiträge Excel Formeln: aus verschiedenen Zellen eine Hyperlink erstellen? 2 MrMr 1905 28. Okt 2004, 19:43
MrMr aus verschiedenen Zellen eine Hyperlink erstellen?
Keine neuen Beiträge Excel Formeln: 2 oder mehr zellen verbinden, nicht VERKETTEN mit & 5 ALEKS 3246 28. Okt 2004, 10:55
Aleks 2 oder mehr zellen verbinden, nicht VERKETTEN mit &
Keine neuen Beiträge Excel Formeln: Gelbe Zellen zählen! 6 Axis_Sonnenflieger 4453 27. Okt 2004, 14:50
Axis_Sonnenflieger Gelbe Zellen zählen!
Keine neuen Beiträge Excel Formeln: Druckbereich:nur einzelne Spalten als Druckbereich markieren 3 mufty001 1912 21. Okt 2004, 09:24
mufty001 Druckbereich:nur einzelne Spalten als Druckbereich markieren
Keine neuen Beiträge Excel Formeln: Blattschutz: bestimmte Zellen zum Löschen freigeben 6 Christiane 1203 21. Okt 2004, 07:17
lala Blattschutz: bestimmte Zellen zum Löschen freigeben
Keine neuen Beiträge Excel Formeln: Werte in Zellen?!? 3 Kiamolo 2818 18. Okt 2004, 10:01
Kiamolo Werte in Zellen?!?
Keine neuen Beiträge Excel Formeln: Gleich Zellen farblich markieren 3 badoldman 2712 05. Okt 2004, 16:14
fl618 Gleich Zellen farblich markieren
Keine neuen Beiträge Excel Formeln: werte innerhalb eines bestimmten bereichs suchen 3 infantil88 3545 17. Sep 2004, 10:54
Arnim werte innerhalb eines bestimmten bereichs suchen
Keine neuen Beiträge Excel Formeln: Frage... (suchen und löschen) 2 fs-racing 695 01. Sep 2004, 12:13
fs-racing Frage...  (suchen und löschen)
Keine neuen Beiträge Excel Formeln: Zellen zusammenfassen 4 annett 1318 12. Aug 2004, 11:35
annett Zellen zusammenfassen
Keine neuen Beiträge Excel Formeln: Auf Zellen einer Datei im Web verweisen. 1 kha 812 30. Jul 2004, 13:18
kha Auf Zellen einer Datei im Web verweisen.
 

----> Diese Seite Freunden empfehlen <------ Impressum - Besuchen Sie auch: Microsoft Excel-Formeln