Wert AUS Userform übernehmen? :: Office-Hilfe.com - Wir lösen Ihre Probleme mit Microsoft Office

Einloggen, um private Nachrichten zu lesen

Downloads

Wert AUS Userform übernehmen?

Office-Hilfe.com - Wir lösen Ihre Probleme mit Microsoft Office Foren-Übersicht » Microsoft Excel Hilfe

Gehe zu Seite Zurück 1, 2

Autor

Nachricht

schnake
User mit gefährlichem Halbwissen

Anmeldedatum: 17.11.2006
Beiträge: 128

Verfasst am: 02.11.2007, 01:01

ok .. dzu hast ne Pn mit mmeiner mailadresse bekommen da kannstees hinschicken (oben links wirst du stehen habe 2 neue nachrichten)

Pino28
Besserwisser

Anmeldedatum: 17.10.2007
Beiträge: 93

Verfasst am: 02.11.2007, 01:04

Jepp, hab ich....
Mike

Pino28
Besserwisser

Anmeldedatum: 17.10.2007
Beiträge: 93

Verfasst am: 02.11.2007, 01:29

HAllo Schnake!

am Verzweifeln?

Gruß

MIke

schnake
User mit gefährlichem Halbwissen

Anmeldedatum: 17.11.2006
Beiträge: 128

Verfasst am: 02.11.2007, 01:42

sodele. der fehler war das ich vergessen habe dir zu sagen das du Time, Date,usw.. als string festzulegen Embarassed

ganz oben im modul serurity fehlte das hier.. sorry

Code:

Dim zeit As String
Dim datum As String
Dim User As String
Dim Compname As String

habe dir die datei per mail geschickt

du solltest auch module die du nicht brauchst löschen .. die testmodule usw.. das nimmt platz weg ( bläst die exceltabell unnötig auf) Confused

Pino28
Besserwisser

Anmeldedatum: 17.10.2007
Beiträge: 93

Verfasst am: 02.11.2007, 13:15

Hallo Schnake,

ja das hab ich schon bemerkt, das kommt noch. Erstmal wollte ich die Grundfunktionen haben. Einiges hab ich schon rausgelöscht. Die Datei die du geschickt hast schaue ich mir gleich mal an, melde mich dann Montag wieder! Erstmal vielen Dank!

Schönes Wochenende!

Gruß

Mike

Pino28
Besserwisser

Anmeldedatum: 17.10.2007
Beiträge: 93

Verfasst am: 02.11.2007, 13:30

Hallo

BIn BEGEISTERT!

Konnte nicht so lange warten, musste einfachmal testen, GENAU das was ich brauche!!!

Kann man auch noch den Netzwerkname da mit reinbringen, weil es hier einige Subnetze gibt?

Mann, gaaaanz dolle vielen Dank!

Gruß

MIke

Jippiehhhhhh!

schnake
User mit gefährlichem Halbwissen

Anmeldedatum: 17.11.2006
Beiträge: 128

Verfasst am: 02.11.2007, 13:37

ja klar geht das... du musst halt nur sagen was du wo hane willst ( evtl per mail) und ich sage dir dann wie du das wo einbauen kannst

Pino28
Besserwisser

Anmeldedatum: 17.10.2007
Beiträge: 93

Verfasst am: 03.11.2007, 17:12

Hallo Experten!

Nochmal ein RIESEN DAnkeschön an das Forum, insbesondere Schnake, ich komme meinem Ziel immer näher! HAbe natürlich noch weitere Fragen..... Wink

