mehrdeutiger name worksheet_change
10.02.2014 17:19:00
Dennis
folgendes problem habe ich, vielleicht kann mir jemand helfen. habe das problem mit der fehlermeldung: mehrdeutiger name worksheet_change. diese befehle habe ich bisher
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim DateiName As String
If Not Intersect(Target, Range("G23,G26")) Is Nothing Then
DateiName = Range("C30").Value
With Application.FileDialog(msoFileDialogSaveAs)
.InitialFileName = "c:\Datenblätter FK\" & DateiName
.FilterIndex = 2
If .Show = -1 Then
.Execute
Else
MsgBox "Abgebrochen"
End If
End With
End If
End Sub
Private Sub Worksheet_Change(ByVal Target As Excel.Range)
If Target.Address "$C$23" Then Exit Sub
Range("H16").Value = Date
End Sub
wollte noch dazu
Private Sub Worksheet_Change(ByVal Target As Excel.Range)
If Target.Address "$F$23" Then Exit Sub
Range("I13").Value = Now + 1/24
End Sub
aber leider funktioniert das nicht, vielleicht könnt ihr mir helfen. das wäre sehr lieb und hilfreich von euch.
danke sehr