[GastForen Programme Office Microsoft Office ActiveWorkbook.Names.Add variabel halten

  • Suche
  • Hilfe
  • Lesezeichen
  • Benutzerliste
Office - Alles fürs Büro
Themen
Beiträge
Moderatoren
Letzter Beitrag

ActiveWorkbook.Names.Add variabel halten

volker bunge
Beiträge gesamt: 36

20. Dez 2009, 15:06
Beitrag # 1 von 1
Bewertung:
(988 mal gelesen)
URL zum Beitrag
Beitrag als Lesezeichen
Hallo zusammen,

ich suche eine Möglichkeit, per Makro (Excel97) einen markierten Bereich zu bennen und diesen dann anhand seinen Textes als Namensbereich abzuspeichern.

Also folgende Vorgehensweise soll mein Makro automatisch erledigen

1 Es wird bsp. der Zellenbereich C5:R5 markiert. Der Inhalt von C5 lautet 'Anzeige einstellen'. Dieser Bereich wird verbunden (klappt schon)
2 Die nächste Zelle rechts von diesem Bereich (also S5) soll den Namen 'AnzeigeeinstellenStatus' haben. Also den Inhalt von C5:R5 ohne Leertasten + Status
3 Die linke Zelle unterhalb des Bereiches C5:R5 (also C6) soll den Namen 'AnzeigeeinstellenPos' haben. Also den Inhalt von C5:R5 ohne Leertasten + Pos
4 Der Bereich unterhalb von C5:R5 soll solange markiert werden, bis eine Hilfsmarkierung in der Spalte B den Wert 1 hat. Es sollen bspw. alle Zeilen von A6 bis zur Hilfsmarkierung markiert und dann mit dem Namen der Überschrift hier 'AnzeigeeinstellenDaten' versehen werden.

Das entsprechende Tabellenblatt bekommt dann noch folgende Funktion
Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)
For Zähler = 2 To 1000
If Sheets("Einzelne Bereiche").Range("A" & Zähler) = "" Then
Exit For
End If
NameDerÜberschrift = Sheets("Einzelne Bereiche").Range("A" & Zähler)
NameDesDatenbereiches = Sheets("Einzelne Bereiche").Range("B" & Zähler)
PositionDesStatus = Sheets("Einzelne Bereiche").Range("C" & Zähler)
PositionDesCursors = Sheets("Einzelne Bereiche").Range("D" & Zähler)

If ActiveCell = NameDerÜberschrift Then
If Range(Sheets("Einzelne Bereiche").Range("C" & Zähler)) = 1 Then
Range(PositionDesStatus) = 0
Application.Goto Reference:=NameDesDatenbereiches
Selection.EntireRow.Hidden = True
Else
Application.Goto Reference:=NameDesDatenbereiches
Selection.EntireRow.Hidden = False
Range(PositionDesStatus) = 1
End If
Range(PositionDesCursors).Select
End If

Next Zähler

End Sub

Die Tabelle 'Einzelne Bereiche' beinhaltet dann meine vier Werte aller Bereiche.

Ziel dieses ganzen Aufwandes ist es, ein Installationsprotokoll so zu gestalten, dass man die einzelnen Überschrifteninhalte anklickt und dadurch den Inhalt ein- und ausblenden kann. Letzteres funktioniert schon einwandfrei. Ich möchte halt mir die Arbeit ein wenig vereinfachen und nur die Hilfmarkieungen setzen und anschließend die Überschrift markieren und das Makro starten.

Wäre schön, wenn mir einer eine Lösung geben kann.

Volker
X

Aktuell

Web / SEO / Blockchain / Betriebssystem
unsplash_300

Veranstaltungskalender

Hier können Sie Ihre Anlässe eintragen, welche einen Zusammenhang mit den Angeboten von HilfDirSelbst.ch wie z.B. Adobe InDesign, Photoshop, Illustrator, PDF, Pitstop, Affinity, Marketing, SEO, Büro- und Rechtsthemen etc. haben. Die Einträge werden moderiert freigeschaltet. Dies wird werktags üblicherweise innert 24 Stunden erfolgen.

