heute hab ich mal wieder einen Wurm drin :-(
In einer Userform nehme ich Kundenanfragen auf, die ich dann in eine Zieldatei speichere.
Beim Speichervorgang soll zeitgleich eine Dublettenprüfung erfolgen - das funktioniert aber nicht mehr.
Die Pfadangaben habe ich dreimal geprüft, auch die Daten die ich übertragen wollte habe ich mit Copy/Paste eingetragen um Schreibfehler zu vermeiden.
... ich steh auf dem Schlauch.
Vielleicht hat mir hier jemand eine Lösung?
Private Sub CommandButton1_Click()
Dim Letzte As Long
Dim dbcount As Long
'Datei im verborgenen öffnen
Application.ScreenUpdating = False
'Speichern in anderer Datei (Datei öffnen)
Workbooks.Open Filename:= _
"F:\Userform_Dubletten\Zieldatei.xlsx"
'Pflichtfeld "Kundendaten" abfragen:
If Anfrageliste_01_ComboBox = "" Or _
Anfrageliste_02_TextBox = "" Or _
Anfrageliste_03_TextBox = "" Or _
Anfrageliste_07_TextBox = "" Or _
Anfrageliste_10_ComboBox = "" Or _
Anfrageliste_11_ComboBox = "" Or _
Anfrageliste_12_ComboBox = "" Or _
Anfrageliste_13_ComboBox = "" Then
MsgBox "Bitte geben Sie die Daten Anrede, Vorname, Nachname, Postleitzahl, Standort, _
Berater und Anfrageweg vollständig an."
Exit Sub
End If
'Letzte Zeile bestimmen:
Letzte = Workbooks("Zieldatei.xlsx").Sheets("Anfragen").Cells(Rows.Count, 1).End(xlUp). _
Row + 1
'Durch die Tabelle gehen und nach Duplikaten suchen
For dbcount = 2 To Letzte
If Workbooks("Zieldatei.xlsx").Sheets("Anfragen").Cells(dbcount, 2) = _
Anfrageliste_02_TextBox And _
Workbooks("Zieldatei.xlsx").Sheets("Anfragen").Cells(dbcount, 3) = _
Anfrageliste_03_TextBox And _
Workbooks("Zieldatei.xlsx").Sheets("Anfragen").Cells(dbcount, 5) = _
Anfrageliste_05_TextBox And _
Workbooks("Zieldatei.xlsx").Sheets("Anfragen").Cells(dbcount, 7) = _
Anfrageliste_07_TextBox And _
Workbooks("Zieldatei.xlsx").Sheets("Anfragen").Cells(dbcount, 10) = _
Anfrageliste_10_ComboBox Then
MsgBox "Eine Anfrage von " & Anfrageliste_02_TextBox.Text & " " & _
Anfrageliste_03_TextBox.Text & vbCrLf & "ist bereits in Zeile " & dbcount & " erfasst."
Exit Sub
End If
Next dbcount
'Die Werte übergeben:
Workbooks("Zieldatei.xlsx").Sheets("Anfragen").Cells(Letzte, 1) = _
Anfrageliste_01_ComboBox.Value
Workbooks("Zieldatei.xlsx").Sheets("Anfragen").Cells(Letzte, 2) = _
Anfrageliste_02_TextBox.Value
Workbooks("Zieldatei.xlsx").Sheets("Anfragen").Cells(Letzte, 3) = _
Anfrageliste_03_TextBox.Value
Workbooks("Zieldatei.xlsx").Sheets("Anfragen").Cells(Letzte, 4) = _
Anfrageliste_04_TextBox.Value
Workbooks("Zieldatei.xlsx").Sheets("Anfragen").Cells(Letzte, 5) = _
Anfrageliste_05_TextBox.Value
Workbooks("Zieldatei.xlsx").Sheets("Anfragen").Cells(Letzte, 6) = _
Anfrageliste_06_TextBox.Value
Workbooks("Zieldatei.xlsx").Sheets("Anfragen").Cells(Letzte, 7) = _
Anfrageliste_07_TextBox.Value
Workbooks("Zieldatei.xlsx").Sheets("Anfragen").Cells(Letzte, 8) = _
Anfrageliste_08_TextBox.Value
Workbooks("Zieldatei.xlsx").Sheets("Anfragen").Cells(Letzte, 9) = _
Anfrageliste_09_TextBox.Value
Workbooks("Zieldatei.xlsx").Sheets("Anfragen").Cells(Letzte, 10) = _
Anfrageliste_10_ComboBox.Value
Workbooks("Zieldatei.xlsx").Sheets("Anfragen").Cells(Letzte, 12) = _
Anfrageliste_11_ComboBox.Value
Workbooks("Zieldatei.xlsx").Sheets("Anfragen").Cells(Letzte, 13) = _
Anfrageliste_12_ComboBox.Value
Workbooks("Zieldatei.xlsx").Sheets("Anfragen").Cells(Letzte, 14) = _
Anfrageliste_13_ComboBox.Value
Workbooks("Zieldatei.xlsx").Sheets("Anfragen").Cells(Letzte, 15) = _
Anfrageliste_14_TextBox.Value
'Zieldatei speichern
Workbooks("Zieldatei.xlsx").Close savechanges:=True
'Abschlussmeldung anzeigen
MsgBox "Anfrage aufgenommen"
End Sub