AW: text zahlen format sortieren
06.01.2008 20:43:10
christian
hi erich
danke das sooo zäh bist
also die formrln habe ich gelöscht.
das mit den formeln ist eine gute idee jedoch ist mir da schon meine suchabfrage lieber weil
es gibt länder die nicht immer den gleichen namen haben das is das nächste problem
bespiel:
deutschland
germany
germania
serbia
serbien
serbia montenegro usw.
bei einer suchabfrage genügt es meistens wenn ich 3buchstaben eingebe und ich bekomme alle tarife
aber was anderes
hast du eine idee wie ich die ergebnisse von der such abfrage nach rang sortien kann
also zb 1.testsieger 12voip deutsclan handy 0,001 usw.
hier der code der mir das suchergebniss in die tabelle "Suchwerte"gleich in die zwischen ablage kopiert
damit ich sie dem kunden gleich im chat raum rüberkopiren kann.
Sub suchen()
Dim rngFind As Range, rngRows As Range
Dim lngRow As Long
Dim strFind As String, strSearch As String
Application.ScreenUpdating = False
'TEBELLE VOR DEM EINFÜGEN LEEREN
Sheets("Suchwerte").Columns("A:S").Delete Shift:=xlToLeft
Sheets("Vergleich").Select
strSearch = InputBox("Suchbegriff:", , "Türkei")
If strSearch = "" Then Exit Sub
Set rngFind = Cells.Find(strSearch)
If Not rngFind Is Nothing Then
strFind = rngFind.Address
Do
If rngRows Is Nothing Then
Set rngRows = rngFind.EntireRow
Else
Set rngRows = Union(rngRows, rngFind.EntireRow)
End If
Set rngFind = Cells.FindNext(After:=rngFind)
Loop Until rngFind.Address = strFind
rngRows.Copy Sheets("Suchwerte").Range("A1")
'FORMATIERUNG
Sheets("Suchwerte").Select
Range("A1").Select
Columns("M:AH").Delete Shift:=xlToLeft
With Range("F1:L3").Font
.Size = 14
.Strikethrough = False
.Superscript = False
.Subscript = False
.OutlineFont = False
.Shadow = False
.Underline = xlUnderlineStyleNone
End With
Columns("B:L").AutoFit
Range("H1:H19").Font.ColorIndex = 10
Else
MsgBox "Nix gefunden"
End If
Application.ScreenUpdating = True
End Sub
vieleich kann man da was einbauen?
danke
christian neu