Gato Barbieri Che Corazon Help / RR:Suche

Hallo,
ich bräuchte wieder mal . Und zwar benötige ich für eine Schaltfläche, die in einem Header quasi positioniert ist, ein Makro das bei Klick auf den Button das "Dateiauswahlfenster" anzeigt. Daraufhin wähle ich ein Bild aus und er fügt mir das Bild unterhalb des Headers in einem Positionsrahmen ein. Geht sowas in Word?
für !

Vom Prinzip her. Ja - das geht. dazu schreibst du dir einen VBA-Code, der dier diese Funktionalität bietet.
Allerdings solltest du dafür schon ein wenig Erfahrung in der VBA-Programmierung besitzen.

ja gut, die erfahrung besitze ich noch nicht unbedingt - versuche mir das aber gerade anzueignen. könntest du mir vielleicht bei dem code helfen? im optimalen fall kann ich über den button mehrere bilder untereinander einfügen, die sich jeweils von der größe automatisch an den positionsrahmen anpassen. geht sowas?
!

Nachdem das kein kleiner Zweizeiler wird. sorry.
Aber. möglich ist in der VBA-Programmierung sehr vieles.

uff. auch nicht zumindest den anfang? ich wäre schon glücklich darüber, wenn sich nach dem klick auf den button das auswahlfenster für die dateiauswahl aufgeht und ich mir ein dazugehöriges bild auswählen kann. das dürfte ja prinzipiell nicht so umfangreich sein.
!

Hallo,
eigentlich total peinlich als IT-Mensch eine solche Frage zu stellen. Komme aber leider nicht selbst weiter.
Ich habe ein ca. 25-seitiges Dokument bei Word und möchte das Inhaltsverzeichnis automatisch erstellen.
Da ich zwischen Seite 20 und 21 einen Seitemumbruch machen musste, weil ab dort 3 Seiten im Querformat sind, fängt das Inhaltsverzeichnis nach Seite 20 wieder bei Seite 0 an.
Wie kann ich das richtig einstellen?
Danke

Wahrscheinlich hast du nicht nur einen Seitenwechsel, sondern einen Abschnittswechsel (zwingend beim Ändern des Seitenformates) eingefügt. Und jetzt ist der Abschnitt mit der Seitennummerierung "Beginnen mit 0" formatiert ...
Cursor in den Abschnitt stellen ... Einfügen - Seitenzahlen - ganz unten Seitenzahlen formatieren ... und dort "Fortsetzen vom vorherigen Abschnitt" auswählen ... 
Jeder Abschnitt kann in Word unterschiedlich formatiert werden ... ;)
Sollte schon ausreichen ;) 

Vielen Dank! Hat hervorragend geklappt.

Kann das sein das man in der Pubertät stark ablenkbar ist und auf nichts Bock hat? Ich bin 14 und auf einem Gymnasium. Die Lehrer meinen auch ich könnte viel mehr erreichen und viel besser sein, aber ich sei so faul. Das stimmt leider auch. Dass das ich faul bin. . Ich könnte hier sicher nen Aufsatz schreiben aber ich denke, dass vieles davon auch beim Lesen der Frage schon klar ist. Würde jetzt gerne wissen ob das durch die Pubertät sein kann? Weil ich bis zur 6. Klasse glaub ich war das, nie Probleme damit hatte.ich wurde mit 5 eingeschult)).

Jetzt bin ich 14 Jahre alt und bin in der 9.

Durchaus normal. Aber wie wäre es, wenn du über einen Wechsel nachdenkst? Im Endeffekt ist es oft besser für dich.

ja,natürlich.
ich hatte auch einen durchhänger.
wenn man in die pubertät kommt,gibt es einfach "interessantere" sachen,als in der schule gut zu sein.
es bieten sich mit 14,15,16 jahren einfach einige möglichkeiten.schule wird da leicht verdrängt.
wenn man sich zu sehr dem teenie-leben hingibt,kann es sein,dass man mit 17,18 dann vor einem großen problem steht,deshalb sollte man zwar das jugend-leben genießen,aber dennoch auch nicht vergessen,dass man später auf eigenen beinen stehen muss.

