gibt es eine VBA-Lösung / Möglichkeit um die Datensätze die mit der Excel "Suchen und Ersetzen-Funktion" gefunden wurden, in ein Tabellenblatt "Suchergebnis" aufzulisten ?
Gruß
Fred
Sub auslesen()
Dim x As Double
Dim Loletzte As Long
Dim Bereich As Range
Dim Zelle As Long
Loletzte = Cells(Rows.Count, 1).End(xlUp).Row
Set Bereich = Range(Cells(1, 1), Cells(Loletzte, 1))
For Zelle = 1 To Loletzte
x = CDbl(Replace(Cells(Zelle, 1), "m3 x ", ""))
Cells(Zelle, 2).Value = x
Next Zelle
End Sub
Matze
Sub auslesen()
Dim x As Double
Dim Loletzte As Long
Dim Bereich As Range
Dim Zelle As Long
Loletzte = Cells(Rows.Count, 1).End(xlUp).Row
Set Bereich = Range(Cells(1, 1), Cells(Loletzte, 1))
For Zelle = 1 To Loletzte
x = CDbl(Replace(Cells(Zelle, 1), "m3 x ", ""))
Cells(Zelle, 2).Value = x
Next Zelle
End Sub
Matze
Sub aaa()
Dim oCell,SuchString as String
For Each oCell In ActiveSheet.UsedRange.Cells
If InStr(1, oCell, SuchString, vbTextCompare) > 0 Then
Application.Union(Selection, oCell).Select
End If
Next
Selection.EntireRow.Select
Selection.Copy
Sheets("Suchergebnis").Paste
End Sub
Natürlich unelegant gelöst mit Select, außerdem fehlt der Bezug aufs zu durchsuchende Tabellenblatt.
Sub aaaa()
Selection.EntireRow.Select
Selection.Copy
Sheets("Suchergebnis").Paste
End Sub
Der hier entfernte Teil aus dem ersten Makro ersetzt den Suchassistenten, wenn Du so willst.