Zellbereich ermitteln

Bild

Betrifft: Zellbereich ermitteln
von: Ilona
Geschrieben am: 04.11.2003 18:30:43

Hallo alle zusammen, ich brauche etwas Hilfe.
Mein Problem: Ich habe in einer Spalte AN alle Kundengruppen die zu Kunden zugeordnet sind sortiert aufgelistet(sie können also auch mehrfach auftreten).
Sie sind aufsteigend sortiert.
Ich möchte für jede Kundengruppe den Zellbereich ermitteln, wo jede einzelne Kundengruppe drin steht. Also z.B. KG 1 steht in AN1:AN3, KG 2 AN4:AN6. Die Daten können aber immer wieder unterschiedlich sein.
Hier schon mal mein Code, der aber nicht richtig funktioniert. Was muss ich dran ändern.
Ich bedanke mich schon mal für eure Ratschläge.
ILONA

Bild


Betrifft: AW: Zellbereich ermitteln/ Code
von: ILONA
Geschrieben am: 04.11.2003 18:32:37

Hab den Code vergessen, hier ist er

Sub RangeErmitteln()
Dim KDG As String, lKDG As String, vKDG As String
Dim LineIndex As Integer, OutIndex As Integer, Line As Integer
Dim lZ As Integer
Dim sRange As String
KDG = "@@@@@"
vKDG = "@@@@@"
LineIndex = 2
OutIndex = 2
Line = 2
lZ = Range("AN65536").End(xlUp).Row
Do While (Worksheets("Import").Cells(LineIndex, 40) <> "")
    KDG = Worksheets("Import").Cells(LineIndex, 40)
    lKDG = Worksheets("Import").Cells(lZ, 40)
    
    If (KDG > "") Then
        If ((KDG <> vKDG) And (vKDG < lKDG)) Then
    
            sRange = "$AN$" + CStr(Line) & ":$AN$" + CStr(LineIndex)
            Worksheets("Import").Cells(OutIndex, 42) = sRange
            OutIndex = OutIndex + 1
     Line = Line + 1
        End If
    End If
    vKDG = KDG
    LineIndex = LineIndex + 1
Loop
End Sub



Bild

Beiträge aus den Excel-Beispielen zum Thema " Zellbereich ermitteln"