Nun suche ich nach einer Lösung, wie ich, bevor ich speichere, prüfe, ob der Eintrag vorhanden ist und wenn ja, dann in einer Spalte daneben einen weiteren Wert speicher.
Bei meinem Versuch, bleibt das Makro beim suchen und finden, hängen.
Was mache ich hier falsch? Kann mir hierzu jemand helfen
Private Sub CommandButton2_Click()
Set Zieldatei = Workbooks.Open("C:\allg. Daten\Stand Anlage Artikel.xls")
Set QuellTabelle = ThisWorkbook.Worksheets("Tabelle1")
Dim rng As Range
Set rng = Zieldatei.Range("B1:B100").Find(QuellTabelle.Sheets(1).Cells(2, 4)) An dieser _
Stelle steigt das Makro aus.
If rng Is Nothing Then
MsgBox "Nichts gefunden"
Exit Sub
End If
QuellTabelle.Cells(2, 4).Copy _
Zieldatei.Sheets("Waren").Range("C65536").End(xlUp).Offset(1, 4)
End Sub
vielen Dank und Liebe Grüße, Lisa