Smilla

Wie ists gelaufen? *daumendrück*

Bei uns trägt jeder fast was er will, also kurze Hosen und T-Shorts sowie Turnschuhe oder im Sommer auch so Trekkingsandalen haben viele an. Habe vor kurzem auch einen in FlipFlops gesehen Klar, wenn man zu Kunden muss, zieht man sich natürlich anders an (Anzug). Ich trage in letzter zeit oft Tops, Jeans die ich bis zum Knie hochkrempel und Flipflops. Wenn ich im Büro rumlaufe dann auch mal barfuß bei der Hitze

Wir durchlaufen bei uns 4 Abteilungen. Die Organisation und Verwaltung, da war ich 2 Wochen. Dann Vertrieb/Marketing. Softwareentwicklung/Programmierung und Interne Administration. Finde es gut das wir auch nicht so unbedingt berufsbezogene Abteilungen durchlaufen haben dann sieht man so was die Bürokaufleute bei uns so machen

Hallo zusammen, bei uns in der Firma haben einige Probleme mit ihrem Notebook, wenn es am Netz ist und hochgefahren wird dauert das Laden der Computereinstellungen sehr lange! Wenn der Netzstecker ausgesteckt ist geht es in normaler Geschwindigkeit. Woran kann das liegen? Hab die Aufgabe danach zu suchen aber leider bisher nichts brauchbares im Internet gefunden. Vielleicht könnt ihr mir ja helfen!

Hallo Katrin, mir gehts ähnlich wie dir nur das ich von anfang an gut akzeptiert wurde obwohl ich eine der jüngsten in der Klasse bin Bin auch mit einem aus der Klasse zusammen

Also wir haben weder Religion noch Sport. Wir haben eben Deutsch, Gemeinschaftskunde, Wirtschaftskunde, Englisch, SAE (Programmieren), ITS (Informationstechnik, Hardware, Netzwerk), BWL, ITS-Labor, SAE Labor und BWL-Labor (eben die Laborfächer am PC mit praktischen Aufgaben/Übungen im gegensatz zu den Theoriefächern).

Also ich bin auch ein Mädchen und lerne FI AE bin im Betrieb die einzige Frau (außer denen im Vertrieb und in der Verwaltung, aber die sind im andern Gebäude). In der Berufschulklasse haben wir noch ein weiteres Mädchen Also ich hab keine Probleme mit den Jungs in der Klasse, und auch im Betrieb alles bestens!

Keins meiner Makros wird aufgezeichnet?! :confused:

Dann bekomme ich komischerweise ein leeres Fenster auf...

Klappt leider nicht. Aber mal Frage, wo liegt mein Fehler? Irgendwie zeichnet es nämlich bei mir keine Makros auf.Wenn ich sie später bearbeiten will sind sie leer. Ich folge dieser Anleitung http://office.microsoft.com/de-ch/assistance/HP051894201031.aspx Funktioniert auch alles immer bis auf eben die Zuweisung! Und noch ne Frage, woher wisst ihr diese Codeteile die ihr mir genannt habt?

Was mache ich nur falsch? Wollte eben ein Makro aufzeichnen für "Speichern unter" aber irgendwie tut sich da nichts

Sooo mit dieser Zeile Selection.PasteSpecial Link:=False, DataType:=wdPasteText klappt es nun

Mit dieser Zeile fügt er mir aber ganz normal ein, aber es soll ja nur Text einfügen ohne vorherige Formatierungen... :confused:

Azubi 1. Jahr FIAE 6 Wochen Betrieb dann wieder 2 Wochen Schule. FÄcher: ITS, SAE, BWL, Englisch, Deutsch, Gemeinschaftskunde, Wirtschaftskunde, ITS-Labor, SAE-Labor, BWL-Labor.

Genau, der Befehl fügt den Inhalt unformatiert ein!

OK, aber das Problem ist, wenn ich jetzt als Beispiel die Funktion "Nur Inhalt einfügen" als Makro möchte, geht das aufzeichnen des Makros nur wenn etwas in der Zwischenablage liegt, sonst ist das Feld ausgegraut! Wenn ich nun etwas in die Zwischenablage kopiere und dann das Makro aufzeichnen will dann fügt es mir den Inhalt meiner Zwischenablage ein... :confused:

