Wie die Aktualisierungsfrage unterbinden?
07.08.2006 14:25:12
urs
beim nachfolgenden Makro können verschiedene Dateien aufgerufen werden. Darunter gibt es Dateien mit Verknüpfungen. Ich möchte die Frage nach der Aktualisierung unterbinden. Wie mache ich das?
Vielen Dank für Eure Hilfe
Gruss urs
Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)
Dim Zeile As Integer, Spalte As Integer, Cancel As Integer, CloseMode As Integer
If CloseMode = vbFormControlMenu Then
Cancel = True
End If
Zeile = Target.Row
Spalte = Target.Column
If Spalte = 3 Then
If Zeile > 5 And Zeile < 9 Then 'Zellbereich für Cu Eingabe
For Each myWorkbook In Workbooks
If myWorkbook.Name = "Leiter1.xls" Then bolgeoeffnet = True: Exit For
Next
If Not bolgeoeffnet Then GetObject "R:\1_Intern\Ursprung\Leiter1.xls"
Leiterauswahl.Show
End If
If Zeile > 37 And Zeile < 41 Then 'Zellbereich Bandauswahl
For Each myWorkbook In Workbooks
If myWorkbook.Name = "Bänder1.xls" Then bolgeoeffnet = True: Exit For
Next
If Not bolgeoeffnet Then GetObject "R:\1_Intern\Ursprung\Bänder1.xls"
Bänderauswahl.Show
End If
If Zeile > 55 And Zeile < 59 Then
For Each myWorkbook In Workbooks
If myWorkbook.Name = "Bänder1.xls" Then bolgeoeffnet = True: Exit For
Next
If Not bolgeoeffnet Then GetObject "R:\1_Intern\Ursprung\Bänder1.xls"
Bänderauswahl.Show
End If
If Zeile > 70 And Zeile < 73 Then
For Each myWorkbook In Workbooks
If myWorkbook.Name = "Bänder1.xls" Then bolgeoeffnet = True: Exit For
Next
If Not bolgeoeffnet Then GetObject "R:\1_Intern\Ursprung\Bänder1.xls"
Bänderauswahl.Show
End If
If Zeile > 32 And Zeile < 37 Then
For Each myWorkbook In Workbooks
If myWorkbook.Name = "BLD.xls" Then bolgeoeffnet = True: Exit For
Next
If Not bolgeoeffnet Then GetObject "R:\1_Intern\Ursprung\BLD.xls"
Blindaderauswahl.Show
End If
End If
End Sub