VBA Logbuch auf andere Arbeitsmappe integrieren
#1
Hallo liebes Forum,


bin gerade dabei, ein Logbuch von einer anderen Arbeitsmappe in eine andere zu integrieren. Leider bin ich nicht der beste in VBA und die Integration verläuft etwas schwierig.

Der Code sieht wie folgt aus:

Declare Function GetUserName Lib "advapi32.dll" _
Alias "GetUserNameA" (ByVal lpBuffer As String, _
nSize As Long) As Long

Function UserName()
Dim Buffer As String * 100
Dim BuffLen As Long
BuffLen = 100
GetUserName Buffer, BuffLen
UserName = Left(Buffer, BuffLen)
UserName = Left(UserName, InStr(UserName, Chr(0)) - 1)
End Function

Auf der Arbeitsmappe funktioniert das Logbuch ohne Probleme.

Danke schonmal im voraus :)
Antworten Top
#2
Hallo,

jetzt sollen wir anhand des Quelltextes erraten, wie deine Datei aufgebaut ist?
Viele Grüße
Klaus-Dieter
Der Erfolg hat viele Väter, 
der Misserfolg ist ein Waisenkind
Richard Cobden
Antworten Top
#3
Hallo,

danke für deine Antwort. Ich dachte es wäre ein allgemeines Programm, welches man überall integrieren kann. Welche Informationen wären denn relevant?

LG
Antworten Top
#4
Hallo,

warum den eine API wenn es auch direkt in VBA geht?

Code:
UserName = environ("username")

"Environ" kann alle environment variables auslesen.

Der gezeigte Code sagt nichts über das Vorhaben aus.

mfg
Antworten Top
#5
Hier ist die Datei, vielleicht hilft es ja weite. Ziel ist es jede Veränderung aufzunehmen und und auf einer separaten Tabelle anzuzeigen.

Vielen Dank und LG


Angehängte Dateien
.xlsm   Historie.xlsm (Größe: 16,99 KB / Downloads: 5)
Antworten Top
#6
Hallöchen,

mal ohne in die Datei geschaut zu haben -
1) Du hast hier eine Funktion. Soll diese auf einem Arbeitsblatt genutzt werden oder von einem anderen Makro? Die sollte jedenfalls in einem "normalen" Modul hinterlegt und ggf. mit "Public" definiert sein.
2)
Zitat:die Integration verläuft etwas schwierig
Was sagt uns das? Schwierig, bedeutet ja nicht, dass es nicht geht.
3) Was ist (nach 2) dann die Frage bzw, falls doch was nicht geht, was geht nicht?
.      \\\|///      Hoffe, geholfen zu haben.
       ( ô ô )      Grüße, André aus G in T  
  ooO-(_)-Ooo    (Excel 97-2019+365)
Antworten Top


Gehe zu:


Benutzer, die gerade dieses Thema anschauen: 1 Gast/Gäste