Hallo
aus der Regedit kannst du gar nichts auslesen :-)
Nur aus der Registry, ... und das geht aus der gesamten Registry NUR mit dem WSH.
Sub Create_Specific_RegKey()
'by Ramses
Dim myWSH As Object, myNewRegKey As String
Dim myRegResKey As String, myRegToWriteKey As String
Set myWSH = CreateObject("WScript.Shell")
'Es wird ein spezifischer Schlüssel angelegt, der normalerweise
'von EXCEL aus mit Get- und SaveSetting erreicht werden kann
'Mit WSH kann jedoch die gesamte Registry beschrieben,
'verändert und gelesen werden
'Hier wird der Unterschlüssel DemoWSH Script mit Unterschlüssel Setting
'und dem Wert "Wert1" erstellt
myNewRegKey = "HKEY_CURRENT_USER\Software\VB and VBA Program Settings\DemoWSH Script\Setting\Wert1"
'Dem zu erstellen Schlüssel wird der Wert 100 zugewiesen
myWSH.regWrite myNewRegKey, "100"
End Sub
Sub Read_Specific_RegKey()
Dim myWSH As Object, myReadRegKey As String
Dim myRegResKey As String
Set myWSH = CreateObject("WScript.Shell")
'Es muss auch der Unter-Eintrag im Key angegeben werden
'hier die 1
myReadRegKey = "HKEY_CURRENT_USER\Software\VB and VBA Program Settings\TestAnw\StartUp\1"
myRegResKey = myWSH.regread(myReadRegKey)
MsgBox "Aktueller Wert:" & myRegResKey
End Sub
Sub Change_Specific_RegKey()
Dim myWSH As Object, myReadRegKey As String
Dim myRegResKey As String, myRegToWriteKey As String
Set myWSH = CreateObject("WScript.Shell")
'Es muss auch der Unter-Eintrag im Key angegeben werden
'hier die 1
myReadRegKey = "HKEY_CURRENT_USER\Software\VB and VBA Program Settings\TestAnw\StartUp\1"
myRegResKey = myWSH.regread(myReadRegKey)
MsgBox "Aktueller Wert:" & myRegResKey
myRegToWriteKey = InputBox("Neuen Wert bitte eintragen:", "Registry Wert ändern", myRegResKey + 10)
If Not IsNumeric(CDbl(myRegToWriteKey)) Then
MsgBox "Der Wert muss eine Zahl sein"
Exit Sub
End If
myWSH.regWrite myReadRegKey, myRegToWriteKey
End Sub
Gruss Rainer