Obwohl ich zuerst "AE Abfragen", bzw. "AE Angebot" aktiviere und meine Vorgaben mache werden teilweise diese Vorgaben in die Tabelle "BETON Angebot" geladen wodurch teilweise Linien dort sind wo sie nicht hingehören.
Private Sub Workbook_Open()
' Ab hier AE-Bereich
With Sheets("AE Abfragen")
.Range("D7").Value = True
.Range("D8:D9,D18,D21").Value = False
Sheets("AE Angebot").Range("B29,B31,B33,B36").Value = " _
_________________________________________"
Range("B39").Value = "_________________________________________"
Range("B27").Value = "_____________"
Range("F27").Value = "__________________"
Range("B4").Value = "_______________________"
Range("B5:B9").Value = ""
Range("B13:B15").Value = ""
Range("B17:B18").Value = ""
Range("D7:D8").Value = ""
Range("D13:D15").Value = ""
Sheets("AE Angebot").Activate
Range("B4").Select
End With
' Ab hier BETON-Bereich
With Sheets("BETON Abfragen")
.Range("D7").Value = True
.Range("D8:D10,D17:D18,D20:D21").Value = False
Sheets("BETON Angebot").Range("B32,B34,B36,B39").Value = " _
_________________________________________"
Range("B42").Value = "_________________________________________"
Range("B30").Value = "_____________"
Range("F30").Value = "__________________"
Range("B4").Value = "_______________________"
Range("B5:B8").Value = ""
Range("B13:B16").Value = ""
Range("B19:B21").Value = ""
Range("D7:D8").Value = ""
Range("D14:D16").Value = ""
Sheets("BETON Angebot").Activate
Range("B4").Select
End With
End Sub
In der AE Angebot Tabelle sind z.B. Linien in "B30", "F30" und "B42"
In "BETON Angebot" in "B27" und "F27".
Ich müsste den Bereich oberhalb "Ab hier BETON-Bereich" schließen können um davor und danach nur die jeweils gültigen Einstellungen zu laden.
Danke euch schon mal für eure Bemühungen :oops:
Günther