Hallo,
Danke für die Antwort, meintest du es so? Wenn ja funktioniert es leider nicht jetzt kopiert er beide Bereiche ohne die Abfrage was Wahr ist.
Private Sub KVLstart_Click()
Dim iRow As Long
If X1 = Wahr And X2 = Wahr Then
'
Sheets("Equipment").Range("A4:N10").Copy
With Sheets("Neu")
'letzte Zeile aus Spalte B (B=2) / +1, damit es nicht den letzten Eintrag überschreibt
iRow = .Cells(.Rows.Count, 1).End(xlUp).Row + 1
.Range("A" & iRow).PasteSpecial 'xlPasteValues
'Formeln und Formate mitkopieren? Wenn nein, das "xlpastevalues" einkommentieren.
End With
End If
If X1 = Wahr And X2 = False Then
'
Sheets("Equipment").Range("A12:N18").Copy
With Sheets("Neu")
'letzte Zeile aus Spalte B (B=2) / +1, damit es nicht den letzten Eintrag überschreibt
iRow = .Cells(.Rows.Count, 1).End(xlUp).Row + 1
.Range("A" & iRow).PasteSpecial 'xlPasteValues
'Formeln und Formate mitkopieren? Wenn nein, das "xlpastevalues" einkommentieren.
End With
End If
|