Von Spalte x bis y kopieren
05.12.2002 10:33:46
Denise
Ich habe folgendes Problem.
Ich möchte einen Wert suchen und wenn der Wert in Spalte B gefunden wird soll in der Zeile die Zellen A bis F kopiert werden.
In meinen Programm wird leider immer nur die ganze Zeile kopiert.
Private Sub CommandButton1_Click()
Dim zeile As Integer, ausgabezeile As Integer
ausgabezeile = 2
Sheets("Tabelle2").Select
With Sheets("Tabelle1")
For zeile = 2 To .Range("B65536:C65536").End(xlUp).Offset(1, 0).Row
If .Cells(zeile, 2).Value = "Wert1" And .Cells(zeile, 3).Value = "Wert2" Then
!!! .Cells(zeile, 2).EntireRow.Copy !!!
ActiveSheet.Range("A" & CStr(ausgabezeile)).Select
ActiveSheet.Paste
ausgabezeile = ausgabezeile + 1
End If
Next zeile
End With
End Sub
Meine Frage: Was muss zwischen den !!! stehen damit nicht die ganze Zeile sondern nur von Sp alte A bis G die Werte kopiert werden.
Um einen Tipp wäre ich euch sehr dankbar.
Mit freundlichen Grüßen
Denise