Re: Bildschirmaktualisierung
09.02.2003 15:12:18
Wolfgang
Ich habe mal den Extrakt Rausgeschrieben
zur Erklärung
Ich habe eine Datei zur Bearbeitung (Masterdatei) und eine Zweite Datei Namens Dat_Text as der ich mir die Textbausteine hole.
In der Masterdatei (Arbeitsblatt Auszug) stehen die Materialnummern,die mit den
Texten in das Arbeitsblatt Auftrag aktualisiert werden.Sub Auftrag()
Application.ScreenUpdating = False
Variablen_Auslesen
Sheets("Bestätigung").Activate: [a1].Select
Cells.Clear
Workbooks.Open FileName:=Dat_Text
Sheets("Textet").Activate
Cells.Copy
Windows(DateiMaster).Activate
ActiveSheet.Paste
[B10] = Name1
Call B_Auftrag
Windows("Dat_Text).close
[a1].Select
Application.ScreenUpdating = True
End Sub
Sub B_Auftrag()
Application.ScreenUpdating = False
Sheets("Auszug").Activate
zei = Cells(65536, 1).End(xlUp).Row
[a21].Select
For i =1 to zei
Select Case ActiveCell
Case Is <> ""
Zuordn = Cells(zei21, 5)
If Zuordn = "Mat" Then
Call Material
End If
End Select
Next i
Sheets("Bestätigung").Activate
Application.ScreenUpdating = True
End Sub
Sub Material()
Application.ScreenUpdating = False
Select Case Matnr
Case 0 To 1000
zeiLtxt = Sechundzwanzig: zeiA = 4: zeiE = zeiA + zeiLtxt - 1: spA = 2: spE = 8
Call PositiosTexte
Case Is = 2001
zeiLtxt = Vier: zeiA = 37: zeiE = zeiA + zeiLtxt - 1: spA = 2: spE = 8
Call PositiosTexte
End Select
Application.ScreenUpdating = True
End Sub
Sub PositiosTexte()
Application.ScreenUpdating = False
Windows("Texte.xls").Activate
Sheets("Positionstexte").Activate: Range(Cells(zeiA, spA), Cells(zeiE, spE)).Copy
Windows(DateiMaster).Activate
Sheets("Bestätigung").Activate: ActiveSheet.Paste
Cells(ActiveCell.Row, 2) = Pos
Application.ScreenUpdating = True
End Sub