|
Vielen Dank für die schnelle Antwort.
Ich habe mich leider viel zu ungenau ausgedrückt. Und zwar möchte ich alle zeilen einer spalte durchsuchen lassen nach verschiedenen Größen und die zeilen mit den gleichen Größen in eine separate Mappe kopieren. Eine Größe lautet zum Beispiel "<1μm". Ich muss also im Quelltext das "μ" angeben, damit danach gesucht werden kann. Mein Quelltext lautet wie folgt:
Sub Tabelle_ordnen()
Dim Anzahl As Long, B As Long
Dim SZelle As Range
Dim Suchwert As String
Suchwert = "<1ChrW(&H3B1)m" 'Suchbegriff
Anzahl = Application.WorksheetFunction.CountIf(Tabelle1.Range("B:B"), Suchwert)
For B = 1 To Anzahl
If B = 1 Then
Set SZelle = Tabelle1.Range("B:B").Find(Suchwert)
Rows(SZelle.Row).Copy Tabelle2.Cells(B, 1) 'ganze Zeile Kopieren
Else
Set SZelle = Tabelle1.Range("B:B").FindNext(SZelle)
Rows(SZelle.Row).Copy Tabelle2.Cells(B, 1) 'ganze Zeile Kopieren
End If
Next B
End Sub
Weis jemand wie ich das "μ" schreiben kann?
|