VBA-Programmierung in Microsoft Excel

Tutorial: Excel-Beispiele

Solange kopieren, wie ein Wert in einer Spalte vorkommt

Gruppe

Allgemein

Bereich

Kopieren

Thema

Solange kopieren, wie ein Wert in einer Spalte vorkommt

Problem

Die Werte aus Spalte G sollen solange in Spalte H kopiert werden, wie in Spalte A der Wert 11 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 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

    


Beiträge aus dem Excel-Forum zu den Themen Allgemein und Kopieren