AW: Fehler nach öffnen auf anderem PC
09.01.2015 09:03:20
Christian
Hallo Klaus,
danke für deinen Tipp. Soweit hatte ich auch bereits gedacht. Leider weiß ich aber nicht wo genau der Fehler ist. Aus dem Grund habe ich ja angeboten die Datei zu versenden.
Ich lade mal den Code aus "Diese Arbeitsmappe"
Option Explicit
Private Sub Workbook_Open() ' Wird beim öffnen der Datei ausgeführt ***
Sheets("Übersicht").Activate ' Direkt die Übersicht öffnen ***
'MsgBox "Nach Bestätigung erfolgt eine Aktualisierung der Daten" ' InfoBox ***
'UserForm1.Show ' Startet UserForm1 - Auftrag anlegen ***
'Bild ' Vollbildmodus starten ***
'Application.ScreenUpdating = False ' Bildschirm flackern unterdrücken - Start ***
'Call HylinksErstellen ' Hyperlinks erstellen ***
'Application.ScreenUpdating = True ' Bildschirm flackern unterdrücken - ENDE ***
End Sub
Private Sub Workbook_SheetDeactivate(ByVal Sh As Object) ' beim verlassen der Tabellen werden _
die Makros ausgeführt ***
' MsgBox "Tabelle gewechselt" ' Spielkram ***
Cells.EntireColumn.Hidden = False ' alle Spalten einblenden ***
'= 5 And Sh.Cells(Target.Row, 1) "" Then
Cancel = True
UF_Auftragsbearbeitung.Show
End If
End If
End Sub
Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
'Bei Änderungen in den Blättern mit Maschinen-Namen Wert-Änderungen in bestimmten Spalten _
in _
die Übersicht übertragen
Dim varLine As Variant
Dim varAuftrag, ZeileUebersicht As Long
Dim strMaschine As String, strMaschineAlt As String
Dim wksUebersicht As Worksheet
Dim Zeile As Long
Dim Zelle As Range
Set wksUebersicht = Worksheets("Übersicht")
'Zeile mit Blattname in Auswahlliste für Maschinen suchen
varLine = Application.Match(Sh.Name, Worksheets("Auswahllisten").Range("AWL_Maschinen"), 0)
If IsError(varLine) Then
'do nothing - in diesen Tabellen das Userform zur Bearbeitung nicht anzeigen
Else
'Blätter mit Maschinendaten
For Each Zelle In Target.Cells
Select Case Zelle.Row
Case Is >= 5
If Sh.Cells(Zelle.Row, 1) "" Then
varAuftrag = Sh.Cells(Zelle.Row, 2).Value
ZeileUebersicht = fncFindAuftrag(varAuftrag:=Sh.Cells(Zelle.Row, 2).Value)
If ZeileUebersicht > 0 Then
strMaschineAlt = wksUebersicht.Cells(ZeileUebersicht, 1)
strMaschine = Sh.Cells(Zelle.Row, 1)
Select Case Zelle.Column
Case 1 'Spalte A - Maschinenname wurde ggf. geändert
If Zelle.Value wksUebersicht.Cells(ZeileUebersicht, 1) Then
MsgBox "Zum Verschieben des Auftrags bitte nach Doppelklick in _
die Zeile das Userform verwenden!", _
vbInformation + vbOKOnly, "Auftrag verschieben"
Application.EnableEvents = False
Zelle.Value = strMaschineAlt
Application.EnableEvents = True
End If
Case 19 To 27 'Spalten S bis AA
wksUebersicht.Cells(ZeileUebersicht, Zelle.Column) = Zelle.Value
End Select
Else
MsgBox "Der Auftrag """ & varAuftrag & """ wurde in der Übersicht nicht _
gefunden!" & vbLf _
& "Die Übertragung der Eingaben in die Übersicht wird abgebrochen"
Application.EnableEvents = False
Application.Undo
Application.EnableEvents = True
Exit For
End If
Else
MsgBox "Eingaben in Zeilen ohne Auftragsnummer sind nicht zulässig"
Application.EnableEvents = False
Zelle.ClearContents
Application.EnableEvents = True
End If
End Select
Next
End If
End Sub