title image


Smiley Daten auslesen und in einen definierten Bereich schreiben
excel 2003 und xp



problem beschreibung (ich probiere es)



habe eine excel datei mit einem drop-down feld - die daten des drop-down-feldes werden aus dem zellbereich IU1:IU89 ausgelesen. [linkedcell = IV65535] (das funkt). die einträge des dropdownfeldes beginnen alle mit einer 6stelligen nummer (z.B. 130100_text, 130200_text, 130300_text .......)

in der spalte IV1:IV350 stehen hingegen andere einträge die auch mit einer sechstelligne zahl beginnen - 130101_text, 130102_text, 130102_text ...)



ich möchte nun sobald ich im dropdownfeld einen eintrag auswählen (z.b. 130100_txt) dass mit excel in den bereich K1:K20 alle einträge einträgt, die in den ersten 4 ziffern identisch sind - so sollte bei der auswahl 1301_txt in den bereich K1:K20 untereinander alle einträge der spalte IV eingetragen werden, deren erste vier ziffern gleich sind.



habe den kode eingegeben (nachstehend) aber ich bekomme dauernd eine fehlernmeldung

"index ausserhalb des gültigen bereiches"



Sub FilterDirektion()

Dim i

Dim j



Application.ScreenUpdating = False

Application.CutCopyMode = False



'------ Initialisierung Kopierbereich --------------

Range("K1:K20").Select

Selection.ClearContents

Range("K1:K20").Select



'----- Schleifenlösung -----------------------------

j = 1

For i = 1 To 500



If IsEmpty(Worksheets("Daten").Cells(i, 255)) = True Then Exit For 'Austieg am Ende

If Left(Worksheets("Daten").Cells(i, 255), 4) = Left(Worksheets("Daten").Cells(65535, 256), 4) Then



Worksheets("Daten").Cells(j, 11) = Worksheets("Daten").Cells(i, 256) 'Schule kopieren



j = j + 1

End If

Next i



Range("C4").Select



End Sub



kann mir weiterhelfen




tutenchamun

geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: