Zeilen mit bestimmten Wert kopieren
19.10.2020 15:49:36
Georg
https://www.herber.de/bbs/user/140976.xlsm
Ein Sachbearbeiter soll die P-Nr eingeben, und dann sollen alle Zeilen im Blatt Jahresdaten, in der die P-Nr steht, zum Blatt Einzelausgabe kopiert werden. Die Daten sind in der Praxis deutlich umfangreicher, als hier als Beispiel gezeigt. Der Code läuft durch, macht aber nix :-( ?
Ich komme nicht drauf an was es liegt! Vielen Dank für einen Tipp!
Der Code lautet so:
Sub FindenUndKopieren()
Dim iRowS As Integer, iRowT As Integer
Dim sID As Variant
Dim wshEinzel As Worksheet
Set wshEinzel = ThisWorkbook.Sheets("Einzelausgabe")
Dim wshJahr As Worksheet
Set wshJahr = ThisWorkbook.Sheets("Jahresdaten")
sID = InputBox( _
prompt:="PersonalNummer eingeben")
If sID = "" Then Exit Sub
iRowS = 1
iRowT = 1
With wshJahr
Do Until IsEmpty(.Cells(iRowS, 1))
If .Cells(iRowS, 1) = sID Then
.Rows(iRowS).Copy Destination:=wshEinzel.Rows(iRowT)
iRowT = iRowT + 1
End If
iRowS = iRowS + 1
Loop
End With
End Sub
Anzeige