Supportnet / Forum / Tabellenkalkulation
VB-Code für Stichwörter aus MS-Project
Frage
Hi,
Ich hätte da mal ein kurzes Problem/ eine kurze Frage.
Weiß jemand -wie der Titel schon sagt- wie der VB-Code lautet um einer Variable das Stichwortfeld (Keywords) aus den Project Datei-Eigenschaften zuzuweisen?
Es gibt ja auch das Kommentarfeld - dort weiß ich lautet es z.B.:
= Projects(1).Projectnotes
Dieses ist aber bei uns bereits für etwas anderes belegt. Ich hab schon in der Hilfe und etlichen Suchbegriffen@Google passendes gesucht aber wirklich brauchbares habe ich nicht gefunden, nur entfernt verwandtes wodurch ich mir rel. sicher bin, dass es irgendwas mit Keywords sein müsste:
[url]https://supportnet.de/fresh/2006/7/id1385098.asp[/url]
[url]http://www.xlam.ch/vbacode/vbacode.htm[/url]
Wäre für eine rasche Lösung sehr dankbar.
Antwort 1 von coros
Hi Towelie,
in dem Beitrag des Supportnets, dessen Link Du hier gepostet hast, ist die Frage eigentlich durch Antwort 1 bereits beantwortet. Dort steht der Befehl
doch schon dabei. Was ist daran jetzt nicht so, wie Du es Dir vorgestellt hast?
MfG,
Oliver
Da hier der einzige Lohn für die Helfer eine Rückmeldung ist, wäre es nett, wenn Du ein
Feedback abgeben könntest, ob der Lösungsvorschlag Dein Problem gelöst hat.
in dem Beitrag des Supportnets, dessen Link Du hier gepostet hast, ist die Frage eigentlich durch Antwort 1 bereits beantwortet. Dort steht der Befehl
ActiveWorkbook.BuiltinDocumentProperties("Keywords")doch schon dabei. Was ist daran jetzt nicht so, wie Du es Dir vorgestellt hast?
MfG,
Oliver
Da hier der einzige Lohn für die Helfer eine Rückmeldung ist, wäre es nett, wenn Du ein
Feedback abgeben könntest, ob der Lösungsvorschlag Dein Problem gelöst hat.
Antwort 2 von Towelie
Naja den Befehl "ActiveWorkbook" alleine gibt es -verständliche weise- schon nicht in MS Project. Weiter komme ich gar nicht beim Kompilieren.
Ich hab ja auch versucht mit allen möglichen " Projects(1). " kombinationen oder anderen Befehlen, die ich da gefunden habe passendes zusammenzustellen, bin aber kläglich gescheitert.
Ich hab ja auch versucht mit allen möglichen " Projects(1). " kombinationen oder anderen Befehlen, die ich da gefunden habe passendes zusammenzustellen, bin aber kläglich gescheitert.
Antwort 3 von coros
Hallo Towelie,
wozu benötigst Du das? Für VBA (Visual Basic for Application) in Excel oder für VB (Visual Basic)?
MfG,
Oliver
Da hier der einzige Lohn für die Helfer eine Rückmeldung ist, wäre es nett, wenn Du ein
Feedback abgeben könntest, ob der Lösungsvorschlag Dein Problem gelöst hat.
wozu benötigst Du das? Für VBA (Visual Basic for Application) in Excel oder für VB (Visual Basic)?
MfG,
Oliver
Da hier der einzige Lohn für die Helfer eine Rückmeldung ist, wäre es nett, wenn Du ein
Feedback abgeben könntest, ob der Lösungsvorschlag Dein Problem gelöst hat.
Antwort 4 von Towelie
Das brauche ich für VB in MS Project. (VBA: Retail 6.4.9972)
vG
Alex
vG
Alex
Antwort 5 von coros
Hallo ALex,
da bist Du hier etwas in der falschen Gruppe. Hier geht es um Excel und VBA.
Für VB würde der Code für ein StandardModul folgendermaßen aussehen:
Damit das Makro funktioniert, musst Du den Verweis auf die "Microsoft Excel xx.x Object Library" setzen.
Ich hoffe, Du kommst klar. Bei Fargen melde Dich bitte wieder.
MfG,
Oliver
Da hier der einzige Lohn für die Helfer eine Rückmeldung ist, wäre es nett, wenn Du ein
Feedback abgeben könntest, ob der Lösungsvorschlag Dein Problem gelöst hat.
da bist Du hier etwas in der falschen Gruppe. Hier geht es um Excel und VBA.
Für VB würde der Code für ein StandardModul folgendermaßen aussehen:
Sub Stichwort_aus_Excel_auslesen()
Dim Excelprogramm As Excel.Application
Dim Datei As String
Set Excelprogramm = GetObject(, "Excel.Application")
Datei = "Hier den Dateinamen mit der Endung .xls"
MsgBox Excelprogramm.Workbooks(Datei).BuiltinDocumentProperties("Keywords")
End SubDamit das Makro funktioniert, musst Du den Verweis auf die "Microsoft Excel xx.x Object Library" setzen.
Ich hoffe, Du kommst klar. Bei Fargen melde Dich bitte wieder.
MfG,
Oliver
Da hier der einzige Lohn für die Helfer eine Rückmeldung ist, wäre es nett, wenn Du ein
Feedback abgeben könntest, ob der Lösungsvorschlag Dein Problem gelöst hat.
Antwort 6 von Towelie
Hallo nochmal,
Also wie gesagt gehts mir hier nicht um MS-Exel sondern MS-Project aber VBA war es doch, die nutzen sogarn die gleiche Version nur weiß Project nichts mit Excel-VBA Befehlen wie Workbook anzufangen.
Ich dachte halt, da Project ja nur ein abgewandeltes Excel mit den Verknüfungen ist um Projecte besser zu planen und auch ein paar Zusatzansichten hat, dafür keine so eine Dynamische Oberfläche passt es hier rein ... und VBA is es ja auch.
Ich habe nun aber die Lösung gefunden: eh so einfach, hab mal kurz noch was probiert:
Projects(1).BuiltinDocumentProperties("Keywords")
Funktioniert einwandfrei. Auf jedenfall vielen Dank für deine Hilfe.
vG
Alex
Also wie gesagt gehts mir hier nicht um MS-Exel sondern MS-Project aber VBA war es doch, die nutzen sogarn die gleiche Version nur weiß Project nichts mit Excel-VBA Befehlen wie Workbook anzufangen.
Ich dachte halt, da Project ja nur ein abgewandeltes Excel mit den Verknüfungen ist um Projecte besser zu planen und auch ein paar Zusatzansichten hat, dafür keine so eine Dynamische Oberfläche passt es hier rein ... und VBA is es ja auch.
Ich habe nun aber die Lösung gefunden: eh so einfach, hab mal kurz noch was probiert:
Projects(1).BuiltinDocumentProperties("Keywords")
Funktioniert einwandfrei. Auf jedenfall vielen Dank für deine Hilfe.
vG
Alex

