Darth Sidious

Hat vielleicht jemand eine Idee wie ich den Code anderweitig einfügen kann bzw. wo und wann sodass er funktioniert?

Und wie könnte ich diesen Code anderweitig implementieren sodass der Code beim starten der UserForm1 ausgeführt wird? Mit einem Change Event geht das ja nicht wirklich (soll ja NUR beim starten der UserForm1 ausgeführt werden).

Bevor ich es hochlade hab ich nochmal eine Idee. Könnte es eventuell daran liegen dass der hinzugefügte Code in der Sub "Private Sub UserForm_initialize()" steht?

Das möchte ich nich wirklich (Privatsphäre). Jedoch würde ich dir per PN ein Link schicken wenn du möchtest.

Das bringt leider auch keine Besserung.

Ich hab die vorher eingefügten Zeilen rausgelöscht --> Es funktioniert. Aber der Code sollte ja auch so laufen. Ich poste hier mal den gesamten Code den ich nachträglich hinzugefügt habe. Vielleicht erkennst Du ja irgendwo den Fehler. [COLOR=Lime]'Filling UserForm1 wit the data from the sheet[/COLOR] If ActiveSheet.Cell(9, 2) <> "" Then [COLOR=Lime] 'Registration of the reason[/COLOR] cboConfig = ActiveSheet.Cells(5, 2) [COLOR=Lime] 'Registration of the user data[/COLOR] txtName = ActiveSheet.Cells(9, 2) txtKID = ActiveSheet.Cells(10, 2) txtAsset = ActiveSheet.Cells(11, 2) txtPhone = ActiveSheet.Cells(12, 2) txtMobile = ActiveSheet.Cells(13, 2) txtMail = ActiveSheet.Cells(14, 2) cboMarket = ActiveSheet.Cells(9, 6) cboBusiness = ActiveSheet.Cells(10, 6) [COLOR=Lime] 'If cboBusiness <> "Other" Then ' ActiveSheet.Cells(10, 6) = cboBusiness ' Else ' ActiveSheet.Cells(10, 6) = txtBusiness 'End If[/COLOR] txtUnit = ActiveSheet.Cells(11, 6) txtStreet = ActiveSheet.Cells(12, 6) txtCity = ActiveSheet.Cells(13, 6) cboCountry = ActiveSheet.Cells(14, 6) [COLOR=Lime] 'Registration of the user role[/COLOR] cboOwner = Sheets("Prevent! Sign-up form").Cells(18, 2) If ActiveSheet.Cells(20, 2) = "X" Then cbxCommunication.Value = 1 End If If ActiveSheet.Cells(21, 2) = "X" Then cbxHSE_Environment.Value = 1 End If If ActiveSheet.Cells(22, 2) = "X" Then cbxHSE_Health.Value = 1 End If If ActiveSheet.Cells(23, 2) = "X" Then cbxHSE_Security.Value = 1 End If If ActiveSheet.Cells(24, 2) = "X" Then cbxInformation.Value = 1 End If If ActiveSheet.Cells(25, 2) = "X" Then cbxOperations.Value = 1 End If If ActiveSheet.Cells(26, 2) = "X" Then cbxInfrastructure.Value = 1 End If If ActiveSheet.Cells(27, 2) = "X" Then cbxSecurity.Value = 1 End If If ActiveSheet.Cells(28, 2) = "X" Then cbxOther.Value = 1 txtOther = ActiveSheet.Cells(28, 4) End If If ActiveSheet.Cells(32, 2) = "X" Then cbxCommunication3.Value = 1 End If If ActiveSheet.Cells(33, 2) = "X" Then cbxHSE_Environment3.Value = 1 End If If ActiveSheet.Cells(34, 2) = "X" Then cbxHSE_Health3.Value = 1 End If If ActiveSheet.Cells(35, 2) = "X" Then cbxHSE_Security3.Value = 1 End If If ActiveSheet.Cells(36, 2) = "X" Then cbxInformation3.Value = 1 End If If ActiveSheet.Cells(37, 2) = "X" Then cbxOperations3.Value = 1 End If If ActiveSheet.Cells(38, 2) = "X" Then cbxInfrastructure3.Value = 1 End If If Sheets("Prevent! Sign-up form").Cells(39, 2) = "X" Then cbxSecurity3.Value = 1 End If If ActiveSheet.Cells(40, 2) = "X" Then cbxOther3.Value = 1 txtOther3 = ActiveSheet.Cells(40, 4) End If [COLOR=Lime] 'Registration of the sms/e-mail notification[/COLOR] If ActiveSheet.Cells(44, 2) = "X" Then cbxCommunication2.Value = 1 End If If ActiveSheet.Cells(45, 2) = "X" Then cbxHSE_Environment2.Value = 1 End If If ActiveSheet.Cells(46, 2) = "X" Then cbxHSE_Health2.Value = 1 End If If ActiveSheet.Cells(47, 2) = "X" Then cbxHSE_Security2.Value = 1 End If If ActiveSheet.Cells(48, 2) = "X" Then cbxInformation2.Value = 1 End If If ActiveSheet.Cells(49, 2) = "X" Then cbxOperations2.Value = 1 End If If ActiveSheet.Cells(50, 2) = "X" Then cbxInfrastructure2.Value = 1 End If If ActiveSheet.Cells(51, 2) = "X" Then cbxSecurity2.Value = 1 End If If ActiveSheet.Cells(52, 2) = "X" Then cbxOther2.Value = 1 txtOther2 = ActiveSheet.Cells(52, 4) End If [COLOR=Lime] 'Registration of the system[/COLOR] If ActiveSheet.Cells(56, 2) = "X" Then cbxProd.Value = 1 End If If ActiveSheet.Cells(57, 2) = "X" Then cbxLearn.Value = 1 End If If ActiveSheet.Cells(58, 2) = "X" Then cbxUK.Value = 1 End If If ActiveSheet.Cells(59, 2) = "X" Then cbxNordic.Value = 1 End If If ActiveSheet.Cells(61, 2) = "X" Then cbxCitrix.Value = 1 End If [COLOR=Lime] 'Registration of other[/COLOR] txtText = ActiveSheet.Cells(66, 1) txtDate = ActiveSheet.Cells(70, 4) txtName2 = ActiveSheet.Cells(71, 4) txtKID2 = ActiveSheet.Cells(72, 4) End If

Leider tritt der Fehler immer noch auf. Sogar genau an der selben Stelle; und zwar hier (Sagt mir der Debugger --> Hat nichts mit den Checkboxen zu tun, wenn ich mich nicht irre): Ich habe jetzt überall True durch 1 ersetzt. Bringt jedoch leider keine Besserung.

Hallo, ich habe heute bei einem VBA-Code ein paar Zeilen hinzugefügt. Seitdem funktioniert das aufrufen der UserForm1 nicht mehr mit dem Befehl UserForm1.Show Hier der betreffende Code: Private Sub cmdStart_Click() UserForm1.Show End Sub Private Sub Workbook_Open() If Sheets("Prevent! Sign-up form").Cells(9, 2) = "" Then UserForm1.Show Else End End If End Sub Jedes mal wenn ich auf die Schaltfläche klicke / das Dokument öffne bekomme ich einen Laufzeitfehler: An dem oben genannten Code wurde nichts verändert, ebenso wenig an den Eigenschaften der UserForm1. Es wurde nur simpler Code hinzugefügt wie dieser: If ActiveSheet.Cells(20, 2) = "X" Then cbxCommunication.Value = True End If Hat jemand eine Idee woran das liegen könnte?

Ok, ich werde demnächst dann mal alles abstecken, wieder anschließen ... Wenn alles noch kein Ergebnis liefert dann wird Mainboard zurückgeschickt. Wenn das nichts hilft sehe ich als Fehlerquelle nur noch Prozessor.

Nachdem das alles privat ist habe ich leider keine funktionsfähigen Ersatzteile.

Ja, schon alles mögliche ausprobiert. Mainboard sendet kein Signal. Netzteil liefert auch Strom (Lüfter drehen sich) ...

Problem: Ich hab hier einen defekten Rechner der nicht mehr einzuschalten ist. Nachdem ich kein Signal auf dem Bildschirm bekamt hatte ich zuerst die Graka unter verdacht. Diese hab ich nun an den Hersteller zurückgeschickt, dieser hat jedoch festgestellt dass diese noch funktionsfähig ist. Der Rechner ist zwar einzuschalten bringt jedoch kein Signal an Bildschirm, auch bekommt Tastatur kein Strom und es kommt auch kein Sound. Ich hab leider nicht die Möglichkeit eine Notfall-PCI Karte zu verwenden (für Notfälle bzw. Diagnose). Als nächstes hätte ich das Mainboard in Verdacht (BIOS-Batterie wurde auch bereits herausgenommen). Was denkt ihr was defekt sein könnte (Prozessor, Mainboard etc.)?

Hallo, ich habe das Problem dass ich die Lüfter nicht geregelt bekomme (zu laut mit 1500 Umdrehungen). Ich würde sie gerne auf ca. 1000 Herunterdrosseln oder weniger. Leider klappt das bei mir nicht. Mainboard: Gigabyte GA-870A-UD3 Lüfter: Artctic-Cooling F12 Es klappt werder mit Speedfan nocht mit dem Gigabyte-Tool Easy Tune 6. Über das BIOS kann ich lediglich die automatische Lüftersteuerung Ein oder Ausschalten. Wenn ich diese Ausschalte kann ich die Drehzahl nicht manuell festlegen (dann läuft es mit maximaler drehzahl). Die Lüfter hängen jeweils an einem System-Fan Anschluss. Schonmal vielen Danke für die Hilfe.

@grueni: Ich werde in Zukunft darauf achten. @lupo49: Das ist geballtes wissen in den Links. Da werde ich mich mal rein-fuchsen und schauen was so möglich ist.

Noch keiner ne Idee?

Hallo, ich bin bei einer bestimmten Funktion wirklich am verzweifeln. Ich finde einfach keinen passenden Befehl/Syntax für das versenden von E-Mails aus VBA(Excel heraus), sodass die E-Mail digital signiert wird und verschlüsselt. Verschlüsselt wird mit einer SmartCard. Hier ist der Auszug aus dem entsprechenden Code: Set OutApp = CreateObject("Outlook.Application") AWS = ThisWorkbook.FullName Set Mail = OutApp.CreateItem(0) With Mail .To = Receiver .CC = "zensiert" .Subject = "zenisert " & cboConfig .attachments.Add AWS .Body = "Please read this document, and approve the user request." & vbCrLf & vbCrLf .ReadReceiptRequested = False .Display End With Set OutApp = Nothing Set Mail = NothingKönnt ihr mir weiterhelfen? (Die Lösungen die am nahsten herankommen, waren die von der Microsoft Website, und von dem Forum "office-loesungen.de", diese funktionieren jedoch leider nicht). Und schade dass Outlook keine Makroaufzeichnung funktion hat . Ich danke euch schonmal herzlichst für die Hilfe.

Das ist wirklich von Unternehmen zu Unternehmen unterschiedlich. Bei mir war es zum Beispiel so. Su beginn kam ein kleiner Englisch Test (z.B. mixed grammar). Darauf folgten ein paar Mathe-Aufgaben. Zum Ende mussten wir noch einen kleinen deutschen Text verfassen über ein Thema (das weis ich leider nicht mehr). Später kamen noch ein par Teamaufgaben (z.B. Ordnet die Begriffe nach euerer Priorität (das waren Begriffe für die Unternehmenskultur)). Wir sollten uns auch mal mit hilfe eines Flip Chart vorstellen und präsentieren. Jetzt gab es erstmal eine kleine Mittagspause. Darauf folgte das persönliche Bewerber-Gesrpäch. Hier haben sie mich über diverse Sachen ausgefragt wie "Warum möchtest du Fachinformatiker werde? Kannst du uns mal ein paar Sätze auf Englisch sagen? Warum gerade diese Firma? Was ist der Unterschied zwischen Router und Swicht?" Aber mein Tipp: Bleib ganz cool und sei einfach du selbst. Sei offen und stets ehrlich. Zum Beispiel bei der Frage mit dem unterschied vom Router und Switch wusste ich nicht die Antwort (damals war ich ja noch "dumm"), da hab ich dann geantwortet dass ich das nicht wisse und dass ich höchstens raten könne; Ich sagte dann aber gleich dass ich genau soetwas in der Ausbildung lernen möchte .... (war scheinbar die richtige Antwort )

