Ich brauche mal eine schnelle Hilfe.
Möchte gerne das wenn ich in Spalte A einen Wert mit 999 habe, daß alle
diese Zeilen OHNE Spalte A, also ab der Spalte B, in eine Datei (Aktuell.xls)
eingefügt werden aber nur als Werte. Werte dürfen in Aktuell.xls nur
eingefügt werden da die Formatierung verschieden ist und von Aktuell.xls
beibehalten werden muß.
Ich habe schon ein Makro, aber was muß geändert werden?
Sub kopieren()
For i = 1 To Cells(Rows.Count, 1).End(xlUp).Row ' -> 1 steht für die Spalte A
On Error Resume Next
If Cells(i, 1).Value = "999" Then ' -> 1 steht für die Spalte A und nach dem Wert "999" wird gesucht
Rows(i).Copy Destination:=Sheets("Tabelle2").Cells(Sheets("Tabelle2").Cells(Rows.Count, 1).End(xlUp).Row + 1, 1)
End If
Next
End
Sub