gleiche Werte gruppieren
03.03.2006 14:48:17
Anja
ich habe schon mehrmals versucht um Ihre Hilfe zu bieten, aber
niemand erhört mich :)
Versuche also noch mal... inzwischen habe ich schon selbst was gemacht...
aber funktioniert trotz meiner Mühe nicht :)
Also: :)
Im bereich B12:B21
sollten die Zellen gruppiert werden, bei denen erste drei Zeichen
gleich sind.
ACR usai1acr
ACR usai2acr
ACR usciacr
AER usai1aer
AER usai2aer
AER usciaer
AIR usai1air
AIR usai2air
AIR usciair
Die Schwierigkeit besteht darin, das Start und Ende Wert (an dem Punkt wo die werte sich unterscheiden) rauszufinden.
Habe das hier programmiert:
Sub Gruppe_perfekt()
For i = 12 To 21
Zusatz = Left(Cells(i, 2).Value, 3)
If Trim(Zusatz) <> strTemp Then
a = i
Set Unten = Range(Cells(a, 2), Cells(a, 2))
Else
GoTo weiter
End If
Set Oben = Range(Cells(i, 2), Cells(i, 2))
strTemp = Trim(Zusatz)
Range(Oben.Address, Unten.Address).Select
Selection.group
weiter: Next
End Sub
Es nimmt aber immer nur ersten Wert... :(
Ich bin echt am Verzweifeln :)
Könnt ihr mir bitte freundlicher Weise helfen...?
Wenn es sein muss, kann ich es sogar bezahlen.
viele Grüße
Anja