Fultersuche und...
02.10.2013 15:20:04
Rosenwasser
Unterstehendes Antwort habe ich auf eine von meine Fragen von Franz bekommen.
Es funktioniert Super aber wie Schaft man es um die einzufügen neue Reihe, auch auflaufend sortiert einzufügen?
Gruß,
Benny
------------------------------------------------------------
Private Sub Save_Click()
Dim lngWriteRow As Long
Dim ws As Worksheet
Dim lastRow As Long, i As Long
Dim strSearch As String
Dim t As Long
Dim rngCell As Range
On Error GoTo ErrorProcessing
Set ws = Worksheets("Project")
t = GetTickCount
strSearch = Projectnr.Value
With ws
'Letzte Datenzeile in Spalte B
lastRow = .Cells(.Rows.Count, 2).End(xlUp).Row
If lastRow