Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
1404to1408
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

DieseArbeitsmappe (Code) Seite wechseln

DieseArbeitsmappe (Code) Seite wechseln
30.01.2015 08:19:49
Günther
Hallo, ich habe in Excel 2010 im Modul "Diese Arbeitsmappe" mehrere Vorgaben abgelegt die bei Start des Programms geladen werden sollen.
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

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: DieseArbeitsmappe (Code) Seite wechseln
30.01.2015 08:36:48
Luschi
Hallo Günther,
ich sehen keinen Vba-Befehl, der diese von Dir gemachte Aussage bestätigt:

Obwohl ich zuerst "AE Abfragen", bzw. "AE Angebot" aktiviere
Da müßte ja irgendwo einer der Befehle:
- Select
- Activate oder Application.Goto
im Programmcode erscheinen. Da ich aber keinen sehe, weisen alle Befehle wie:
- Range("B30").Value = "_____________"
auf die aktive Arbeitstabelle hin.
Wenn man einen Punkt vor Range setzt, dann weist dieser Bereich auf die Tabelle 'Sheets("AE Abfragen")'
Gruß von Luschi
aus klein-Paris

Anzeige
AW: DieseArbeitsmappe (Code) Seite wechseln
30.01.2015 08:54:35
Günther
Hallo Luschi,
vielen Dank erst mal, die Punkte hatte ich zuvor drin, allerdings landete ich da jedesmal im Debugger direkt in der ersten Zeile in der nicht "Sheets..." davor steht bei Range("B39")

Sheets("AE Angebot").Range("B29,B31,B33,B36").Value = " _
_________________________________________"
.Range("B39").Value = "_________________________________________"
.Range("B27").Value = "_____________"

Ich dachte durch "With Sheets("BETON Abfragen")" aktiviere ich die entsprechende Tabelle.

AW: DieseArbeitsmappe (Code) Seite wechseln
30.01.2015 09:06:12
Luschi
Hallo Günther,
dann erstelle eine kleine Demodatei mit nichtpersonalisierten Daten.
Bilder in Form von hochgeladenenjpg-Dateien sind sind total nichtssagend.
Mit 1er vernüftige Demodatei lassen wir hier die 'Sau' raus und zeigen alles,
was wir draufhaben.
Gruß von Luschi
aus klein-Paris

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige