Microsoft Excel

Herbers Excel/VBA-Archiv

Informationen und Beispiele zum Thema InputBox
BildScreenshot zu InputBox InputBox-Seite mit Beispielarbeitsmappe aufrufen

Zeilen mit bestimmten Wert kopieren

Betrifft: Zeilen mit bestimmten Wert kopieren von: Georg
Geschrieben am: 19.10.2020 15:49:36

Liebe Mitglieder, die Datei ist hier.
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

Betrifft: AW: Zeilen mit bestimmten Wert kopieren
von: ralf_b
Geschrieben am: 19.10.2020 16:03:03

 If .Cells(iRowS, 1).Value = CDbl(sID) Then


Betrifft: AW: Zeilen mit ... vielen Dank, genial, obwohl
von: Georg
Geschrieben am: 19.10.2020 16:12:09

..ja wenn ich über Format geht, mir das Zahlenformat angezeigt wird. Aber mit Datev Exporten hatte ich schon öfters solche Probleme. Gruß G

Beiträge aus dem Excel-Forum zum Thema "Zeilen mit bestimmten Wert kopieren"