Et problem i excel?

Har en løsning på dit spørgsmål

Må jeg se den?

Jeg har et bud på en løsning du gerne må se...;-)

Sub flytværdier()

    Dim i As Integer
    Dim TælM As Integer
    Dim TælT As Integer
    Dim TælO As Integer

Sheets("ark1").Activate

For i = 1 To Sheets("ark1").Range("B250").End(xlUp).Row
Cells(i, 2).Select
        If ActiveCell.Value = "Mandag" Then
            TælM = TælM + 1
            MAN = ActiveCell.Offset(0, -1).Value
            Sheets("ark2").Range("A" & TælM + 1).Value = MAN
        End If
        If ActiveCell.Value = "Tirsdag" Then
            TælT = TælT + 1
            TIR = ActiveCell.Offset(0, -1).Value
            Sheets("ark2").Range("B" & TælT + 1).Value = TIR
        End If
        If ActiveCell.Value = "Onsdag" Then
            TælO = TælO + 1
            ONS = ActiveCell.Offset(0, -1).Value
            Sheets("ark2").Range("C" & TælO + 1).Value = ONS
        End If
       
Next
End Sub

Øverste række på Ark2, har jeg brugt til overskrifterne: Mandag, Tirsdag og Onsdag

staal84 - jeg takker mange gange!