Live-Forum - Die aktuellen Beiträge
Datum
Titel
17.10.2025 17:57:35
Zellen-Name aus A1 nach H1 übertragen mit Prä- + Suffix
17.10.2025 11:36:58
verschachteltes Dropdown-Menü
17.10.2025 10:28:49
Call Anweisung
16.10.2025 18:38:17
Zusammenfassung nach Personalnummer
Keine passende Antwort im Forumarchiv gefunden?
Stelle deine Frage im Live-Forum
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
216to220
216to220
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Computername

Forumthread: Computername

Computername
09.02.2003 16:15:40
Christian
Hallo Forum,

ein kleines Programm läuft auf verschiedenen Rechnern. Da auf unterschiedliche Verzeichnisse zugegriffen wird, wollte ich über den Computernamen entsprechend auswählen.
Mit dem Makro klappts leider nicht. Liegt's vielleich an einem Verweis?

Gruß Christian

Sub pcName()
Dim z As String * 64
Call GetComputerName(z, 64)
cptName = z

End sub




Anzeige

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
Re: Computername
09.02.2003 16:22:29
Ramses

Hallo Christian,

Das zweite makro fehlt hier in der Abbildung und ich weiss nicht was dort drin steht.

Die einfachste Variante ist:

Sub PC_Name()
x = Environ("Computername")
'Zur Demonstration
Debug.Print x
End Sub

Gruss Rainer


Re: Computername
09.02.2003 16:22:30
Ramses

Hallo Christian,

Das zweite makro fehlt hier in der Abbildung und ich weiss nicht was dort drin steht.

Die einfachste Variante ist:

Sub PC_Name()
x = Environ("Computername")
'Zur Demonstration
Debug.Print x
End Sub

Gruss Rainer


Anzeige
Re: Computername
09.02.2003 16:24:00
Hajo_Zi

Hallo Christian

ich sehe nun nicht wie Du mit Deinem Code dem Computernamen rauskriegst.
unter NT x1 = Environ("COMPUTERNAME")

ansonsten

computername
Private Const MAX_COMPUTERNAME_LENGTH As Long = 31
Private Declare Function GetComputerName Lib "kernel32" Alias "GetComputerNameA" (ByVal lpBuffer As String, nSize As Long) As Long
Private Sub Form_Load()
Dim dwLen As Long
Dim strString As String
'Create a buffer
dwLen = MAX_COMPUTERNAME_LENGTH + 1
strString = String(dwLen, "X")
'Get the computer name
GetComputerName strString, dwLen
'get only the actual data
strString = Left(strString, dwLen)
'Show the computer name
MsgBox strString
End Sub
Andi_Bln

Gruß Hajo

Anzeige
Re: Computername
09.02.2003 21:44:12
Christian

Hallo Hajo,
Hallo Rainer,

ich gebe zu, dass das Stückchen Code nicht besonders aussagefähig
war.
Was ich suchte war ..."Environ("COMPUTERNAME")"
Manchmal sieht man halt den Wald nicht vor lauter Bäumen.
ALSO VIELEN DANK AN EUCH

Christian Zinser


;

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige