Mehrdeutiger Name - Worksheet_Change
22.01.2005 08:29:23
Heinz
Habe in der unterstehenden Formel einen Fehler Fehlermeldung."Mehrdeutiger Name - Worksheet_Change"
Könnte mir bitte jemand dabei helfen.
Danke Heinz
Private Sub CommandButton1_Click()
Sheets("Hauptblatt").Select
End Sub
Private Sub Workbook_Open()
On Error Resume Next
ThisWorkbook.Names("OK").Delete
On Error GoTo 0
End Sub
basMain:
Option Explicit
Private Sub Worksheet_Change(ByVal Target As Excel.Range)
If Target.Address = "$A$6" Or Target.Address = "$A$52" Then
Dim neuer_Blattname As String
neuer_Blattname = Range("A6") & " bis " & Range("A52")
ActiveSheet.Name = neuer_Blattname
End If
End Sub
Private Sub Worksheet_Change(ByVal Target As Excel.Range)
If Not Intersect(Target, [c6:c52]) Is Nothing Then
Call pause_akt_Z
ActiveCell.Offset(0, 3).Activate
End If
End Sub