Excel VBA-Benutzerformular-Update-Schaltfläche

Question

Update-Schaltfläche funktioniert, wenn in Zellen neben der Zielzelle Wert ist das Problem in diesem Code nicht finden.

Private Sub CommandButton3_Click() 
Dim irow As Long, _ 
wS As Worksheet, _ 
NextRow As Long, _ 
cF As Range 
Set wS = Worksheets("stock") 
With wS 
    With .Range("A:A") 

     Set cF = .Find(What:=Me.ComboBox2.value, _ 
       After:=.Cells(1, 1), _ 
       LookIn:=xlValues, _ 
       LookAt:=xlWhole, _ 
       SearchOrder:=xlByRows, _ 
       SearchDirection:=xlNext, _ 
       MatchCase:=False, _ 
       SearchFormat:=False) 
    End With 

If Not cF Is Nothing Then 
    If cF.Offset(0, 1) <> vbNullString Then 
     Set cF = cF.End(xlToRight).Offset(0, 25) 
     cF.value = Me.TextBox2.value + .Cells(cF.row, "AA").value 
    End If 
Else 
    .Cells(cF.row, "AA").value = Me.TextBox2.value + .Cells(cF.row, "AA").value 
End If 

End With End Sub

wenn Zielzelle AA2 ist dann sollte es Wert in Z2 oder B2 sein sonst nichts passiert.

Just added ELSE-Anweisung aber mit sonst seiner Aktualisierung Wert in Spalte AB nicht in AA

Answer 1

Ich habe das nur auf Basis von Versuch Hit n und es funktioniert

`Private Sub CommandButton3_Click() 
    Dim irow As Long, _ 
    wS As Worksheet, _ 
    NextRow As Long, _ 
    cF As Range 
    Set wS = Worksheets("stock") 
    With wS 
    With .Range("A:A") 

    Set cF = .Find(What:=Me.ComboBox2.value, _ 
      After:=.Cells(1, 1), _ 
      LookIn:=xlValues, _ 
      LookAt:=xlWhole, _ 
      SearchOrder:=xlByRows, _ 
      SearchDirection:=xlNext, _ 
      MatchCase:=False, _ 
      SearchFormat:=False) 

.Cells(cF.row, "AA").value = Me.TextBox2.value + .Cells(cF.row, "AA").value 
End With 
End Sub`