Clever-Excel-Forum - Excel und Word Datei automatisieren

Seiten: 1 2

Ok ich denke das mit dem nachbauen wird von den Tabellen kein Problem, jedoch mach ich mir bei den Texten Gedanken wie die 1:1 von WORD in die EXCEL Datei eingebaut werden kann.

Ich hab das Problem das die WORD Datei ein fertiges Dokument ist was "nicht" verändert werden soll. Ich mir jedoch zur Vereinfachung der Bearbeitung die Mühe mache es zu verändern.

grüße

Hi, diese unsinnigen Vorgaben in Firmen, Formulare dürfen nicht verändert werden, sind leider tägliche Realität, aber machen deshalb trotzdem keinen Sinn.
Was passiert denn mit deiner Wordvorlage, wenn sie ausgefüllt wurde? Da prüft und unterschreibt jemand, dann wird das Teil abgeheftet. Pb da Spalten und Zeilen etwas verschoben wurden, dürfte doch keine Bedeutung haben.
Habe da leider eigene leidvolle und arbeitsintensive Erfahrungen machen müssen für Reisekostenabrechnungen und Zeitnachweise.
Aber dessen ungeachtet: kommen die Einträge in eurem Zeiterfassunssystem tatsächlich so raus, also bei Übernacht mit Tag und Uhrzeit?

Code:
Sub M_snb()

   With GetObject("G:\OF\Excel.xlsx")

       sn = .sheets(1).Cells(3, 1).currentregion

       .Close 0

    End With

   y = 10

   x = ""

    For j = 2 To UBound(sn)

       If IsNumeric(sn(j, 4)) And sn(j, 4) <> "" Then

           If x <> sn(j, 1) Then

               y = y + 1

               x = sn(j, 1)

            End If

           With Tables(1)

                .Cell(y, 1).Range = sn(j, 1)

                .Cell(y, 2).Range = IIf(sn(j, 4) < 0.5, Format(sn(j, 4), "hh:mm"), "")

                .Cell(y, 3).Range = IIf(sn(j, 5) < 0.5, Format(sn(j, 5), "hh:mm"), IIf(sn(j, 4) < 0.5, "12:00", ""))

                .Cell(y, 4).Range = IIf(sn(j, 5) < 0.5, "", "12:00")

                .Cell(y, 5).Range = IIf(IsNumeric(sn(j, 5)), Format(sn(j, 4), "hh:mm"), "24:00")

                .Cell(y, 6).Range = IIf(IsNumeric(sn(j, 5)), "", "00:00")

                .Cell(y, 7).Range = IIf(IsNumeric(sn(j, 5)), "", Trim(Right(sn(j, 5), 6)))

            End With

       End If

    Next

End Sub

Hi,

(12.12.2017, 13:27)haroXX schrieb: [ -> ]jedoch mach ich mir bei den Texten Gedanken wie die 1:1 von WORD in die EXCEL Datei eingebaut werden kann.

Ich hab das Problem das die WORD Datei ein fertiges Dokument ist was "nicht" verändert werden soll.

Dann übernehme die Texte halt in das Excel.

Wenn Du es 1:1 nachbaust, dann ist es ja nicht verändert.
Es ist am Ende nur keine Word mehr.

Ich habe die ersten 12 Spalten mal umgewandelt, den Rest nur reinkopiert.
[attachment=14967]

(12.12.2017, 14:15)Zwergel schrieb: [ -> ]Hi, diese unsinnigen Vorgaben in Firmen, Formulare dürfen nicht verändert werden, sind leider tägliche Realität, aber machen deshalb trotzdem keinen Sinn.
Was passiert denn mit deiner Wordvorlage, wenn sie ausgefüllt wurde? Da prüft und unterschreibt jemand, dann wird das Teil abgeheftet. Pb da Spalten und Zeilen etwas verschoben wurden, dürfte doch keine Bedeutung haben.
Habe da leider eigene leidvolle und arbeitsintensive Erfahrungen machen müssen für Reisekostenabrechnungen und Zeitnachweise.
Aber dessen ungeachtet: kommen die Einträge in eurem Zeiterfassunssystem tatsächlich so raus, also bei Übernacht mit Tag und Uhrzeit?

Die EXCEL Datei wie ich Sie eingefügt habe, so kommen die in unserem Zeiterfassungssystem raus. die sieht genauso aus.

Die WORD Datei hat im Originalen zwei Seiten und ist auch vom IT-Admin gesperrt worden.(Hab den Schutz entfernt um zu tüfteln.)

(12.12.2017, 15:24)Rabe schrieb: [ -> ]Hi,

Dann übernehme die Texte halt in das Excel.

Wenn Du es 1:1 nachbaust, dann ist es ja nicht verändert.
Es ist am Ende nur keine Word mehr.

Ich habe die ersten 12 Spalten mal umgewandelt, den Rest nur reinkopiert.

Danke für den Upload, bei der Eingabe hab ich gesehen das Die Zelle E11 bei 24:00 auf 00:00 umspringt, kann man das abändern, das 24:00 angezeigt wird.(leider eine Vorgabe).

Danke für eure Hilfe bis hier hin.
Ich bau die Datei erstmal nach, vllt bekomme ich das hin.

MfG

Seiten: 1 2