MsgBox

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: MsgBox

08.01.2006 02:15:30

Josef

AW: MsgBox--Danke !!!

08.01.2006 12:47:40

Victor

AW: MsgBox

08.01.2006 13:16:07

Victor

AW: MsgBox

08.01.2006 15:41:28

Josef

AW: MsgBox--Danke !!!!

08.01.2006 15:58:08

Victor

geschlossen oT

08.01.2006 16:45:23

Schließer

Hallo Victor!
Beispiel für Spalte "C"!

' **********************************************************************
' Modul: Tabelle1 Typ: Element der Mappe(Sheet, Workbook, ...)
' **********************************************************************

Option Explicit

Private Sub Worksheet_Change(ByVal Target As Range)
Dim rng As Range
On Error GoTo ErrExit
If Not Intersect(Target, Range("C:C")) Is Nothing Then
  Application.EnableEvents = False
  For Each rng In Selection
    If rng = "" Then
      If MsgBox("Wollen Sie wirklich löschen?", 292, "Frage") = 7 Then
        Application.Undo
        Exit For
      End If
    End If
  Next
End If
ErrExit:
Application.EnableEvents = True
End Sub

'******************************
'* Gruß Sepp
'*
'* Rückmeldung wäre nett!
'******************************

Private Sub Worksheet_Change(ByVal Target As Range) If Target.Count = 1 Then If Not Intersect(Target, Range("C4:AG28")) Is Nothing Then If Target.Value = 100 And Cells(Target.Row, 38).Value = "" Then MsgBox "Keine Urlaubseingabe !!! Kein Eintrag möglich" Target.Value = "" End If End If End If End With End Sub

Hallo Victor!
Ich weis aber nicht welcher Code in welchem Bereich gelten soll!
Hier mal alles für einen Bereich!

' **********************************************************************
' Modul: Tabelle1 Typ: Element der Mappe(Sheet, Workbook, ...)
' **********************************************************************

Option Explicit

Private Sub Worksheet_Change(ByVal Target As Range)
Dim rng As Range
On Error GoTo ErrExit
If Not Intersect(Target, Range("C4:AG28")) Is Nothing Then
  Application.EnableEvents = False
  If Target.Count = 1 Then
    If Target.Value = 100 And Cells(Target.Row, 38).Value = "" Then
      MsgBox "Keine Urlaubseingabe !!! Kein Eintrag möglich"
      Target.Value = ""
      GoTo ErrExit
    End If
  End If
  For Each rng In Selection
    If rng = "" Then
      If MsgBox("Wollen Sie wirklich löschen?", 292, "Frage") = 7 Then
        Application.Undo
        Exit For
      End If
    End If
  Next
End If
ErrExit:
Application.EnableEvents = True
End Sub

'******************************
'* Gruß Sepp
'*
'* Rückmeldung wäre nett!
'******************************

Beliebteste Forumthreads (12 Monate)

6 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

6
Beiträge zum Forumthread

Beiträge zu diesem Forumthread