Ich soll ein Wordmakro schreiben, habe aber keine ahnung davon Wer kann mir mal Grundlegende Dinge nennen? Im Internet hab ich leider nix brauchbares gefunden bis jetzt, werde aber morgen auch nochmal weitersuchen! Wie genau schreibe ich ein Wordmakro? Also in Word da auf Extras -> Makro -> aufzeichnen, das weis ich. Und dann? Mein Makro soll die Funktion "Nur Inhalt einfügen" (Berarbeiten -> Nur Inhalt einfügen) ausführen. Das Makro soll dann ein Symbol und ein Tastenkürzel (ShortCut) bekommen. Beides letztere ist nicht mein Problem, haben wir in der Berufschule gelernt wie man das macht ;-)

Büro abschließen entfällt bei mir, sitze im Großraumbüro So Scherze hab ich bisher (als ich meinen Rechner noch nicht immer gesperrt hab) nicht erlebt, macht bei uns eigentlich keiner, aber da ich finde das es niemand was angeht das ich vielleichtm mal privat im I-Net bin sperre ich immer

Hallo zusammen, mich würde einfach mal interessieren wie ihr das handhabt, sperrt ihr euren Rechner jedesmal wenn ihr den PC verlasst (also auf Toilette gehn, Kaffee holen, ...). Ich habs früher nie gemacht, habs mir aber jetzt doch angewöhnt! Würd mich mal interessieren wie andere das so handhaben, ob ichs übertrieben seh oder so? Macht bei uns aber eigentlich jeder mit dem PC sperren, das hat ja auch nix mit Misstrauen zu tun sondern nur zur Sicherheit finde ich

Falls jemand noch den ganzen Code brauch: Option Explicit 'Globale Variablen Dim strSuche 'Suchbegriff Dim sAdressFilePath Dim arrAdresse() 'Array Dim arrErgebnis 'Array Dim iArrayElements iArrayElements = 1 Dim CountLines Dim SucheNochmal Dim sLine Dim tempfile sAdressFilePath = "U:\VBScript\adressverwaltung\adressen.txt" '================================================================= ' Main '================================================================= 'InputBox mit Frage nach Suchwort Suchfunktion 'Datei einlesen ReadEntireFile(sAdressFilePath) 'Array erzeugen AddToArray(sLine) 'AddToArray(TempFile) 'Durch Array arrAdresse loopen und suchen SucheInArray() 'Suchergebnis ausgeben 'Neue Suche starten? NochmalSuchen 'FERTIG! '================================================================= ' Functions und Subs '================================================================= 'Inputbox mit Frage nach Suchwort Sub Suchfunktion strSuche = InputBox ("Geben Sie bitte Ihren Suchbegriff ein!" , "Suchfunktion") End Sub 'Datei einlesen Function ReadEntireFile(sAdressFilePath) Const ForReading = 1 Dim fso, theFile, i, inhalt i = 1 Set fso = CreateObject("Scripting.FileSystemObject") Set theFile = fso.OpenTextFile(sAdressFilePath, ForReading, False) Do Until theFile.AtEndOfStream inhalt = theFile.ReadLine WScript.Echo inhalt 'AddToArray(theFile.ReadLine) i = i + 1 CountLines = CountLines + 1 Loop theFile.Close End Function 'Erzeugt aus dem Inhalt der Datei ein Array Sub AddToArray(sLine) Dim arTemp 'Variable für Temporäres Array iArrayElements = iArrayElements + 1 'WScript.Echo "iArrayElements:" & iArrayElements & vbNewLine ReDim Preserve arrAdresse(6,iArrayElements) arTemp = Split(sLine, ";") 'WScript.Echo UBound(arTemp) arrAdresse(0,iArrayElements) = arTemp(0) arrAdresse(1,iArrayElements) = arTemp(1) arrAdresse(2,iArrayElements) = arTemp(2) arrAdresse(3,iArrayElements) = arTemp(3) arrAdresse(4,iArrayElements) = arTemp(4) arrAdresse(5,iArrayElements) = arTemp(5) 'WScript.Echo arTemp() ' Dim i ' For i = 1 To UBound(arrAdresse,2) ' WScript.Echo arrAdresse(0,i) ' WScript.Echo arrAdresse(1,i) ' WScript.Echo arrAdresse(2,i) ' WScript.Echo arrAdresse(3,i) ' WScript.Echo arrAdresse(4,i) ' WScript.Echo arrAdresse(5,i) ' Next End Sub Function AddToArray(TempFile) MsgBox TempFile End Function 'Suche in Array Function SucheInArray() Dim ix, iy For ix = 0 To 6 For iy = 0 To CountLines ' MsgBox ix ' MsgBox iy 'MsgBox arrAdresse(1,1) If strSuche = arrAdresse(ix,iy) Then MsgBox "Vorname:" & arrAdresse(ix,iy) & vbCrlf & "Nachname:" & arrAdresse(ix+1,iy) & vbCrlf & "Strasse:" & arrAdresse(ix+2,iy) & vbCrlf & "PLZ:" & arrAdresse(ix+3,iy) & vbCrlf & "Ort:" & arrAdresse(ix+4,iy) & vbCrlf & "Telefonnummer:" & arrAdresse(ix+5,iy) NochmalSuchen Else End If Next Next Dim i Dim arrTempAdresse() 'Temporäres Array um die Ergebnisse der Suche zu speichern Dim iArrayElem2 iArrayElem2 = 0 For i = 1 To UBound(arrAdresse, 2) If strSuche = arrAdresse(1,i) Then iArrayElem2 = iArrayElem2 + 1 'WScript.Echo "iArrayElements:" & iArrayElem2 & vbNewLine ReDim Preserve arrTempAdresse(6, iArrayElem2) arrTempAdresse(0, iArrayElem2) = arrAdresse(0,i) arrTempAdresse(1, iArrayElem2) = arrAdresse(1,i) arrTempAdresse(2, iArrayElem2) = arrAdresse(2,i) arrTempAdresse(3, iArrayElem2) = arrAdresse(3,i) arrTempAdresse(4, iArrayElem2) = arrAdresse(4,i) arrTempAdresse(5, iArrayElem2) = arrAdresse(5,i) arrTempAdresse(6, iArrayElem2) = arrAdresse(6,i) End If Next End Function 'Möchten Sie nochmal suchen?? Function NochmalSuchen() Do While SucheNochmal <> vbNo SucheNochmal = MsgBox ("Möchten Sie nochmal suchen?", vbYesNo, "Suchfunktion") If SucheNochmal = vbYes Then Suchfunktion SucheInArray() Else End If Loop End Function

