Rückmeldung ob Daten korrekt übertragen wurden
21.11.2007 18:04:00
Josef_T
das unten stehende Modul arbeitet einwandfrei. Was mir fehlt, ist eine Rückmeldung ob der Betrag eingetragen wurde. Die Rückmeldung sollte aber im TB PRÄMIE Zeile 10, Spalte 8, erscheinen. Ist das machbar?
Wenn ja, kann mir dann bitte jemand helfen, dass Makro zu erweitern?
Sub Zahlung()
Dim Zeile As Long
Dim MA As String
Dim Dat As Long
With Sheets("Prämie")
MA = .Cells(3, 3).Value
Dat = .Cells(10, 6)
Zeile = Dat - DateSerial(Year(Dat), 1, 1) + 3
Sheets(MA).Cells(Zeile, 16) = .Cells(10, 8)
End With
End Sub
Danke schon mal
Gruß Josef