Wiederholungsschleife
19.11.2003 17:09:26
Mascha
ich möchte für jede Zelle von Spalte G, die eine 2 enthält, die Zellen A bis G in die darunter liegende Zeile kopieren. Die Prozedur habe ich, glaube ich, von hier:
Cells.Find(What:="2", After:=ActiveCell, LookIn:=xlFormulas, LookAt:= _
xlPart, SearchOrder:=xlByColumns, SearchDirection:=xlNext, MatchCase:= _
False).Activate
Range(Selection, Selection.Offset(0, -6)).Select
Selection.AutoFill Destination:=ActiveCell.Range("A1:G2"), Type:=xlFillCopy
Funktioniert. Aber wie kriege ich das hin, dass mein Makro diese Prozedur für jede 2 in Spalte G wiederholt (dann könnte ich mir Cells.Find... sparen)?
Ich habe es so probiert:
Sub Kopieren()
Dim zelle As Object
Dim Inhalt As String
Columns("G:G").Select
For Each zelle In Selection
If zelle.Value = 2 Then
Range(zelle, zelle.Offset(0, -6)).Select
Selection.AutoFill Destination:=ActiveCell.Range("A1:G2"), Type:=xlFillCopy
End If
Next zelle
End Sub
Aber dann kopiert das Makro die erste Zeile immer weiter, bis ich unterbreche.
Kann mir jemand helfen?
Vielen Dank im voraus.
Gruß
Mascha
Anzeige