AW: Mehrere Zeilen verschieben VBA
03.05.2017 16:35:03
Daniel
dann so.
ich habe als Entscheidungsspalte die Spalte 7 genommen, weil da schon "ja" oder "nein" drin steht und ich das in Spalte 13 nicht ändern kann.
musst halt ggf für deine Datei anpassen.
Private Sub CommandButton1_Click()
Dim Zelle As Range
Dim shZiel As Worksheet
For Each Zelle In Sheets("Projekte offen").Columns(7).SpecialCells(xlCellTypeConstants, 2)
Select Case Zelle.Value
Case "ja", "nein"
If Zelle.Value = "ja" Then
Set shZiel = Sheets("Projekte Auftrag")
Else
Set shZiel = Sheets("Projekte verloren")
End If
With Zelle.MergeArea.EntireRow
.Copy
With shZiel.Cells(Rows.Count, 1).End(xlUp).Resize(1, 1)
.Offset(1, 0).PasteSpecial xlPasteAll
End With
End With
Case Else
End Select
Next
With Sheets("Projekte offen").Columns(7)
.Replace "ja", 1, xlWhole
.Replace "nein", 1, xlWhole
If WorksheetFunction.Sum(.Cells) > 0 Then
.SpecialCells(xlCellTypeConstants, 1).EntireRow.Delete
End If
End With
End Sub
Gruß Daniel
