Recent content by danane

xlbo and anotherhiggins thank you very much. your suggested code works fine!! Sorry for not explainig things exactly from the beginning on...:)

@xlbo. it displays the result 2.

Let's make it more simple. I only want to sort column M. BEFORE: M1: Value= 2 Formulae= MIN(H1:K1) M2: Value= 4 Formulae= MIN(H2:K2) M3: Value= 1 Formulae= MIN(H3:K3) AFTER: M1: Value= 1 Formulae= NO FORUMULA ANY MORE M2: Value= 2 Formulae= NO FORUMULA ANY MORE M3: Value= 4 Formulae= NO...

1. yes, just in column m 2. just formulae You see? The cells show just the values, but behind there are formulae (in column m).

I don't want to ignore the formulae. Example: Cell M3 has the formula =MIN(H3:K3) and the VALUE 2, because: H3, Value 3 I3, Value 2 J3, Value 9 K3, Value 4 Alright? So when I want to sort column m, i want to sort the values, but Excel just sees the formulae...

I recorded the macro, so I did it manually.... I don't how I can do it else.

No, it should happen automatically. It's a business application... Any other ideas? :)

Really? Is there no other way to do that?

I want to sort a range. The problem is that the cells in column M have formulas like =MIN(H3:K3). I only want to sort the values, not the formulas. I made a code, but the XLVALUES or something like that is missing. I don't know where to put this in ... Thanks for helping. Code...

I've got a table 1 and a table 2. In both tables, there are many entries. Well, I want to delete all entries in the table 1 that do not exist in table 2. I don't know how I can manage to do this task. Thanks a lot for your help!!! example: FIRST: table 1: table 2: dog dolphin...

Great! It works now! Thanks a lot for your help! :)

I corrected the code to the following: Dim z As Integer Dim Arr() As String Dim intcounter As Integer With Application.FileSearch .NewSearch .LookIn = "C:\List" .FileType = msoFileTypeAllFiles .Execute For z = 1 To .FoundFiles.Count If Left(.FoundFiles(z), 3) = "txt" Then...

Thanks for your replies. It still says:"Subscript out of range." at line "Sheets("navigation").ListBox1.List = Arr". I replaced that line with "Debug.Print Arr(intercounter)" and it still won't work.

Hello, I always get the following error-message:"Subscript out of range." Please help me finding the mistake in the code. Thanks!! Dim z As Integer Dim Arr() As String Dim intcounter As Integer With Application.FileSearch .NewSearch .LookIn = "C:\Lists" .FileType = msoFileTypeAllFiles...