ich möchte den range A2:A25 nach den Werten X und Y durchsuchen. Sobald der Wert auftaucht soll die jeweilige Zelle 8 mal in der gleichen Reihe nach rechts kopiert werden. Wie löst man so etwas per VBA?
Vielen Dank schon mal.
Gruß
Chris
Public Sub Mehrfach()
Dim i As Long, raBereich As Range
With Worksheets("Tabelle1")
For i = 2 To .Cells(.Rows.Count, "A").End(xlUp).Row
Select Case .Cells(i, "A")
Case "x", "y"
.Cells(i, "A").Resize(, 8).Value = .Cells(i, "A").Value
Case Else
End Select
Next i
End With
End Sub
Gruß WernerSub Kopiere()
Dim rng As Range
For Each rng In Range("A2:A25")
If rng = "x" Or rng = "y" Then
rng.AutoFill Destination:=Range("A" & rng.Row & ":I" & rng.Row), Type:=xlFillCopy
End If
Next
End Sub
Gruß Matthias