Regedit

Informationen und Beispiele zu den hier genannten Dialog-Elementen:
InputBox MsgBox
Bild

Betrifft: Regedit
von: Peter Malze
Geschrieben am: 13.02.2005 12:26:23
hallo VBA Freunde,
weiß jemand wie man Einträge aus der Regedit(W2k) auslesen kann ?
Danke im voraus
Peter

Bild

Betrifft: AW: Regedit
von: Ramses
Geschrieben am: 13.02.2005 12:33:24
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
Bild

Betrifft: AW: Regedit
von: Peter Malze
Geschrieben am: 13.02.2005 14:51:56
Danke Rainer,
ich werde das mal in aller Ruhe abarbeiten.
regedit klar :-( ,...... ich meine natürlich die Registry
Gruß Peter
 Bild

Beiträge aus den Excel-Beispielen zum Thema "Wert aus makierter Zelle in Textbox (usr)auslesen"