Microsoft Excel

Herbers Excel/VBA-Archiv

Loop in Makro einbauen

Betrifft: Loop in Makro einbauen von: Christian
Geschrieben am: 13.10.2014 10:42:36

Hallo zusammen

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

  

Betrifft: AW: Loop in Makro einbauen von: fcs
Geschrieben am: 13.10.2014 11:11:57

Hallo Christian,

hier 2 Varianten.
Eine macht genau 5 Schleifen, die andere stoppt, wenn die Zellselektion bis zur letzten Zeile im Blatt geht.

Sub acTest()
  Dim intI As Integer
  Application.CutCopyMode = False
  Range("B4").Select
  For intI = 1 To 5
    Range(Selection, Selection.End(xlDown)).Select
    Selection.FillDown
    Selection.End(xlDown).Select
  Next
  Range("A1").Select
End Sub

Sub abTest()
  Application.CutCopyMode = False
  Range("B4").Select
  Do
    Range(Selection, Selection.End(xlDown)).Select
    If Selection.Row + Selection.Rows.Count >= ActiveSheet.Rows.Count Then Exit Do
    Selection.FillDown
    Selection.End(xlDown).Select
  Loop
  Range("A1").Select
End Sub

Gruß
Franz


  

Betrifft: AW: Loop in Makro einbauen von: Christian
Geschrieben am: 13.10.2014 11:26:24

Hallo Franz

VIELEN DANK - funzt wie am Schnürchen;-)

Ich wünsche einen erfolgreichen Tag!

Grüsse Christian


 

Beiträge aus den Excel-Beispielen zum Thema "Loop in Makro einbauen"