Hallo Ihr,
ich versuche gerade als blutiger Anfänger eine Tabelle zu organisieren dazu möchte ich wenn bestimmte Bedingungen erfüllt sind einen Zellen bereich in ein neues Tabellenblatt einfügen. Dies soll immer in der ersten freien Zeile passieren.
Mein derzeitger Versuch zusammen gestückelt aus dem Netz:
If X1 = Wahr And X2 = Wahr Then
'
Dim iRow As Long
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
'
Dim iRow As Long
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
Zur erklären:
1. Wenn X1 und X2 Wahr ist soll er Aus dem Blatt Equipment den Bereich A4:N10 kopieren und in die Tabelle Neu einfügen
2. Wenn X1 Wahr und X2 Falsch dann den Bereich A12:N18
Ich bekomme hier immer wieder die Fehlermeldung "Fehler beim Kompilieren Mehrfachdeklaration im aktuellen Gültigkeitsbereich".
Kann mir Bitte jemand helfen wie ich diesen Fehler behebe bzw. das ganze Vorgehen so reproduzieren kann das ich weitere Abfragen einbauen kann?
Vielen Dank
Gruß Alex
|