Msg Box Werte überschreiben?
26.01.2014 09:37:07
Heinz
Habe einen Cde (Danke an Raphael)
Der mir Werte aus einer UF in den Sheets unter den entsprchenden Datum einträgt.
Nun sollte aber eine MsgBox kommen wenn bei diesen Datum die Spalte B schon mit einen Wert belegt ist.
Überschreiben oder abbrechen.
Hier komme ich nicht weiter.
Könnte mir dazu bitte jemand helfen?
Gruß Heinz
'Hier werden die Werte eingetragen
Private Sub CommandButtonEintragen_Click()
Dim j As Integer
Dim lZeile As Integer
Dim ws As Worksheet
Dim Mldg As Byte
Mldg = MsgBox("Werte überschreiben?", vbYesNo + vbQuestion
Set ws = Sheets(ComboBoxLinie.Text)
lZeile = ws.Cells(Rows.Count, 1).End(xlUp).Row
For j = 2 To lZeile
If CDate(ws.Cells(j, 1)) >= CDate(ComboBoxDatum_von.Text) And CDate(ws.Cells(j, 1))