Live-Forum - Die aktuellen Beiträge
Datum
Titel
19.04.2024 13:58:02
Set Worksheet geht im O365 aber im Excel 2016 nicht
19.04.2024 13:49:38
Per Kopfdruck als pdf speichern und Mail erstellen
19.04.2024 12:58:59
Daten einfügen aus anderem Sheet
19.04.2024 12:23:24
Wenn-Formel anpassen
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
740to744
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
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
740to744
740to744
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Dateiname erkenn und Symbolleiste einschalten!

Dateiname erkenn und Symbolleiste einschalten!
05.03.2006 11:41:34
Swen
Hallo an alle,
ich habe Dateinamen die mit "CPT_" anfangen und immer
wenn diese göffnet werden möchte ich gerne das eine Symbolleiste
(die ich schon fertig habe / in VBA) mit dem NAmen "FPC Symbol"
angezeigt wird!
dieses fertige Makro möchte ich dann als addin bei mir einbauen
und immer wenn ich Daten mit "CPT_" habe soll die Symbolleiste dann
zusehen sein!
Danke!
Gruß
Swen

9
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Dateiname erkenn und Symbolleiste einschalten!
05.03.2006 16:23:52
chris
Hallo Sven , dazu musst du mit Klassen Arbeiten.
Habe dir hier einmal einen ansatz erstellt.
Solltest alleine Weiterkommen. Ansonsten melde dich noch einmal.
Ins Modul der Arbeitsmappe
Dim MyObject As New Klasse1

Private Sub Workbook_Open()
Set MyObject.appevent = Application
End Sub

In ein Standartmodul
Dim MyObject As New Klasse1
Ins Klassenmodul mit dem Namen Klasse1
Public WithEvents appevent As Application

Private Sub appevent_NewWorkbook(ByVal Wb As Workbook)
MsgBox ("hier dein code zum prüfen des dateinamens")
End Sub

Anzeige
AW: Dateiname erkenn und Symbolleiste einschalten!
06.03.2006 11:21:50
Swen
Hallo,

Private Sub appevent_NewWorkbook(ByVal Wb As Workbook)
thisfilename = ActiveWorkbook.Name
thisfilename = Application.WorksheetFunction.Left(thisfilename, 4)
If thisfilename = "CPT_" Then
Application.CommandBars("PCA-FPC Analysen").Visible = False
Else
Application.CommandBars("PCA-FPC Analysen").Visible = True
End If
End Sub

ich habe es wie folgt jetzt gemacht,
aber steigt immer bei
thisfilename = Application.WorksheetFunction.Left(thisfilename, 4)
aus!
warum?
gruß
swen
AW: Dateiname erkenn und Symbolleiste einschalten!
06.03.2006 18:34:40
chris
Ist klar.
Wozu das Worksheetfunction ?
Wenn dann so
thisfilename = Left(thisfilename, 4)
Rückmeldung wäre nett.
Anzeige
AW: Dateiname erkenn und Symbolleiste einschalten!
06.03.2006 21:54:57
Swen
Hallo,
eine Sache habe ich noch, kann man dieses auch so programmieren das
er auch wenn ich über Fenster das Workbook wechsel den Name
abfragt! Derzeit macht er es nur wenn ein Workbook geöffnet wird!
gruß
Swen
AW: Dateiname erkenn und Symbolleiste einschalten!
06.03.2006 22:32:39
chris
ja kannst du
AW: Dateiname erkenn und Symbolleiste einschalten!
06.03.2006 22:54:32
chris
aber jetzt war ich zu voreilig mit meiner Antwort.
Weiß bis jetzt noch nicht ob ichs hinbekomme.
Vieleicht kann dir jemand anders helfen.
Ansonsten versuch ichs morgen mal.
Sag bitte bescheid wenn du eine Lösung hast dmit ich mir die Arbeit spaaren kann.
AW:So gehts
07.03.2006 09:32:16
chris
Hallo habe jetz die Lösung.
Bitte Rückmeldung obs klappt.
Modul:
Dim Wb() As New cls_changebook
Dim ab As New cls_addbook
Dim intcounter As Integer
Sub start()
intcounter = 0
For Each test In Application.Workbooks
ReDim Preserve Wb(intcounter)
Set Wb(intcounter).wechsel = test
intcounter = intcounter + 1
Next
Set ab.neu = Application
End Sub
Sub zuf()
intcounter = 0
For Each test In Application.Workbooks
ReDim Preserve Wb(intcounter)
Set Wb(intcounter).wechsel = test
intcounter = intcounter + 1
Next
End Sub
Klassenmodul 1:
Public WithEvents neu As Application

Private Sub neu_WorkbookOpen(ByVal Wb As Excel.Workbook)
MsgBox "open"
Call zuf
End Sub



Private Sub neu_NewWorkbook(ByVal Wb As Excel.Workbook)
MsgBox "new"
Call zuf
End Sub

Klassenmodul2:
Public WithEvents wechsel As Workbook
Sub wechsel_activate()
MsgBox ("OK wechsel")
End Sub
P.s Klassenmodule noch umbenennen
gruß Christian
Anzeige
AW: AW:So gehts
07.03.2006 18:32:35
chris
Hallo,
also deine Mappe prüfen kann ich nicht.
Aber habe dir mal eine Beispieldatei hochgeladen.
Da kannst du dir den Code abschauen.
https://www.herber.de/bbs/user/31691.xls
mfg Christian

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige