Makro an veränderte Anforderungen anpassen
26.03.2005 11:06:29
Fritz
ich habe hier im Forum das nachstehende Makro gefunden, das ich in einer Arbeitsmappe in veränderter Form verwenden möchte.
Nachfolgende Änderungen würde ich gerne realsieren:
1. In der Input-Box sollte der in der der Quelltabelle "Lagerung" in der
Spalte A in der letzten Zeile eingetragene Wert als voreingetragener Wert
erscheinen.
2. In die Zieltabelle ("Lagerausgang")sollten nur die Spalten A bis F der
Quelltabelle "Lagerung" kopiert werden.
Wäre nett, wenn einer von euch VBA-Spezialisten mir den Code entsprechend anpassen würde.
Für eure Unterstützung vielen Dank im Voraus.
Gruß
Fritz
Hier der Ausgangscode:
Sub wert_kopieren()
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("Lagerung")
Set wks2 = Sheets("Lagerausgang")
lrow = wks2.Range("A65536").End(xlUp).Row + 1
wert = Application.InputBox("Wert für die Suche eingeben!", "Suche", "212334")
Set rFind = wks1.Range("A:A").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("A:A").FindNext(rFind)
lrow = lrow + 1
Loop While sFirst <> rFind.Address
End If
sFirst = vbNullString
Set rFind = Nothing
End Sub