Formular beim Ausdrucken speichern oder übertragen

[Manitu03]

mit usw hatte ich eigentlich gemeint, dass Du die weiteren Codezeilen selber einträgst  

Oha ..., hab die Zeilen jetzt entsprechend ergänzt, nun wird alles ausgefüllt, danke.

und welche Codezeile wird markiert, wenn der Fehler auftritt.

Hmm, ich kann nicht erkennen das etwas markiert wird. Er wirft mir lediglich diese Fehelermeldung aus, die Tabelle wird allerdings korrekt ausgefüllt. (-siehe Anhang)

[Steffl]

Hallo Dirk,

klicke beim Erscheinen der Fehlermeldung auf Debuggen. Ist dann immer noch keine Codezeile markiert?

[Manitu03]

Ah, jetzt ja.

Markierte Zeile siehe Anhang.

[Steffl]

Hallo Dirk,

sorry, war mein Fehler :72:

Mache aus dem Set wks.Quelle = Nothing ein

Code:

Set wksQuelle = Nothing

[Manitu03]

Super, danke Stefan, jetzt funktioniert alles.  
Werde das ganze jetzt mal mit den entsprechenden Leuten in der Praxis testen und mal sehen ob alles hinhaut. ^^

[Manitu03]

Hi, ich bins nochmal. ^^

Mit der Liste passt alles soweit, tolle Sache! Genial was so alles möglich ist, nochmal danke an alle!  :19:

Allerdings sind mir noch zwei Dinge aufgefallen für die ich noch eine Lösung suche.

Das erste ist, das ein neuer Eintrag in der Liste vom nächsten überschrieben wird, sofern kein Datum in das Formular eingetragen wurde. Läasst sich das irgendwie korrigieren?

Das zweite ist die Frage, ob man das Formular so gestalten kann, dass der Eintrag des Datums und der Fahrgestell Nummer einem Benutzer zwingend vorgeschrieben wird(?)

[Steffl]

Hallo,

vielleicht so?

Code:

Private Sub Workbook_BeforePrint(Cancel As Boolean)
      Dim wkbDatei As Workbook
      Dim wksQuelle As Worksheet
      Dim lngZeile As Long
  
      Set wksQuelle = ThisWorkbook.Worksheets(1)
      
      If IsEmpty(wksQuelle.Range("C25").Value) Or IsEmpty(wksQuelle.Range("C8").Value) Then _
      MsgBox "Datum und Fahrgestellnummer müssen ausgefüllt werden": Cancel = True: Exit Sub

      With ActiveSheet
         .SaveAs "G:\Nieder\Inzahlungnahme\" & "\" & .Range("C8").Value, 51
      End With




      'bitte Pfad anpassen
      Set wkbDatei = Workbooks.Open("G:\Nieder\Inzahlungnahme\" & "\" & "1 - ?bersicht.xlsx")

      With wkbDatei.Worksheets(1)
      lngZeile = .Cells(.Rows.Count, 2).End(xlUp).Row + 1

         .Cells(lngZeile, 2) = wksQuelle.Range("C25").Value
         .Cells(lngZeile, 3) = wksQuelle.Range("C20").Value

         'usw
      End With

      wkbDatei.Close True
      Set wksQuelle = Nothing
      Set wkbDatei = Nothing

        Application.DisplayAlerts = False
Application.Quit
  
End Sub

[Manitu03]

Hallo Stefan,

habe es mal getestet, aber dann erhlate ich die folgende Fehlermeldung (Siehe Screenshot).

[Käpt'n Blaubär]

Hallo,

habe es mal getestet, aber dann erhlate ich die folgende Fehlermeldung (Siehe Screenshot).

wie aus Deinem Bildchen wunderbar zu erkennen ist, hast Du zwei Makros mit gleichem Namen
eingerichtet. Das ergibt nun die Fehlermeldung mit Hinweis auf den mehrdeutigen Namen.

Wenn Du Zwillinge in die Welt setzt, so braucht doch auch jeder einen eigenen Namen. sonst
kann das auch nichts werden, sie eindeutig ansprechen zu können. Vor dieses Problem sieht sich
nun Excel gestellt.

Als Lösung solltest Du beide Makros zu einem zusammenführen.

[Manitu03]

Iich sehe gerade...hab mal wieder nur die Hälfte gelesen.   :33:

Sorry. Werde es nachher nochmal anpassen und berichten, danke.

---

Soo, alles angepasst und nun funktioniert es.

(Mit den Makros komme ich mir manchmal fast wie ein Analphabet vor , da ich ansonsten auch nicht viel damit arbeite, aber hier bekommt man ja wirklich Top Hilfe.^^)

Vielen lieben Dank euch und schöne Feiertage! :15:

Grüße
Dirk