| Von |
Renate |
| Am |
12. Dezember 2007 um 16:03:22 |
| Frage |
Wie kann ich bei den folgenden Makro realiesieren:Der Datenbereich soll von A2 bis D18 sein und die Daten sollen immer an der letzten Zeile eingefügt werden.Also statt
If Cells(2, 1).Value = "" = True Then so
If Cells(letzteZeileSpalteB, 1).Value = "" = True Then
stehen.
Sub Test()
If Cells(2, 1).Value = "" = True Then
MsgBox "Bitte geben Sie mit Hilfe des Kalenders ein Datum ein.", vbCritical, "Kein Datum eingefügt"
Exit Sub
Else
If Cells(2, 3).Value = "" = True Then
MsgBox "Bitte geben Sie eine Begründung des Urlaubstages ein.", vbCritical, "Keine Begründung eingefügt"
Exit Sub
Else
If Cells(2, 4).Value = "" = True Then
MsgBox "Bitte geben Sie die Tage des Urlaubstages ein.", vbCritical, "Keine Urlaubstage eingefügt"
End If
End If
End If
Call Berechnen(Range("E2"), Range("D2"))
End Sub |
|
Zum Seitenanfang