Excel VBA - Fehler '1004', wenn der Wert in den letzten nicht leeren Zeile einzufügen

Question

ich Laufzeitfehler '1004'

Anwendungs ​​definiert oder Objekt definierte Fehler

wenn i‘ m versuche den Wert ab B19 einzugeben.

Unten sind die Code:

Private Sub test() 

If Application.CountIf(Sheets("Sheet1").Columns(2), Range("A5").Value) Then 
    MsgBox "Already taken, try another username" 
Else 
    MsgBox "Done" 
    Sheets("Sheet1").Range("B19" & Rows.Count).End(xlUp).Offset(1, 0) = Range("A5").Value 

End If 

End Sub 

Der Zweck dieses Codes ist Wert von A5 einzufügen nicht leere Zeile ausgehend von B19 dauern.

Answer 1

Sie könnte dies versuchen:

Private Sub main() 
    With Sheets("Sheet1") 
     With .Range("B19:B" & WorksheetFunction.Max(.Cells(.Rows.Count, 2).End(xlUp).Row, 19)) 
      If Application.CountIf(.Cells, .Parent.Range("A5").Value) > 0 Then 
       MsgBox "Already taken, try another username" 
      Else 
       .Cells(.Rows.Count + IIf(IsEmpty(.Cells(.Rows.Count)), 0, 1)).Value = .Parent.Range("A5").Value 
       MsgBox "Done" 
      End If 
     End With 
    End With 
End Sub 

Answer 2

2 Kommentare:

Erstens: CountIf eine Zahl zurückgibt, so, wenn es atleast ein Graf ist, sollten Sie prüfen, ob das Ergebnis> 0 (nicht bei True).

Zweitens: Um in die letzte Zeile mit Daten nach Range ("B19") zu gelangen, müssen Sie .Range("B" & .Rows.Count).End(xlUp).Offset(1, 0) verwenden.

den Code Versuchen Sie unter:

Private Sub test() 

With Sheets("Sheet1") 
    If Application.CountIf(.Columns(2), .Range("A5").Value) > 0 Then 
     MsgBox "Already taken, try another username" 
    Else 
     If .Cells(.Rows.Count, "B").End(xlUp).Row < 19 Then ' <-- check if the last row in Column B is less than 19 
      .Range("B19").Value = .Range("A5").Value 
     Else 
      .Range("B" & .Rows.Count).End(xlUp).Offset(1, 0).Value = .Range("A5").Value 
     End If 

     MsgBox "Done"   
    End If 
End With 

End Sub