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