Problem mit With / Do While / Zelleneintrag

[tyr0n]

Hallo Community,

ich komme gerade nicht weiter. Ich möchte beim klicken eines Buttons den Inhalt einer Userform in eine Tabelle übertragen.
Bevor dem Übertragen, soll geprüft werden, ob für das Bauteil bereits ein Eintrag vorliegt und dieser dann ggfs. überschrieben wird. Falls kein Eintrag vorhanden wird,
soll eine neue Reihe gewählt werden. Allerdings erhalte ich einen Error und meine Variable Newrow = leer. Hier der Code:

Code:

With Worksheets("Produktionsdaten")
        ReiheNr = 3
              Do While IsEmpty(Worksheets("Produktionsdaten").Cells(ReiheNr, 1)) = False
              If Worksheets("Produktionsdaten").Cells(ReiheNr, 2) = Label4.Caption Then
              Newrow = ReiheNr
         
              Else
              Newrow = Sheets("Produktionsdaten").Cells(Rows.Count, 1).End(xlUp).Row + 1
              End If
       
              ReiheNr = ReiheNr + 1
            Loop
           
        .Cells(Newrow, "A") = Newrow - 2
        .Cells(Newrow, "B") = Label4.Caption

End With

Wo liegt mein Fehler? Vielen Dank im Voraus

VG

tyr0n

[Elex]

Hi

ungetestet, da Bsp.Datei fehlt.

Code:

Public Sub Test()
Dim ReiheNr
With Worksheets("Produktionsdaten")
  ReiheNr = Application.Match(Label4.Caption, .Columns(2), 0)
  If Not IsNumeric(ReiheNr) Then ReiheNr = .Cells(Rows.Count, 1).End(xlUp).Row + 1
  .Cells(ReiheNr, "A") = ReiheNr - 2
  .Cells(ReiheNr, "B") = Label4.Caption
End With
End Sub

Gruß Elex