ein IF Problem
27.09.2004 10:17:40
Giuseppe
ich habe ein kleines problem: das ist meine Tabelle
ArchRech | |||||||||||||||||||||||||||||||||||
| |||||||||||||||||||||||||||||||||||
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