Makro bei Löschung nicht ausführen

Sub NeuPosDel() Dim bereich As Range Dim wks As Worksheet Sheets("Ausprägungen").Select Set wks = Workbooks("Masterfile.xls").Worksheets("Ausprägungen") Set bereich = wks.Range("B2:J" & wks.Range("J65536").End(xlUp).Row) bereich.Clear Set bereich = Nothing ''''Sheets("Ausprägungen").Select ''''Range("B2:J500").Select ''''Selection.ClearContents ''''Range("J2").Select End Sub

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hallo Harald!
Ich komme punkto Variablen noch nicht richtig zu Rande.
Ist es vielleicht so gemeint: (Nachstehend der ganze Ablauf)
In ein Modul
Public WurdeGelöscht As Boolean
Sub NeuPosDel()
Dim bereich As Range
Dim wks As Worksheet
Sheets("Ausprägungen").Select
WurdeGelöscht = True
Set wks = Workbooks("Masterfile.xls").Worksheets("Ausprägungen")
Set bereich = wks.Range("B2:J" & wks.Range("J65536").End(xlUp).Row)
bereich.Clear
Set bereich = Nothing
''''Sheets("Ausprägungen").Select
''''Range("B2:J500").Select
''''Selection.ClearContents
''''Range("J2").Select
End Sub


Private Sub Worksheet_Change(ByVal Target As Range)
WurdeGelöscht = False
If Target.Column = 2 And Target.Row > 1 Then
Sheets("tabelle1").Cells(Rows.Count, 27).End(xlUp).Offset(1, 0) = Target
Application.Run (Workbooks("Masterprog.xla").Name & "!Loesch_HOKUERZEL")
End If
End Sub

Sub Loesch_HOKUERZEL()
Dim mldg, stil, titel, grc
mldg = "Ist der Eintrag korrekt"
stil = vbYesNo + vbCritical + vbDefaultButton2
titel = "Frage ?"
grc = MsgBox(mldg, stil, titel)
If grc = vbYes Then
Exit Sub
Else
If grc = vbNo Then
Call Del_Ausprägung_HOKÜRZEL
End If
End If
End Sub

Sub Del_Ausprägung_HOKÜRZEL()
On Error GoTo WEITER
Dim mldg, stil, titel, grc
Dim wks As Worksheet
Set wks = Workbooks("Masterfile.xls").Worksheets("Tabelle1")
mldg = "Wert wirklich löschen ?"
stil = vbYesNo + vbCritical + vbDefaultButton2
titel = "Frage ?"
grc = MsgBox(mldg, stil, titel)
If grc = vbYes Then
Else
Exit Sub
End If
With wks
If IsEmpty(.Cells(.Cells(.Rows.Count, 27).End(xlUp).Row, 1)) Then _
.Cells(.Cells(.Rows.Count, 27).End(xlUp).Row, 27).ClearContents
End With
Sheets("Ausprägungen").Range("B2").End(xlDown).Select
WEITER:
End Sub

Danke
Josef

Private Sub Worksheet_Change(ByVal Target As Range) if WurdeGelöscht then WurdeGelöscht = False exit sub end if If Target.Column = 2 And Target.Row > 1 Then Sheets("tabelle1").Cells(Rows.Count, 27).End(xlUp).Offset(1, 0) = Target Application.Run (Workbooks("Masterprog.xla").Name & "!Loesch_HOKUERZEL") End If End Sub

Sub NeuPosDel() Application.EnableEvents = False With Workbooks("Masterfile.xls").Worksheets("Ausprägungen") .Range("B2:J" & .Range("J65536").End(xlUp).Row).Clear End With Application.EnableEvents = True End Sub

Beliebteste Forumthreads (12 Monate)

Makro bei Löschung nicht ausführen

8
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

300 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Makro bei Löschung nicht ausführen

8 Beiträge zum Forumthread Beiträge zu diesem Forumthread

300 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

8
Beiträge zum Forumthread

Beiträge zu diesem Forumthread