|
Thema
|
Datum
|
Von Nutzer
|
Rating
|
Antwort
|
 Suchen und ganze Zeile Anzeigen |
16.07.2009 11:30:23 |
Karin |
|
|
|
16.07.2009 12:03:00 |
Murdoc |
|
|
|
16.07.2009 12:50:21 |
Karin |
|
|
|
16.07.2009 13:03:11 |
Murdoc |
|
|
|
16.07.2009 15:16:48 |
Karin |
|
|
|
16.07.2009 12:33:19 |
Karin |
|
|
|
16.07.2009 12:36:45 |
Murdoc |
|
|
Von:
Karin |
Datum:
16.07.2009 11:30:23 |
Views:
1916 |
Rating:
|
Antwort:
|
Thema:
Suchen und ganze Zeile Anzeigen |
Hallo Leute ;),
kurze frage: Ich habe ein Such Marko geschrieben das alles sich in der Datei befindende sucht und auch ausgibt. Jetzt möchte ich aber dass es mir nicht nur das gefundene ausgibt, sondern gleich die gesamte Zeile in der sich die gesuchte Zelle befindet.
Hier mein Code:
[code]Option Explicit
Public Sub Suchen_Ausgeben()
Dim rngBereich As Range
Dim strBereichAdresse As String
Dim strFundstelle As String
Dim wksBlatt As Worksheet
Dim wksBlattNeu As Worksheet
Dim c As Range
Dim lngZeile As Long
strFundstelle = InputBox("Geben sie das gesuchte Wort oder" & vbLf & _
"den gesuchten Wortteil ein:", "Suchen", "Suchbegriff")
If strFundstelle = "" Then Exit Sub
Set wksBlatt = ThisWorkbook.Sheets("Messwert-Datei")
Set wksBlattNeu = Worksheets.Add(Before:=Sheets(1))
wksBlattNeu.Name = "Suche_" & Format(Now, "dd_mm_yy_hhmmss")
Set rngBereich = wksBlatt.Cells.Find(What:=strFundstelle, LookIn:=xlValues, LookAt:=xlPart)
If Not rngBereich Is Nothing Then
strBereichAdresse = rngBereich.Address
Do
lngZeile = lngZeile + 1
wksBlattNeu.Cells(lngZeile, 1) = rngBereich
wksBlattNeu.Cells(lngZeile, 2) = rngBereich.Address(0, 0)
wksBlattNeu.Cells(lngZeile, 3) = wksBlatt.Name
[b]Ich denke diese Zeile wird falsch sein [/b]
wksBlattNeu.Cells(lngZeile, 4) = Cells(c.Row, c.Column + 1).Value
Set rngBereich = wksBlatt.Cells.FindNext(rngBereich)
Loop While rngBereich.Address <> strBereichAdresse
End If
wksBlattNeu.Columns("A:C").AutoFit
Set wksBlatt = Nothing
Set rngBereich = Nothing
Set wksBlattNeu = Nothing
End Sub[/code]
Besten Dank im Vorraus
Florian
|
- 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
Bitte geben Sie ein aussagekräftiges Thema an.
Bitte geben Sie eine gültige Email Adresse ein!
- 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
|
Suchen und ganze Zeile Anzeigen |
16.07.2009 11:30:23 |
Karin |
|
|
|
16.07.2009 12:03:00 |
Murdoc |
|
|
|
16.07.2009 12:50:21 |
Karin |
|
|
|
16.07.2009 13:03:11 |
Murdoc |
|
|
|
16.07.2009 15:16:48 |
Karin |
|
|
|
16.07.2009 12:33:19 |
Karin |
|
|
|
16.07.2009 12:36:45 |
Murdoc |
|
|