Som i nok kan se så længst til venstre skifter den mellem 1 og 0 Jeg vil gerne havde lavet en macro der fortæller mig hvor mange 1ér der er inden den skifter til 0, derefter vil jeg gerne vide hvor mange 0ér der er fra den skiftede til 0 til den skifeter til 1 igen, og derefter vil jeg igen gerne vide hvor mange 1ér der er fra den skiftede til 1 til den bliver 0 igen osv. Jeg skal ikke bruge et tal der viser det totale antal af 1ér & 0ér men hvor mange der er imellem "skiftet"
Sub TælTal() Dim Data As Variant, DataTal() As Variant, I As Long Dim antalTal As Integer Data = Range(Range("A1"), Range("C65536").End(xlUp).Offset(1, 0)) ' ret til hvor dine data står, her A, B og C kolonnen brugt ReDim DataTal(UBound(Data) - 1) antalTal = 1 For I = 1 To UBound(Data) - 1 If Data(I, 3) = Data(I + 1, 3) Then antalTal = antalTal + 1 Else DataTal(I - 1) = antalTal antalTal = 1 End If Next
' ret D til den kolonne den må skrive i, alt i kolonnen bliver overskrevet Range(Range("D1"), Range("D" & UBound(DataTal) + 1)) = WorksheetFunction.Transpose(DataTal) End Sub
Sub TælTal() Dim Data As Variant, DataTal() As Variant, I As Long Dim antalTal As Integer, X As Integer Data = Range(Range("A1"), Range("C65536").End(xlUp).Offset(1, 0)) ' ret til hvor dine data står, her A, B og C kolonnen brugt ReDim DataTal(UBound(Data) - 1) antalTal = 1 For I = 1 To UBound(Data) - 1 If Data(I, 3) = Data(I + 1, 3) Then antalTal = antalTal + 1 Else DataTal(I - 1) = antalTal antalTal = 1 End If Next
' ret D til den kolonne den må skrive i, alt i kolonnen bliver overskrevet X = 1 ' første rækkei i kolonnen For I = 0 To UBound(DataTal) If Not IsEmpty(DataTal(I)) Then Range("D" & X) = DataTal(I) X = X + 1 End If Next End Sub
Hatten a det er lige hvad jeg skulle bruge, takker mange gange for hjælpen...
Synes godt om
Ny brugerNybegynder
Din løsning...
Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.