Private Sub Save1_Click()
Dim wb As Workbook
Dim ws1 As Worksheet, ws2 As Worksheet
Dim fund As String, fund1 As String
Dim such As String, LetzteZeile As Long, i As Long
Dim zähler As Long
Set wb = ActiveWorkbook
Set ws1 = wb.Worksheets("Übersicht")
Set ws2 = wb.Worksheets("Datenbank")
such = Infos.Auftragsnummer.Value
With ws2
LetzteZeile = .Cells(.Rows.Count, 2).End(xlUp).Row
For i = 5 To LetzteZeile
If .Cells(i, 2) = such Then
If MsgBox("Auftragsnummer bereits vorhanden. Überschreiben?", vbYesNo) = vbNo Then
Exit Sub
Else: MsgBox "Ok"
zähler = zähler + 1
End If
Else
If MsgBox("Auftragsnummer nicht vorhanden. Neu anlegen?", vbYesNo) = vbNo Then
Exit Sub
Else: MsgBox "Ok"
zähler = zähler + 1
End If
End If
Next i
End With
End Sub