bestimmte Spalten einer Zeile kopieren
14.06.2018 12:55:21
Wilfried
mein Problem:
Ich möchte per VBA die Zellen der Spalten A, B und F aus dem Tabellenblatt "Anfragen" kopieren, wenn die Spalte F den Wert "Zusage" enthält. Die kopierten Zellen sollen in das Tabellenblatt "Zusagen" eingefügt werden.
Ich nutze derzeit diese Makro:
Es wird allerdings immer die gesamte Zeile kopiert. Ich würde den Code daher gerne anpassen:
Sub Spaltenauswahl_kopieren()
Dim iRow As Integer, iRowT As Integer
Sheets("Anfragen").Select
iRow = 1
Do Until IsEmpty(Cells(iRow, 1))
If Cells(iRow, 6).Value = "Zusage" Then
iRowT = iRowT + 1
Worksheets("Zusagen").Rows(iRowT + 1).Value = _
Rows(iRow).Value
End If
iRow = iRow + 1
Loop
End Sub