Thema Datum  Von Nutzer Rating
Antwort
Rot Bestimmten Bereich suchen
 15.07.2009 14:42:25 Michael
NotSolved
15.07.2009 16:28:55 Murdoc
NotSolved

Ansicht des Beitrags:
Von:
Michael		 Datum:
15.07.2009 14:42:25		 Views:
1705		 Rating:
     
Antwort:
  Ja
Thema:
Bestimmten Bereich suchen
Hallo Vba Spzialisten :D

Folgendes Problem: Ich habe mit vba eine Suche erstellt mit der man den Inhalt jeder Zelle suchen kann und der Inhalt und die Zellenposition (A5, B7,...) in einer neuen Tabellenseite angezeigt wird. Funktioniert alles wunderbar.
1.Frage: Jetzt habe ich mich doch gefragt ob es möglich wäre einen Bestimmten Bereich (zb. von A1 bis B6) zu suchen und ihn dann auszugeben? Wenn ja, wie geht das?

2.Frage: Wie geht es das man mehrere Suchabfragen hintereinander macht, und danach die "abgespeckte" Tabelle die sich aus den Abfragen zusammensetzt ausgibt?

Hier mein vorläufiger Code zum besseren Verständniss:


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 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
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

Ich hoffe auf eure Unterstüzung ;)
Mit freundlichen Grüßen
Michael

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
Rot Bestimmten Bereich suchen
 15.07.2009 14:42:25 Michael
NotSolved
15.07.2009 16:28:55 Murdoc
NotSolved