pdf-icon Hier eine kleine Anleitung hinsichtlich Bedeutung der auszufüllenden Formularfelder.

Veranstaltungen
29.09.2022

IDUGS#85 Press2id

Zoom Meeting
Donnerstag, 29. Sept. 2022, 19.00 - 21.00 Uhr

Vortrag

Kennst du WordPress? Vielleicht. Verwendest du WordPress? Ja, klar! WordPress ist das am weitesten verbreitete System für die Erstellung von Webseiten. Um Webseitenbau soll es auf dieser IDUG aber nicht gehen. Gregor zeigt press2id (github.com/grefel/press2id). Seine Open-Source-Lösung für die Verbindung von Web und InDesign. Richtig gelesen: InDesign liest mithilfe von press2id die Inhalte der WordPress-Webseiten und generiert daraus Zeitschriften, Kataloge, Programmhefte oder Bierdeckel (das zeigen wir natürlich auch!). So wird die „Content First“ Theorie zu einer konkret anwendbaren Praxis, ohne gleich die ganz großen Räder zu drehen. Versprochen: Jeder kann nach der IDUG innerhalb kürzester Zeit Daten von WordPress nach InDesign importieren. Aber Achtung: Prinzipiell kann press2id aus jeder Website, oder besser Contentmanagementsystem (CMS) Daten auslesen und nach InDesign importieren! Spannend, oder? Danach geht es in die Praxis: Stefan hat die Webseite des Parktheater Iserlohn (parktheater-iserlohn.de) gestaltet. Die gedruckten Spielpläne (parktheater-iserlohn.de/interaktive-spielplaene) werden mit press2id realisiert. Wir schauen in den Maschinenraum und zeigen, wie die Lösung des Projekts realisiert wurde.

Nein

Organisator: InDesign Usergroup Stuttgart

Kontaktinformation: Christoph Steffens, E-Mailidug AT satzkiste DOT de

https://idugs85.eventbrite.de/

Von Wordpress nach InDesign
Veranstaltungen
08.11.2022

Frankfurt, Fraport Conference Center
Dienstag, 08. Nov. 2022, 13.30 - 18.00 Uhr

Seminar

Auf der Enfocus World Tour stellen wir Ihnen gemeinsam mit Enfocus die aktuellen Highlights von Enfocus Switch und dem Impressed Workflow Server (IWS) vor. Wir präsentieren Ihnen anhand typischer Aufgabenstellungen in einem modernen Produktionsbetrieb die Möglichkeiten, die Enfocus Switch für die Automatisierung und Standardisierung von Abläufen bietet. Wir haben sowohl für Produktionsverantwortliche als auch technisch Interessierte ein spannendes Programm vorbereitet, bei dem Sie sicherlich viel Neues erfahren werden, welches Sie in Ihrem eigenen Betrieb umsetzen können. Die Veranstaltung bietet darüber hinaus eine hervorragende Möglichkeit, sich mit anderen Anwendern und Workflow-Spezialisten auszutauschen und Antworten auf konkrete Aufgabenstellungen zu erhalten, welche Sie mit Hilfe von Enfocus Switch/IWS umsetzen möchten.

Wir sind jeweils an 2 Tagen in Frankfurt, Hamburg und München vor Ort. Der erste (halbe) Tag richtet sich in erster Linie an Betriebsleiter und Produktionsverantwortliche in Druckereien - ist also weniger technisch orientiert - sondern gibt einen Überblick zu den heutigen Möglichkeiten einer automatisierten Produktion.

Der zweite Tag (Switch Anwender-Treffen) richtet sich an bestehende Switch-Anwender und Administratoren.

Anmeldung und weitere Infos: https://www.impressed.de/schulung.php?c=sDetail&sid=310

Ja

Organisator: Enfocus/Impressed

Kontaktinformation: Silvia Noack, E-Mailsnoack AT impressed DOT de

https://www.impressed.de/schulung.php?c=sDetail&sid=310

Enfocus World Tour 2022