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 |