Kopieren nur bis Spalte K (Abis K) Makrohilfe
17.11.2005 20:17:11
Heribert
mit folgendem Makro kopiere ich ausgesuchte Zeilen,
allerdings werden die kompletten Zeilen kopiert.
Würde aber gerne nur a bis k kopieren und wenn machbar die vorhanden
Zeilen in Zieltab überschreiben.
Sub kopieren5()
Dim wks1 As Worksheet
Dim wks2 As Worksheet
Dim wert As String, rFind As Range
Dim lrow As Long, i As Long
Dim sFirst As String
Set wks1 = Sheets("Blatt1")
Set wks2 = Sheets("Blatt2")
lrow = wks2.Range("A65536").End(xlUp).Row + 1
wert = Application.InputBox("Bitte die Nr. eingeben (1..40)!", "Suche", "Nr")
Set rFind = wks1.Range("C:C").Find(what:=wert, LookIn:=xlValues, lookat:=xlWhole)
If Not rFind Is Nothing Then
sFirst = rFind.Address
Do
rFind.EntireRow.Copy wks2.Cells(lrow, 1)
Set rFind = wks1.Range("C:C").FindNext(rFind)
lrow = lrow + 1
Loop While sFirst <> rFind.Address
End If
sFirst = vbNullString
Set rFind = Nothing
End Sub
Besten Dank im Voraus
Heribert
Anzeige