Hallo Freunde gut morgen,
ich habe ein kleines problem: das ist meine Tabelle

ArchRech

A B C D E F G H I J 2 Datum Rechnr KDnr Kundenname Betrag   Fällig Gutschriften   Datum     Off. Posten 3 29 Februar 04 SZH-290204 009 Mustermann 626,00 € 07 März 2004   ê   626,00 € Formeln der Tabelle H3 : =WENN($F3="";"";WENN($J3>0;"ê";"é")) J3 : =WENN(E3="";"";E3-G3)

Diagramm - Grafik - Excel Tabellen einfach im Web darstellen    Excel Jeanie HTML  3.0    Download  
Ich möchte der Code ergänzen mit der Controlle der Spalte I: if kein Datum Then
msgbox" Erst Buchungsdatum eingeben" und auf die entsprechende Zelle der Spalte I springen. Kann mich jemand helfen?
Danke
Giuseppe
Private Sub Worksheet_SelectionChange(ByVal Target As Range) gu = 7 cc = 9 If ActiveCell.Column = (cc) Then frm_kleineKalender.Show 'Zu On Error Resume Next If ActiveCell(1, -1) = 0 Then Exit Sub If ActiveCell > 0 Then Exit Sub If ActiveCell.Column = (gu) Then If MsgBox(" Ist der Betrag von " & ActiveCell(1, -1) & " € beglichen?", vbYesNo, "Rechnungen") = 7 Then Exit Sub ActiveCell = ActiveCell(1, -1).Value End If End Sub