Loop in Makro einbauen
13.10.2014 10:42:36
Christian
ich brauche seit neuestem ein paar Makros um etwas wirre Listen aus unserem ERP System datenbanktauglich zu machen. Nun habe ich eine Liste in welcher ich Daten unten ausfüllen will bis eine leere Zelle vorhanden ist. Hier der Makroausschnitt, den ich entsprechend mit einem Loop ersetzten will. Kann mir da jemand helfen.
Application.CutCopyMode = False
Range("B4").Select
Range(Selection, Selection.End(xlDown)).Select
Selection.FillDown
Selection.End(xlDown).Select
Range(Selection, Selection.End(xlDown)).Select
Selection.FillDown
Selection.End(xlDown).Select
Range(Selection, Selection.End(xlDown)).Select
Selection.FillDown
Selection.End(xlDown).Select
Range(Selection, Selection.End(xlDown)).Select
Selection.FillDown
Selection.End(xlDown).Select
Range(Selection, Selection.End(xlDown)).Select
Selection.FillDown
Range("A1").Select
End Sub
Vielen Dank und Grüsse Christian