Wi erweiter ich diesen Code um eine Spalte
16.01.2007 08:51:03
Kristijan
Wann A nicht leer aber Datum (Splate B) leer: Kommt eine Inputbox wo ich das Datum eiontrage und dann in die Zelle geschrieben wird...
Jetzt will ich noch prüfen.
Wie erweiter ich dfen unten stehenden Code?
Mein Ziel: Wenn in zb. A13 was steht und in B13 nichts soll kommen Datum fehlt (das klappt super). Wenn in A13 was steht, in B13 was steht aber in C13 nichts soll kommen: Uhrzeit fehlt (das brauch ich jetzt noch als Inputbox)
Und wenn einer was in B 13 oder C 13 schrweibt aber A 13 ist leer soll kommen...Bitte erst Spalte A füllen:
Das waren jetzt Beispiele für Reihe 13, natürlich wäre es super das dies dann bei allen Zeilen funktioniert, mit Schleife...Siehe Code
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
Dim i As Long
Dim Datumfehlt As String
' Von Zeile 2 bis letzte volle in A
For i = 2 To Range("A65536").End(xlUp).Row
If Range("A2").Value <> "" And Range("B" & i).Value = "" Then
Range("B" & i).Select
Datumfehlt = InputBox("Es fehlt ein Datum," & (Chr(13)) & "Bitte eingeben", "Datum fehlt!")
Range("B" & i).Value = Datumfehlt
End If
Next
MsgBox "Komplett"
End Sub