Kopieren mit X, Format und untereinander
17.10.2007 21:41:04
Karel
kann jetz von blatt 1 nach blatt 2 kopieren mochte aber gerne:
- wenn in [A3:A100] eine X eingetragen ist diese zeile bereich kopiert wird nach blatt 2 untereinander
- und wo und wie muss ich PasteSpecial xlPasteValuesAndNumberFormats einbauen.
Sub Copy1()
Dim wks1 As Worksheet, wks2 As Worksheet
Set wks1 = Worksheets("Tabelle1")
Set wks2 = Worksheets("Tabelle2")
wks1.[C3:E100].Copy Destination:=wks2.[B6] 'PasteSpecial xlPasteValuesAndNumberFormats
wks1.[G3:G100].Copy Destination:=wks2.[H6]
End Sub
Grüß
Karel