Microsoft Excel

Excel und VBA: Formeln, Programmierung, Lösungen

Die Excel/VBA-Beispiele

Thema

Werte solange kopieren, wie Ganzzahl in Spalte A

Gruppe

Kopieren

Problem

Die Werte aus Spalte G sollen dann in Spalte H kopiert werden, wie in Spalte A eine Ganzzahl vorkommt.

Lösung
Geben Sie den nachfolgenden Code in ein Standardmodul ein und weisen Sie ihn einer Schaltfläche zu.

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