MsgBox in Zelle
07.08.2023 08:19:57
Andy
in dem Forum fand genau den Code den ich brauch, leider denke ich wieder alles kaputt.
Wie bekomme ich es hin, dass das Ergebnis (Was in der MsgBox steht) in Zellen geschrieben wird?
Public Sub Druckerauflistung()
Const HKEY_current_user = &H80000001
Set oReg = GetObject("winmgmts:{impersonationLevel=impersonate}!\\.\root\default:StdRegProv")
strKeyPath = "Software\Microsoft\Windows NT\CurrentVersion\Devices"
oReg.EnumValues HKEY_current_user, strKeyPath, arrValueNames
For i = 0 To UBound(arrValueNames)
oReg.GetStringValue HKEY_current_user, strKeyPath, arrValueNames(i), strValue
msg = msg & arrValueNames(i) & Replace(strValue, "winspool,", " auf ") & vbCr
Next
Set oReg = Nothing
MsgBox msg, vbInformation, "Druckerliste WMI"
End Sub
Vielen Dank für die Hilfe