ich habe nachfolgendes Macro, indem ich versuche bestimmte Zellen mit gleichen Inhalt in einem _
Range zu selectieren. Leider habe ich aber bei
Sub DeNrZaehler()
Dim i, i1, i2, i3, i4, z1 As Long
Dim StartRange, EndRange As String
'Anzahl der Zeilen
i1 = ActiveSheet.UsedRange.Rows.Count
'celle selctieren
ActiveSheet.Cells(10, 3).Select
i2 = CDbl(ActiveCell.Value)
z1 = 0
For i = 10 To i1
ActiveSheet.Cells(i, 3).Select
If z1 = 0 Then i4 = i
z1 = 1
If i2 CDbl(ActiveCell.Value) Then
i2 = CDbl(ActiveCell.Value)
StartRange = "A" & (i4) & ""
EndRange = "U" & (i - 1) & ""
'Nachfolgend habe ich diese Varianten ausprobiert mit den aber Excel nicht klar 'kommt:-(
' Cells(StartRange, EndRange).Select ' geht leider auch nicht
' Range("A" & (i4) & ":U" & (i)& ").Select
' ActiveCell.Range("A" & (i4) & ":U" & (i) & ").Select
' Range("A"&(i4)&", Range("U" & (i-1) & ")).select
End If
Next
End Sub
Ich hoffe jemand kann mir den richtigen tip geben.
Vielen Dank im vorraus.
Lvchabd