Geb mal in dieser Website deine dll Datei ein: DLL-Vista, download all the dll files Dort kannst du sie downloaden.

x y und q .... Verwende ich immer für Zahlenwerte die ich nicht häufig verwende, wie z.B. (i) für For Next Schleifen, oder y für Zeilen oder Spaltenangaben. Die Variable ist noch ein überbleipsel aus dem alten Code. Die wird eigentlich nicht mehr verwendet. Was meinst du genau mit den Inputboxen? Der AW wird hier ja aufgefordert die erste Zelle und die letzte Zelle des gewünschten Bereiches zu markieren. Was anders als "$B$6" wird da nicht drin stehen. speicher2() brauch ich für den Code der ausgegeben werden soll. Der Code ändert sich ja Variable mit jeder Zelle (--> Am Code wird nach jeder Zelle etwas hinzugefügt). Der Array speicher ist bewusst gewählt. Es werden mit sicherhit nie mehr als 1000 benötigt. Der Code der erstellt wird ist für eine bestimmte Anwendung, und diese verkraftet auch nur einen Suchcode bis zu einer gewissen länge (Ich meine es waren 30.000 Zeichen maximal). Wenn dieser Wert überschritten wird, wird wohl ein Laufzeitfehler oder sowas augespuckt. Aber da hast du recht, hier könnte man eventuell noch eine Abfrage mit rein basteln. Hier muss ich auch erwähnen dass ich schon wesentlich "sauberen" Code erstellt habe. Das war ja nur der Code von ca. 3 Stunden mühseligem Google-Suchen, Nachdenken schreiben des Codes an sich. Aber danke für die Hinweise.

So, nun hat mich doch der Ehrgeiz gepackt und ich hab nochmal etwas umstrukturiert. Hier mal der ganze Code: Private Sub cmdCreate_Click() 'Dekleration der verwendeten Variablen Dim i As Integer Dim x As Long Dim y As Long Dim q Dim Code Dim INC As Long Dim zellenwert Dim speicher1 Dim speicher2(0 To 1000) Dim speicher3 Dim länge If cboWhat = "SLG & Zeitraum" Then Form2.Show ElseIf cboWhat = "Incident ID" Then End If If cboWhat = "SLG & Zeitraum" Then Exit Sub End If '___________Bereich festlegen___________ Set StartBereich = Application.InputBox _ ("Bitte den Startbereich eingeben " & vbCrLf & _ "(z.B.: A1) in der sich die erste" & vbCrLf & _ "Ticketnummer befindet.", "Startbereich festlegen", "A1", Type:=8) With Worksheets(1).Range(StartBereich.Address) Spalte1 = .Columns(.Columns.Count).Column Zeile1 = .Rows(.Rows.Count).Row End With Set EndBereich = Application.InputBox _ ("Bitte die letzte Zelle eingeben " & vbCrLf & _ "(z.B.: A1) in der sich eine" & vbCrLf & _ "Ticketnummer befindet.", "Startbereich festlegen", "A1", Type:=8) With Worksheets(1).Range(EndBereich.Address) Spalte2 = .Columns(.Columns.Count).Column Zeile2 = .Rows(.Rows.Count).Row End With Schleifenlänge = Zeile2 - Zeile1 q = Spalte1 For i = Zeile1 To Zeile2 'Abfrage ob die Schleife beendet werden soll (um Zeit und Rechenleistung zu sparen) If Cells(i, q) = "" Then y = y + 1 If y = 3 Then Exit For End If End If '=================== 'Erstellen des Codes INC = Len((Cells(i, 1))) zellenwert = Cells(i, 1) 'Auffüllen der Zahlen mit INC / xx Nullen If Left(Cells(i, q), 3) <> "INC" Then speicher2(i) = "INC" + Format(Cells(i, q), String(12, "0")) Cells(i, q) = speicher2(i) Else speicher2(i) = Cells(i, q) End If y = 0 If speicher2(i) = "" Then y = y + 1 If y = 10 Then Exit For End If Else speicher1 = speicher1 & " " & "'Incident ID*+'=" & Chr(34) & speicher2(i) & Chr(34) & " OR " End If Next i länge = Len(speicher1) x = länge - 4 speicher1 = Left(speicher1, x) Code = speicher1 'Ausgabe des Ergebnisses txtSolution = Code MsgBox "Ihr Suchcode wurde erfolgreich erstellt!" End Sub

