KarlBerg

Hi, wenn's schon bei anklicken vom Worksheet nen Fehler gibt, würd ich mal alle Daten kopieren und in ne neue Datei einfügen und das Macro nochmal test. (Kann sein, dass ich's falsch verstanden hab, aber Du schreibst: "...meine Datei heißt xlWS1". Tabelle1 steht hier für den Namen des TabellenBlatts (Worksheets), nicht für den DateiNamen) (Aber da haste dich wohl nur verschrieben) Wenn das "UsedRange" net laufen will, kannste ja die Harte Tour versuchen, und alle Zeilen auslesen, nur haste dann halt keine Leerzeilen mehr drin. For i = 1 To 65536 If Tabelle1.Cells(i, 1).Value <> "" Then Combo_einlesen.AddItem Tabelle1.Cells(i, 1).Value End If Next i MfG KarlBerg

Hi, TomsRtBt hatte ich auch schon probiert, mit dem selben Ergebnis wie bei dir Am Schluss hab ich dann "HAL91" (auch ne Linux-BootDisk) genommen, damit gings irgendwie. Ist vielleicht net ganz so ausgereift wie TomsRtBt aber besser wie nix. MfG KarlBerg (Hab gerade gesehen, dass sich www.Toms.net ganz schön verändert hat seit meinem letzten Besuch. Damals gab's noch jede Menge Links zu anderen MiniLinuxen. Kannst ja mal nach HAL91 suchen.)

Hi, kannst ja mal folgendes probieren? - Bearbeiten->AllesMarkieren (Wenn du Glück hast, bekommste dann schon alles angezeigt, sonst ...) - Datei->Wiederherstellen Dann haste zwar alles wieder zurück, aber wenigstens ist die Datei gerettet. Hilfe meinte das hier: Dateien, die mit Hilfe des Datei-Managers oder der Befehlszeile gelöscht wurden, werden nicht im Papierkorb angezeigt. Vielleicht ist das ja auch die Wurzel allen Übels *Sülz* MfG KarlBerg

Hi, das mit der Linux-BootDisk hatte ich auch schon versucht, hab dann aber nach nem Monat aufgegeben. Es sollte einfach nicht sein Hast du auch das HowTo von Tom Fawcett? Hat zuerst wunderbar gepasst, nur gegen Ende wurden einige Befehle von SUSE nicht erkannt, und dann war auch schon Feierabend. Am Ende hab ich Entwickler bereits bestehender MiniLinuxe angeschrieben. Einer hat mir dann recht ausführlich erklärt, wie ich seine Version abändern kann. Also Scripte und so hinzufügen, und was ich sonst noch so brauchte. Das hat dann auch funktioniert. (Zwar net so toll wie ganz selbst gemacht, aber besser wie nix) MfG Karlberg

Hi, kannste mal ein Beispiel geben, wie das "Quellformat" aussieht, und wie die Daten am Ende aussehen sollen (also ZielFormat). (Kann man vielleicht mit nem einfachen eigenen Prg lösen.) MfG KarlBerg

Hi, zeichne dir einfach simple Makros auf, und schau die den Code an. Versuch verschiedene Makros zu kompinieren, und besorg dir ein Buch über OfficeMacros. Ich hab mit Macros in Excel angefangen, die sind zu beginn einfacher, wenn man noch keine Ahnung von VB / VBA hat. Die Befehle kannste aber "später" in Access meist übernehmen, ist also nicht umsonst. MfG KarlBerg

Hi, musst (soweit ich das überblicken kann) eigentlich net die ExportFunktion verwenden. Kannste ja auch selbst exportieren, dann kannste dein Format wählen wie du's willst. (Komma, Punkt, LeerZeichen, Slash, ... was du willst) hab mal was zusammen geknaupt Sub SaveInFile() Dim Zeile As String Dim DateiName As String DateiName = "C:\temp\PrmTest.txt" erg = Dir(DateiName) If erg <> "" Then If MsgBox("Die Datei """ & DateiName & """ existiert bereits!" & vbCrLf & "Löschen?", vbQuestion Or vbYesNo, "Löschen?") = vbYes Then Kill DateiName Else MsgBox "Die Daten werden an die bereits bestehende """ & DateiName & """ angehongen!", vbInformation, "Anhängen" End If End If For i = 1 To Tabelle1.UsedRange.Rows.Count Zeile = Tabelle1.Range("A" & i) & " " & Tabelle1.Range("B" & i) Open DateiName For Append As #1 Seek #1, LOF(1) + 1 Print #1, Zeile Close #1 Next i End Sub Hier darauf achten, dass dein Tabellenblatt auch "Tabelle1" heisst. Ausserdem werden hier nur Spalte A und B geprüft, ist aber beliebig veränderbar. Die Variabel DateiName sollte auch eingestellt werden. (Könnte man über ne InputBox machen) MfG KarlBerg

Hi, zum Thema ImageZiehen: Norton Ghost ist nicht schlecht, ich bevorzuge aber PowerQuest DriveImage. Erstell die Notfalldisketten, mit denen kannst'e alles machen. Davon gibt's auch ne Trial. MfG KarlBerg

Hi, brauchst nur die PST Datei sichern. Weiss leider im moment nicht mehr wo die Standardmäßig liegt, am besten mal nach *.pst suchen. Da sind zumindest mal die ganzen Mails drin, aber kann gut sein, dass da auch der Rest drin ist (Kontakte, usw.). MfG KarlBerg

Hi, du musst "xlWS1" durch den Namen vom Tabellenblatt ersetzen. In meinem Fall war das Tabelle1. (Haste wohl aus nem Beispiel kopiert ) Dim i As Integer Dim anzZeilen As Integer Combo_einlesen.Clear anzZeilen = Tabelle1.UsedRange.Rows.Count For i = 1 To anzZeilen Combo_einlesen.AddItem Tabelle1.Cells(i, 1).Value Next i Ansonsten kannste so immer nur eine Spalte einlesen. Die Nummer der Spalte ist in deinem Fall die 1 (also A) und steht hier: ....Cells(i, 1).Value MfG KarlBerg

Hi, hier ist ein allgemeiner Link zu SMNP (nicht nut MIB): http://www.linux-magazin.de/ausgabe/1998/07/NetMan/netman1.html MfG KarlBerg

Hi, also so einfach geht das best. nicht, leider... Aber schau dir das hier mal an, vielleicht kannste da was umschreiben. http://www.activevb-archiv.de/vb/VBtips/VBtip0325.shtml Hier kannste auch mal nach "Listbox farben" suchen, aber soweit ich das überblickt habe hat da auch keiner ne Lösung gefunden MfG KarlBerg

Hi, probier das hier: Private Sub CommandButton1_Click() TextBox1.Text = Tabelle1.Range("b3") End Sub Das TabellenBlatt heisst hier "Tabelle1". MfG KarlBerg

Hi, Da ich nicht weiss, wie weit du Makros kennst, erklär ich's mal ganz genau. Starte Excel, drücke ALT+F11. Jetzt sollte sich ein Editor öffnen. Links steht dann der Name deiner Exceldatei. Darauf Rechter Mausknopf, Einfügen->Modul Hier dann das hier einfügen Sub HyperlinkKicker() For i = 1 To 1000 'Wenn's mehr als 1000 Zeilen sind, Hier ändern Range("A" & i).Select 'Wenn's nicht Spalte A ist, HIER ändern Selection.Hyperlinks.Delete Next Range("a1").Select End Sub Die Maus irgendwo zwischen "Sub HyperlinkKicker" und "End Sub" setzen. F5 drücken Fertig MfG KarlBerg

Hi, markiere alle Vor und Nachnamen -> kopieren in eine andere Zelle klicken, wo du das Zeug hinkopieren willst (kannst) ->Bearbeiten ->Inhalte Einfügen -> Werte ->OK -Fertig- Die jetzt erhaltenen Spalten kannste sortieren. MfG KarlBerg

Respekt, du kannst ein Land, nur an ein paar Zweigen und nem Schild erkennen Könnte eigentlich auch jedes andere englisch sprechende Land sein, bzw. glaubt Microsoft, dass man sich Days und Launch selbst übersetzen kann. Du könntest aber schon Recht haben, dass die Hand vielleicht etwas zu alt für nen Schüler ist. Die Hand würde vielleicht besser zu "P. P. Gold - und Silberschmied" passen (siehe Herkunft vom Bild ) MfG KarlBerg *Irgendwie schweift das hier vom Thema ab*

Hi, ich nehme mal an, dass rsProzent die AktuelleProzent-Angabe ist. Sollte die Berechnung dann nicht so aussehen: rsProzent = Round(rsAnzahlAktuell * 100 / rsAnzahlSumme) Naja egal, kannste ja gegebenenfalls ändern. Los geht's: Auf deiner Form ziehste die ein neues Image auf. z.B.: 240 Hoch, und 0 Breit (am besten die Werte von Hand eingeben) Das Image PrgBar nennen. Do rsAnzahlAktuell = rsAnzahlAktuell + 1 rsProzent = Round(100 / rsAnzahlSumme * rsAnzahlAktuell) Forms!Datenbank_Auswahl!txtTabelle.Value = rs![Name].Value Forms!Datenbank_Auswahl!txtProzent.Value = rsProzent DoCmd.RepaintObject acForm, "Datenbank_Auswahl" Set tbldef = db.TableDefs(rs![Name].Value) tbldef.RefreshLink rs.MoveNext Prgbar.Width = 4450 / 100 * rsProzent If rs.EOF Then Exit Do End If Loop PrgBar.Width = 0 'Breie auf Null setzen, wenn fertig in diesem Block (Das Prograssbar ist in diesem Beispiel bei 100%, 4450 Breit) Hab jetzt leider keine Zeit mehr, kannst's ja mal testen, wenn's net geht, sag bescheid MfG KarlBerg

Hi, hab mir das Tool mal angschaut. Geht echt gut. Mit der Schleife ist es halt so ein Problem, wegen der Rückmeldung von PsExec. Auf die sollte man schon warten, sonst weiss man net ob's geklappt hat oder net. Das hier läuft: psexec [i]\\RechnerName[/i] -u administrator -p [i]AltesPasswort[/i] net user administrator [i]NeuesPasswort[/i] Ist so zumindest schon mal weniger Aufwand, als das ganze lokal zu erledigen. MfG KarlBerg

@Matze|pcs klingt vielleicht etwas Paranoid, aber das Bild würd ich vielleicht weg lassen. 1. sieht man "deine" Serial (Serial könnte Infos über den Eigentümer vom Original geben, der die Kopien "vertreibt") 2. hast du zu deiner HP gelinkt, auf der man direkt deinen kompletten Namen lesen kann (Matze passt nicht auf allzuviele Namen auf der HP ) Iss mir aber auch egal, wollte dich net anpissen... MfG KarlBerg

Hi, Irfan-Viewer und Office-Prgs tun's auch. MfG KarlBerg

Hi, hast du irgendeine Schleife, in der man einen Zähler einbauen kann? Den Zähler könnte man dann zur Berechnung der Prozente verwenden. Oder gibt's da ne Status-Funktion, die schon "von Haus aus" dabei ist? Wenn du die Prozentangaben hast, sollte der Rest kein so großes Problem sein (Glaub ich zumindest jetzt noch ) Kannst ja mal posten, wie der Teil aussieht, bei dem die Tabelle eingebunden wird. MfG KarlBerg

Was soll das denn heissen??? Hab's gerade nochmal per Copy&Paste in VB5.0 übernommen und it does - everything... Hast du auch die File2Modify/HelpFile abgeändert, dass sie auf deine Dateien zeigen?

Hi, hab hier was zusammen geknaupt, ist vielleicht nicht die schönste Methode, sollte aber laufen. Private Sub Command1_Click() Dim Zeile As String Dim HlpText As String Dim File2Modify As String Dim HelpFile As String File2Modify = "C:\Temp\Test.txt" HelpFile = "C:\Temp\TestErg.txt" Open File2Modify For Input As #1 Do While Not EOF(1) Line Input #1, Zeile If Trim(Zeile) <> "" Then HlpText = HlpText & Zeile & vbCrLf End If Loop Close #1 Open HelpFile For Append As #2 Print #2, HlpText Close #2 Kill File2Modify Name HelpFile As File2Modify End Sub MfG KarlBerg

Hi, nimm das: set WSHNetwork = CreateObject("WScript.Network") MsgBox "Ihr Computername lautet: " + WSHNetwork.ComputerName, vbInformation Set fs = CreateObject("Scripting.FileSystemObject") Set a = fs.CreateTextFile("C:\ams4u.ws", True) a.Write("Ihr Computername lautet " & WSHNetwork.ComputerName ) MfG KarlBerg

Hi, in der Registry findest du alles was du willst, ohne lästiges Festplatten durchsuchen. Brauchst also "nur" ein Prg. zu schreiben, dass aus der Registry den Pfad der Office-Produkte und welche installiert sind ausliest, und dann die Ergebnisse in ne Datei auf em Netzlaufwerk schreibt. Dazu kannst'e dann noch den Rechnernamen zur Übersicht packen. Das Prg. kannste ja an alle Mitarbeiter senden, mit der bitte es einmal auszuführen. Beim ausführen wird dann eine BatchDatei erzeugt, die dein Programm und sich selbst beim nächsten Windows start löscht. (Kannst'e auch in der Registry angeben, dass die Batch EINMAL ausgeführt wird) Hier sind mal die RegistryPfad, die dir helfen sollten. HKEY_CURRENT_USER\Software\Microsoft\Office\10.0\ HKEY_CURRENT_USER\Software\Microsoft\Office\10.0\Word\Options Das dumme ist, dass jeder User dann noch die Msmvb5.dll (oder so) braucht. Die kannste aber auch mit Fusion in die Exe packen. Sollte alles soweit gehen. MfG KarlBerg