Also mein Formular ist ein Blatt auf dem sämtliche Daten eines Computers eingetragen werden. Nehmen wir an, in Zelle B12, B13, B14 stehen die Werte Passwort1(B12), Passwort2(B13, Passwort3(B14).

In der jeweils daneben befindlichen Zelle (also C12, C13,C14) stehen doie Passwörter. Da die Passwörter in der VErgangenheit geändert wurden, habe ich jeweils eine Liste in C12, C13,C14 (Gültigkeit ) hinterlegt.

Also C12 hat Datenliste sagen wir mal in Spalte A:A
C13 = hat Datenliste in Spalte B:B
C14 hat Datenliste in C:C

Soweit klar? Confused

Das Formular hat natürlich nicht nur 3 DAtenfelder, die Computerdaten des jeweiligen Computers verteilen sich auf ca. 50 Datenfelder, wie Mainbordhersteller, Prozessortyp, Gehäuse usw.

Bis jetzt habe ich für jedes einzelne Feld ein Makro für die Übernahme von neuen Daten geschrieben, also wenn ich einen neuen Rechner aufnehmen muss. DAzu habe ich folgendes geschrieben:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

'Bios Passwort
If Target.Address = "$B$11" Then
Bios
End If
'HDGuard PAsswort
If Target.Address = "$B$12" Then
HDGuard
End If

'Admin Passwort
If Target.Address = "$B$13" Then
Admin
End If

DA ich jedesmal ein neues Makro geschrieben. Meine Idee ist nun nur eine Userform zu basteln, und dann über diese Form evtl. die neue Daten in die Spalten A:A, B:B, C:C einzufügen.

Hier mein Code für die Übernahme der neuen Daten in die Liste:

Dim Mldg, Stil, Titel, Antwort, Text1
Mldg = "Willst du wirklich ein neues Gebäude in der Liste eintragen?" ' Meldung definieren.
Stil = vbYesNo ' Schaltflächen definieren.

Titel = "Neues Gebäude in die Liste eintragen?" ' Titel definieren.

Antwort = MsgBox(Mldg, Stil, Titel, Hilfe, Ktxt) ' Meldung anzeigen.
If Antwort = vbYes Then ' Benutzer hat "Ja" gewählt.

' Operation ausführen.
'Aktives Blatt Sicherung entfernen
ActiveSheet.Unprotect

'Spalten AA bis AZ auswählen, einblenden
Columns("aa:az").Select
Selection.EntireColumn.Hidden = False

'Zelle A1 auswählen
Range("A1").Select

'Blatt "Gebäude" auswählen
Sheets("Gebäude").Select
'aktives Blatt Sicherung entfernen
ActiveSheet.Unprotect

'Spalte A markieren
Columns("A:A").Select

'Spalte A löschen
Selection.ClearContents

'Zelle A1 markieren
Range("A1").Select

'zu Blatt Gerät wechseln"
Sheets("Gerät").Select

'Spalte AA auswählen
Columns("AA:AA").Select
'Spalte komplett kopieren
Selection.Copy

'Blatt "Gebäude" auswählen
Sheets("Gebäude").Select

'Zelle A1 markieren
Range("A1").Select
'kopierte Zellen aus Blatt Gerät (Spalte AA) einfügen
ActiveSheet.Paste

'Aktives Blatt schützen
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True

'Zum Blatt "Gerät" wechseln
Sheets("Gerät").Select

'Spalten AA bis AZ auswählen, einblenden
Columns("AA:AZ").Select
Selection.EntireColumn.Hidden = True

'Zelle A1 markieren
Range("A1").Select
'Aktives Blatt schützen
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True

'Blatt"Gebäude" auswählen
Sheets("Gebäude").Select
'Zelle A1 auswählen
Range("A1").Select
'Vollbildschirm darstellen
Application.DisplayFullScreen = True

Else ' Benutzer hat "Nein"
' gewählt.
Text1 = "Nein" ' Operation ausführen.
End If

End Sub

HAt jemand eine Idee? Wäre mal wieder super!

Gruß

MIke

Office-Hilfe.com - Wir lösen Ihre Probleme mit Microsoft Office Foren-Übersicht » Microsoft Excel Hilfe

Gehe zu Seite Zurück 1, 2

Thema		Autor	Forum	Antworten	Verfasst am
Ähnliche Beiträge
	Betrefzeile automatisch übernehmen	Manfred1	Microsoft Word Hilfe	1	29.06.2008, 13:51
	Wert ans Ende einer Liste	gerri0583	Microsoft Excel Hilfe	3	25.06.2008, 15:06
	Bild in Userform von Arbeitsblatt	dan311	Microsoft Excel Hilfe	1	16.06.2008, 21:34
	userform aktualisieren bei veränderun...	dan311	Microsoft Excel Hilfe	1	07.06.2008, 13:44
	ComboBox in UserForm einblenden / aus...	timi	Microsoft Excel Hilfe	0	05.06.2008, 13:57

Gehe zu:

Du kannst keine Beiträge in dieses Forum schreiben.
Du kannst auf Beiträge in diesem Forum nicht antworten.
Du kannst deine Beiträge in diesem Forum nicht bearbeiten.
Du kannst deine Beiträge in diesem Forum nicht löschen.
Du kannst an Umfragen in diesem Forum nicht mitmachen.
Du kannst Dateien in diesem Forum posten
Du kannst Dateien in diesem Forum herunterladen

Powered by phpBB © 2001, 2002 phpBB Group :: FI Theme :: Alle Zeiten sind GMT + 1 Stunde
Deutsche Übersetzung von phpBB.de