Gruppe
Allgemein
Problem
Die Werte aus Spalte G sollen dann in Spalte H kopiert werden, wie in Spalte A eine Ganzzahl vorkommt.
StandardModule: Modul1
Sub CopyValues()
Dim iRow As Integer
iRow = 1
Do Until IsEmpty(Cells(iRow, 1))
If IsNumeric(Cells(iRow, 1).Value) Then
If Cells(iRow, 1).Value - Fix(Cells(iRow, 1).Value) = 0 Then
Cells(iRow, 8).Value = Cells(iRow, 7).Value
End If
End If
iRow = iRow + 1
Loop
End Sub