AW: Makro aus anderer AM starten
23.04.2008 07:55:00
Josef
Hallo Beverly!
Danke für Deine Antwort.
Ich habe den Code jetzt angepaßt, bekomme jedoch folgende Fehlermeldung:
Microsoft Excel kann das Makro Masterprog.xla!Lösch_Kurztext nicht finden.
Code:
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 8 And Target.Row > 1 Then
Sheets("tabelle1").Cells(Rows.Count, 28).End(xlUp).Offset(1, 0) = Target
Application.Run (Workbooks("Masterprog.xla").Name & "!Lösch_Kurztext")
End If
End Sub
Makro im Masterprog.xla :
Sub Lösch_Kurztext()
Dim mldg, stil, titel, grc
'hier wird meldung erzeugt ob daten geändert werden sollen
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_Kurztext
End If
End If
End Sub
Josef