Gruppe
Allgemein
Problem
Die Werte aus Spalte G sollen solange in Spalte H kopiert werden, wie in Spalte A der Wert 11 vorkommt.
StandardModule: Modul1
Sub CopyValues()
Dim dValue As Double
Dim iRow As Integer
dValue = 11
iRow = 1
Do Until IsEmpty(Cells(iRow, 1))
If Cells(iRow, 1).Value = dValue Then
Do While Cells(iRow, 1).Value = dValue
Cells(iRow, 8).Value = Cells(iRow, 7).Value
iRow = iRow + 1
Loop
End If
iRow = iRow + 1
Loop
End Sub