Danke Amenos, Len war der Befehl den ich gesucht habe. Nun poste ich nochmal den code für alle die von das selbe Problem haben ... INC = Len((Cells(i, 1))) zellenwert = Cells(i, 1) If INC <= 15 Then Select Case INC Case 1 Cells(i, 1) = ("INC00000000000" & zellenwert) speicher2(i) = Cells(i, 1) Case 2 Cells(i, 1) = ("INC0000000000" & zellenwert) speicher2(i) = Cells(i, 1) Case 3 Cells(i, 1) = ("INC000000000" & zellenwert) speicher2(i) = Cells(i, 1) Case 4 Cells(i, 1) = ("INC00000000" & zellenwert) speicher2(i) = Cells(i, 1) Case 5 Cells(i, 1) = ("INC0000000" & zellenwert) speicher2(i) = Cells(i, 1) Case 6 Cells(i, 1) = ("INC000000" & zellenwert) speicher2(i) = Cells(i, 1) Case 7 Cells(i, 1) = ("INC00000" & zellenwert) speicher2(i) = Cells(i, 1) Case 8 Cells(i, 1) = ("INC0000" & zellenwert) speicher2(i) = Cells(i, 1) Case 9 Cells(i, 1) = ("INC000" & zellenwert) speicher2(i) = Cells(i, 1) Case 10 Cells(i, 1) = ("INC00" & zellenwert) speicher2(i) = Cells(i, 1) Case 11 Cells(i, 1) = ("INC0" & zellenwert) speicher2(i) = Cells(i, 1) Case 12 Cells(i, 1) = ("INC" & zellenwert) speicher2(i) = Cells(i, 1) Case Else speicher2(i) = Cells(i, 1) End Select ... Danke euch

Hallo, ich möchte mit VBA folgende Lösung erreichen: Ich habe in Spalte A ab Zelle 2 immer eine Zeichenkette (z.B. "356894" oder "254"). Diese Zeichen müssen allerdings 15 Stellen lang sein. Der Anfang der Kette soll immer mit einem "INC" beginnen und anschließend soll zwischen INC und der Zeichenkette (wie oben im Beispiel) nullen hinzugefügt werden. Beispiel: Alter Zelleinhalt A2 = "35654" A3 = "2548964" Neuer Zelleinhalt A2 = "INC000000035654" A3 = "INC000002548964" Und weis ich leider nicht wie ich die Zellenwerte auf ihre Länge hin überprüfe und Zahlen/Ziffern dem Wert hinzufüge. Hat da jemand eine Idee?

Ich bin jetzt frisch in das zweite gekommen.

*wieder auskrahm* Wäre es nicht vielleicht doch möglich die Editierbarkeit auf 30 Minuten oder eine Stunde zu erhöhen? Bei mir sind im nachhinein auch schon mehrmals ein paar Dinge aufgefallen die ich hätte besser formulieren könen bzw. Angaben waren unkorrekt / falsch.

EDIT: Das mit den host-Datei ist natürlich im moment nur lokal zum testen. Später wir da noch ein DNS mit eingerichtet und konfiguriert.