Guten Morgen M.O.,
die Tabelle 1 ist mein „Protokoll“, in dieses Arbeitsblatt hole ich per Excel-Formeln die Daten aus der Tabelle 2 (Daten).
Diese werden über mehrere Codes eingefügt. Die Excel-Tabelle, die ich nutze, ist die Vorlage unseres Software Herstellers.
Leider habe ich überhaupt keine Ahnung, wie man einen Code schreibt
Ich suche im Internet so lange, bis ich was Passendes finde und probiere es aus.
In Tabelle 1 (Protokoll) habe ich den Code
Private Sub Worksheet_Activate()
ActiveSheet.Calculate
End Sub
Private Sub Worksheet_Change(ByVal Target As Range)
ActiveSheet.Calculate
End Sub
eingefügt.
Es gibt noch einen Code in „Diese Arbeitsmappe“
Private Sub Workbook_Open()
Dim sFile As String
On Error GoTo ErrHandler
Call Refresh_Data
Call SetPivotData
'In Tabelle Hauptmenü in Feld A1 muss der Logopfad stehen! (Schriftart Weiß)
sFile = GetLogo("Logo", _
"B2")
If sFile <> "" Then
Call InsertLogo(sFile, _
"Hauptmenü", _
"G3")
Call InsertLogo(sFile, _
"T_2", _
"B1")
Call InsertLogo(sFile, _
"T_3", _
"B1")
End If
Exit_:
On Error Resume Next
Exit Sub
ErrHandler:
HandleErrors
Resume Exit_
Resume
End Sub
Alle anderen Tabellen haben keinen Code. Dafür ist ein Globaler vorhanden unter „Module“
„modGlobal“
Dieser ist unendlich lang und hat diese Code-Titel.
HandleErrors
InsertData
InsertLogo
InsertTable
LogoExist
PivotData
PrintVersion
ReadDefinition
Refresh_Data
Reset_Data
ResetTable
SetPivotData
Also ich bin erst mal überfordert.
Ich könnte mir vorstellen, dass in „Diese Arbeitsmappe“ dann noch die beiden Codes rein müssen, um zum einen die automatische Berechnung aus zu schalten und dann irgendwo, dass diese wieder eingeschaltet wird, wenn alle Berechnungen durchgeführt wurden.
Für mich Böhmische Dörfer 
Gruß Christiane
