Zelladresse in VBA
08.06.2005 11:22:01
serge
ich versuch ein VBA zusammenzustellen das wenn Zelle Q37 (r17, c37) die Summe 6 oder mehr erreicht ohne als Activcell zu sein, eine MsgBox erscheint.
Das VBA ist in einigen Blätter der Datei vorhanden.
Mit der Zelladressierung: cell(r17, c37) kommen ich nicht zurecht.
Wer hilft mir?
Danke Serge
Private Sub Worksheet_Change(ByVal Target As Range)
Dim AktZelle As Range
Set AktZelle = ActiveCell
If cell(r17, c37).Value = 6 Then
MsgBox (" Ihre Kompensationbezüge für dieses Quartal betragen 6 Tage, Sie sind am Maximum angelangt!")
Else
If cell(r17, c37).Value <= 6 Then
MsgBox ("Sie haben das Mximum an Kompensationbezüge für dieses Quartal mit " & ActiveCell.Value - 6 & " Tag(e) überschrieten")
AktZelle.Activate
End If
End If
AktZelle.Activate
End Sub
Anzeige