****M****a****k****r****o****s**** ****e****i****n****e****r****...

Hallo,

Mike Rühlemann wrote:

ich habe eine Datenbank im Netzwerk für mehrer Benutzer. Damit die

Datenbank von mehreren Personen benutzt werden kann lasse ich beim Start

ein Makro aufrufen das aus den verknüpften Tabellen (Excel) die Daten in

eine Accesstabelle schreibt. Mein Problem ist wenn jetzt schon Jemand

die Datenbank offen hat ist der Start des Makros mist, da der zweite

Benutzer nun eine Fehlermeldung bekommt und die DB nicht nutzen kann.

Du solltest die Anwendung dringend in Front- und Backend aufteilen. Details

dazu siehe http://www.donkarl.com?FAQ1.35

Damit hat jeder Benutzer sein eigenes Frontend und Meldungen ueber

gesperrte Dateien sollten verschwinden.

Gruss - Peter

Mitglied im http://www.dbdev.org

FAQ: http://www.donkarl.com

Hi

unter aktuellen Betriebssystem, wenn es denn auch unter Win7 64-Bit laufen soll, z.B. per WMI:

'---->8------------

Sub LoggedOnUser()

'

Const wbemFlagReturnImmediately = &H10

Const wbemFlagForwardOnly = &H20

Const c_User As String = "Angemeldeter User: "

'

Dim objWMIService As Object

Dim objItem As Object, colItems As Object

Dim strComputer As String

Dim sUser As String

strComputer = "." ' Localhost

' get computer information by WMI

Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\CIMV2")

Set colItems = objWMIService.ExecQuery("SELECT * FROM Win32_ComputerSystem", "WQL", _

wbemFlagReturnImmediately + wbemFlagForwardOnly)

' Collect the Computersystem-Information and retrieve the UserName

For Each objItem In colItems

sUser = objItem.UserName

Next

' cut the domain name

If InStr(1, sUser, "\") > 0 Then

sUser = Mid(sUser, InStr(1, sUser, "\") + 1)

End If



' show loggedon username

MsgBox sUser, vbInformation, c_User

End Sub

'------>8-----

Gruß Christian

Hallo Tina1960,

Bitte stell deine Schriftgroesse und was du sonst noch haben willst ein und mach dann folgendes:

1. Geh bitte auf Speichern unter und waehle als Dateityp "Word Vorlage mit Makros"

2. Jetzt geh in den Ordner: C:\Benutzer\”Dein Name”\AppData\Roaming\Microsoft\Templates (solltest du den Ordner nicht sehen koennen, gehe bitte ueber Organisation -> Such-&-Ordneroptionen -> Ansicht ->Versteckte Dateien & Ordner -> alle Ordner anzeigen)

3. Dort sollte die Normal.dotm gespeichert sein (Die Standard-Vorlage von Word) Speicher deine Datei bitte als Normal1.dotm

4. Jetzt Schliesse Word und geh zum Ordner wo die Normal.dotm liegt und loesche diese

5. Anschliessend benenn die Normal1.dotm in Normal.dotm um

6. Starte jetzt wieder Word, deine Einstellungen sollten jetzt wie zuvor Festgelegt sein

Zum Thema Autotexte schau dir bitte folgende Beitrag an:

http://social.answers.microsoft.com...e/thread/8f317635-5b08-47e3-ae06-62a23a69b2a3

Gruss,

Robert

Microsoft Certified Professional | This posting is provided "AS IS" with no warrenties and confers no rights

Hallo Boris,

dazu muss dir zunächst der Name der möglichen Drucker bekannt sein. Das folgende Makro ermittelt die verfügbaren Drucker und listet sie im Direktbereich (Strg+G) der VBA-Entwicklerumgebung auf:

Sub DruckerAuflisten()

Dim wshNetwork As Object

Dim Druckers

Dim intI

Set wshNetwork = CreateObject("WScript.Network")

Set Druckers = wshNetwork.EnumPrinterConnections



For intI = 0 To Druckers.Count - 1 Step 2

Debug.Print Druckers.Item(intI + 1)

Next

End Sub



Ist der Druckername bekannt setzt du ihn in dein Makro ein:

Sub Drucken()

Dim wshNetwork As Object

Const Drucker1 As String = "Microsoft XPS Document Writer"

Const Drucker2 As String = "Microsoft Office Document Image Writer"

Set wshNetwork = CreateObject("WScript.Network")

wshNetwork.SetDefaultPrinter Drucker2

ActiveSheet.PrintOut



End Sub



Je nach deinen Wünschen kannst du aus den beiden Makros auch eine Kombination erstellen.



Mit freundlichem Gruß aus der Rattenfängerstadt Hameln



(www.at-exceltraining.de)


Ist deine Frage mit diesem Beitrag beantwortet, markiere sie für alle Mitleser als Antwort
. (Du kannst auch mehrere Beiträge als Antwort markieren)

Hallo,

Ist das wirklich ein Problem im Outlook bei dir? Mit makros bist du im Excel oder Access Forum denk Ich besser aufgehoben.

Grüße....



"Hmm, wo ist denn die Any-Key-Taste? Naja, ich bestell mir ersteinmal ein Bier!"