What the macro doas: It lists all files in the chosen filesystem. in range A it writes the addres, in range B it writes the filename What i need to be added: in range C it writes the last changedate the matching command must be: ".DateLastModified " i have tried again and again but keep getting error messages-.-
I have the following macro :Option Explicit Private strList() If strTMP = "" Or Left = ":" Then Exit Sub SearchFiles strTMP, "*.*" 'adapt If lngCount = 0 Then MsgBox "No file found" Exit Sub End If With ThisWorkbook.Worksheets.Cells.Clear.Range1, 2lngCount, 2)strList.Cells, CellsstrDir"A:B""Shell.Application"0, "Folder", &H10, 17strFolder As String, strFileName As String"Scripting.FileSystemObject"strFolderlngCountlngCountlngCountlngCount) = strFolder & "\" lngCount = lngCount + 1 End If Next For Each objFolder In objFSO.GetFolder.Subfolders SearchFiles strFolder & "\" & objFolder.Name, strFileName Next End Sub Public Sub Make_Link(1"B" &.Rows.CountxlUplngRow, 2lngRow, 1lngRow, 2) If strTMP = "" Or Left = ":" Then Exit Sub SearchFiles strTMP, "*.*" 'adapt If lngCount = 0 Then MsgBox "No file found" Exit Sub End If With ThisWorkbook.Worksheets.Cells.Clear.Range1, 2lngCount, 2)strList.Cells, CellsstrDir.Cells, CellsstrDat"A:B""Shell.Application"0, "Folder", &H10, 17strFolder As String, strFileName As String"Scripting.FileSystemObject"strFolderlngCountlngCountlngCountlngCountlngCount) = strFolder & "\" strDat = objFile.Datelastmodified lngCount = lngCount + 1 End If Next For Each objFolder In objFSO.GetFolder.Subfolders SearchFiles strFolder & "\" & objFolder.Name, strFileName Next End Sub Public Sub Make_Link(1"B" &.Rows.CountxlUplngRow, 2lngRow, 1lngRow, 2*3 ist leider nicht möglich

Ja aber das modifizieren war nicht so tragisch. Hab ja nur 2 Zeilen eingefügt bzw 2 mal kopiert und 3 Worte und 2 Zahlen geändert.

WOW, du hast sogar die gleiche variable wie ich benutzt . Im Grunde ist es einläuchtend, was du gemacht hast und ich habe genau das gleich versucht und zwar ca. 1,5 Stunden am Stück, warum das jetzt auf einmal läuft und vorher nicht ist mir ein Rätsel, den Goldenen Stern hast du dir verdient

ich hätte das DH mehrfach vergeben. aber schau Dir trotzdem die beiden Links an, probiere die integrierte Eigenschaft mit Nummer auch mit anderen Nummern aus oder such sonst im Netz was dazu.

Ich weiß nicht wie ich dazu gekommen bin das jetzt auf englisch zu schreiben, also hier nochmal in deutsch:
Das makro gibt quelle und dateiname eines ausgewählten ordners und seiner unterordner aus. ich brauch in zeile C noch das passende Änderungsdatum. Der Befehl dürfte lauten: DateLastModified

Da ich lange nichts mehr mit VBA gemacht habe und da nur in Word, kann ich dir da leider nicht weiterhelfen, aber ich verweise dich da gerne auf das Forum von Microsoft.
Die Newsgroups wurden wie es ausschaut leider geschlossen.
Als ich Probleme hatte wurde mir in den Newsgroups schnell und kompetent weitergeholfen.
Ein Link zum Einstieg ins Forum: Microsoft Community

i've found sth similar in :
Re: Wie kann ich das Speicherdatum in eine Tabellenzeile einfügen?
unexpectedly this µ has worked once but I couldn't reproduce. Even copying and saving in a general module under another name didn't work: The altered title of the µ didn't shine up in the list and starting it via the green triangel didn't work. .
But perhapps you will find qualified help there

machst du dich über mein Englisch lustig? o.o

lustig macht er sich nicht, aber perfekt ist es auch nicht.

Wenn ich mir die Testversion runterlade, wo geregelt ist das es nach 60 Tagen abläuft muss ich das dann iwie abmelden oder bin ich dann trotzdem kaufpflichtig? Oder kann ichs danach einfach deinstallieren ohne Probleme?
Wenn nein, könnt ihr mir bitte ieine Seite sagen wo man power point ohne den Product Key runterladen kann? -.-

Die Testversion laeuft nach 60 Tagen automatisch ab. Du kannst aber kurz vor Ablauf das Programm ospprearm.exe mit Admin-Rechten ausfuehren, dann wird der Testzeitraum zurueck gesetzt, und die 60 Tage fangen von vorn an.

Es ist eine Testversion. Du MUSST dir das Programm nach ablaufen der Zeit NICHT kaufen, wenn du es aber deinstallierst und wieder installierst wird das die Probezeit nicht verlängern oder zurücksetzen. Generelles deinstallieren wird aber kein Problem sein.