If strSuche = arrAdresse(ix,iy) Then Das ist Zeile 122! Es ist Zeile 122, Zeichen 5 gemeint, wenn ich die Fehlermeldung doppelt anklicke lande ich bei Zeile 122, die ich euch eingestellt hab.

Hattest du das gemeint?

Neues Problem, es kommt die Fehlermeldung „Laufzeitfehler in Microsoft VBScript: Index außerhalb des gültigen Bereichs: '[number: 0]'“. Es wird ein Array erstellt in das die Daten die vorher aus der Textdatei ausgelesen wurden reingeschrieben werden sollen. Ich glaube das die Ursache für den Laufzeitfehler darin liegt das das Array leer ist, also gar nicht „befüllt“ wird… Wer kann mir das bestätigen oder sagen wo der Fehler sonst liegt und mir bei der Lösung helfen? Hier der Code vom auslesen der Textdatei sAdressFilePath = "U:\VBScript\adressverwaltung\adressen.txt" Const ForReading = 1 Dim fso, theFile, i, inhalt i = 1 Set fso = CreateObject("Scripting.FileSystemObject") Set theFile = fso.OpenTextFile(sAdressFilePath, ForReading, False) Do Until theFile.AtEndOfStream 'AddToArray(theFile.ReadLine) i = i + 1 CountLines = CountLines + 1 inhalt = theFile.ReadLine 'WScript.Echo inhalt Loop theFile.Close Und hier das Erstellen des Arrays: Dim arTemp 'Variable für Temporäres Array iArrayElements = iArrayElements + 1 'WScript.Echo "iArrayElements:" & iArrayElements & vbNewLine ReDim Preserve arrAdresse(6,iArrayElements) arTemp = Split(sLine, ";") 'WScript.Echo UBound(arTemp) arrAdresse(0,iArrayElements) = arTemp(0) arrAdresse(1,iArrayElements) = arTemp(1) arrAdresse(2,iArrayElements) = arTemp(2) arrAdresse(3,iArrayElements) = arTemp(3) arrAdresse(4,iArrayElements) = arTemp(4) arrAdresse(5,iArrayElements) = arTemp(5) Sorry das ich ständig mit neuen Fragen komme...

Danke, jetzt funktioniert es!  Da meine Msgbox den Inhalt der Textdatei wiedergibt, kann ich davon ausgehen das die Textdatei ausgelesen wird!?

Ok Amstelchen danke aber wie gebe ich dann den Inhalt aus? Ich muss ja rausfinden ob die Textdatei ausgelesen wurde...