Makro Schleife
01.05.2007 23:46:00
Hans-Joachim
habe mir ein Makro erstellt, welches in Spalte A nach dem Buchstaben "R" suchen soll und dann die Inhalte der vier Zellen daneben (In Spalte B, C, D und E) löschen bzw. durch den kopierte Inhalt von vier leeren Zellen ersetzen soll. Auf jeden Fall sollen die besagten Zellen anschließend leer sein.
Sub Makro2()
Application.ScreenUpdating = False
Range("B2:E2").Select
Selection.Copy
Range("A3").Select
For Each Cell In Range("A3:A27")
If ActiveCell [A1] Then
ActiveCell(Selection.Rows.Count + 1, 1).Select
End If
Next
For Each Cell In Range("A3:A27")
If ActiveCell = [A1] Then
ActiveCell(Selection.Count, 2).Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("A3").Select
End If
Next
Application.CutCopyMode = False
Range("B3").Select
Application.ScreenUpdating = True
End Sub
Dieses Makro entfernt aber jeweils nur ein Mal den Inhalt der daneben liegenden Zellen. Habe ich etwa 5x den Buchstaben R, muss ich das Makro 5x laufen lassen.
So war das nicht gewollt. Das Makro soll das allein machen.
Weiß jemand Rat?
Danke
Gruß Hans