Einfügen mit Abfrage
10.02.2014 18:10:38
Kim
ich habe eine Datei aus der bei Klick definierte Zellen aus verschiedenen Sheets in eine Spalte geschrieben werden. Diese Liste dient als Gesamtübersicht. Bis hierher funktioniert alles ohne Probleme.
In der ersten Spalte (A1) steht immer die Projektnummer welche aufsteigend ist. Es ist möglich, das dieses Projekt bearbeitet wird und dann in der Gesamtübersicht überschrieben werden soll. Eine MsgBox soll vorher danach fragen ob überschrieben werden soll.
Ich würde gerne beim Übertragen der Daten in die Gesamtübersicht prüfen ob die Projektnummer schon vorhanden ist. Wenn ja dann soll eine MsgBox fragen ob diese überschrieben werden soll oder nicht.
Hier der Code den ich bisher habe:
Sub Schaltfläche29_Klicken()
Const strZiel As String = "X:\Zieldatei\Gesamtübersicht.xlsx" 'Pfad + Dateiname
Dim WB_B As Workbook
Dim WsQuelle As Worksheet
Dim WsZiel As Worksheet
'Quellesheet definieren
Set WsQuelle = ThisWorkbook.Worksheets("Quelle") ' 'Ab hier sollte geprüft werden ob H3 schon in der Zieldatei vorhanden ist
'Anzeigen das geschrieben wurde
MsgBox ("Daten wurden übertragen")
'Zieldatei speichern und schließen
WB_B.Close savechanges:=True
'Speicherplatz freigeben:
Set WsZiel = Nothing
Set WsQuelle = Nothing
Set WB_B = Nothing
End Sub
Grüße
Kim