Hallo,
ich versuche die ganze Zeit folgende Aufgabe per VBA zu lösen.
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
es sollten also am Ende Gruppen ACR, AER und AIR enstehen.
Die Schwieregkeit besteht darin, die Range der Selection zu erkennen
also das punkt wo die Strings sich unterscheiden.
so finde ich die erste drei Zeichen in dem Bereich:
Dim rng as Range
Dim Zusatz
Dim Bereich As Range
zeile = Cells(Rows.Count, 2).End(xlUp).Row
Set Bereich = Range("B12:B" & zeile)
For Each rng In Bereich 'rngEmpty.Areas
Zusatz = Left(rng.Value, 3)
Next
... und so ungefähr sollte es wahrscheinlich gruppiert werden
Range("B" & start & ":B" & ende).Select
Selection.Group
Aber wie man eben diese start und ende (also die stellen wo die Werte sich unterscheiden) weiss ich leider nicht :(
Habe auch mehr mals probiert, aber es klappt nicht.
Deswegen ihr seid meine letzte Hoffnung.
Würde mich sehr freuen über eure Hilfe.
viele Grüße
Anja