Thema Datum  Von Nutzer Rating
Antwort
Rot Variable verketten
15.02.2023 09:16:16 Pixxel
NotSolved
15.02.2023 10:01:03 Mase
NotSolved
15.02.2023 13:15:10 Gast77527
Solved
15.02.2023 13:35:16 Mase
NotSolved
15.02.2023 15:08:46 Pixxel
NotSolved

Ansicht des Beitrags:
Von:
Pixxel
Datum:
15.02.2023 09:16:16
Views:
534
Rating: Antwort:
  Ja
Thema:
Variable verketten

Hallo Forum,

ich möchte gerne ein paar Daten aus dem Active Directory auslesen, das funktioniert auch problemlos. Jetzt habe ich ca. 150 mögliche Variablen die man dort abfragen kann. Diese Variablen habe ich in Tabelle1 in Spalte D.

Nun möchte ich gerne die Werte aus dem AD daneben in Spalte A schreiben.

Das ganze funktioniert aber so einfach wohl nicht. Ich kann den Befehl in der Schleife (oUser) wohl nicht so einfach verketten.

z.B. oUser.displayname ist ok, aber oUser & "." & "displayname" oder & ".displayname" geben mir keine werte zurück.

Wie kann ich das Problem lösen? Vielen Dank schon mal für Eure Mühe.

 

Mein Code:

Sub Test()

Dim oADInfo As Object
 Dim sUserName As String
 Dim oUser As Object
 Dim i As Integer
 Dim Test As String

 On Error Resume Next
 
 Set oADInfo = CreateObject("ADSystemInfo")
 sUserName = oADInfo.UserName
 Set oUser = GetObject("LDAP://" & sUserName)

 
 For i = 2 To 150
   Test = oUser & "." & Worksheets("Tabelle1").Range("D" & i).Value
   Worksheets("Tabelle1").Range("A" & i).Value = Test
 Next i

 
 Set oUser = Nothing
 Set oADInfo = Nothing

End Sub

 


Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:

 
 

  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
Rot Variable verketten
15.02.2023 09:16:16 Pixxel
NotSolved
15.02.2023 10:01:03 Mase
NotSolved
15.02.2023 13:15:10 Gast77527
Solved
15.02.2023 13:35:16 Mase
NotSolved
15.02.2023 15:08:46 Pixxel
NotSolved