Kopieren von Worksheets in neues Workbook

Computer: Software & Programmierung Visual Basic
#1

Hallo zusammen,
nun ist es mal wieder soweit ich hab da mal ein Problem

Also ich hab in einem Worksheet Daten die mit einem Buton ausgedruckt und gespeichert werden. Wenn die Daten auf das zweite Blatt geschrieben werden wir auf dem zweiten Worksheet mittels Buton Worksheets 1 und Worksheets 2 mittels Buton gespeichert und kopiert, alles funktioniert. So nun möchte ich gerne:

  1. Hätte ich gern ein Popup-Fenster in dem Werte eingetragen werden müssen, ohne eingetragene Werte kann nicht weitergearbeitet werden. Ohne unload me. Diese Werte werden mit anklicken des OK Buton in die entsprechende Cells eingetragen

  2. Mit einem Buton auskommen, der selber erkennt wenn in Worksheets 2 Daten eingetragen sind z.B. in „B2“ dass er Woorksheets 2 mit ausdruckt und wenn nicht nur Worksheets 1(einfacher zu bedienen).

  3. Würde ich gerne eine Kopie des ausgedruckten erstellen und zwar nur von Worksheets ohne Funktionen, Formeln, … und diese Schreibschützen.

puuh das ist glaube ich gar nicht so einfach.
Es würde die Bedienung erheblich vereinfachen.
Ist da jemand (oder mehrere) der (die) mir helfen kann?

Vielen Dank im Vorraus
Gruß Achim

#2

Hi Achim,

Also ich hab in einem Worksheet Daten die mit einem Buton
ausgedruckt und gespeichert werden. Wenn die Daten auf das
zweite Blatt geschrieben werden wir auf dem zweiten Worksheet
mittels Buton Worksheets 1 und Worksheets 2 mittels Buton
gespeichert und kopiert, alles funktioniert.

zeige bitte den Code ?

  1. Hätte ich gern ein Popup-Fenster in dem Werte eingetragen
    werden müssen, ohne eingetragene Werte kann nicht
    weitergearbeitet werden. Ohne unload me.

Eine Userform ohne Schließkreuz ?

Diese Werte werden
mit anklicken des OK Buton in die entsprechende Cells
eingetragen

Bastle mal eine Userform, lade dann die Datei hoch via FAQ:2861 o.ä.

puuh das ist glaube ich gar nicht so einfach.

Weiß ich nicht, ich hänge noch an Verständnisproblemen was genau du da möchtest.

Gruß
Reinhard

#3

Hallo Reinhard,

sorry dass ich mich nicht gemeldet hab hatte die letzten Tage keine Zeit.

So hier ist der aktuelle Code

„Das ist der Code von Seite 1 Speichern und Drucken“
Private Sub CommandButton1_Click()
Worksheets(„Prozeßregelkarte Seite 1“).PageSetup.PrintArea = „$A$1:blush:AK$43“
ActiveSheet.PrintOut
ActiveWorkbook.SaveCopyAs „C:\Dokumente und Einstellungen\ Prüfbericht ChargenNr " & Worksheets(„Prozeßregelkarte Seite 1“).Range(“ AR1 „) & (“.XLS")
Worksheets(„Prozeßregelkarte Seite 1“).Range(„AR37:AR40“).Clear
Worksheets(„Umrechnungsblatt“).Range(„B2:AA18“).Clear
End Sub

„Das ist der Code von Seite 2 Speichern und Drucken“
Private Sub CommandButton1_Click()
Worksheets(„Prozeßregelkarte Seite 1“).PageSetup.PrintArea = „$A$1:blush:AK$43“
Worksheets(„Prozeßregelkarte Seite 1“).PrintOut
Worksheets(„Prozeßregelkarte Seite 2“).PageSetup.PrintArea = „$A$1:blush:AK$43“
Worksheets(„Prozeßregelkarte Seite 2“).PrintOut
ActiveWorkbook.SaveCopyAs „C:\Dokumente und Einstellungen\ Prüfbericht ChargenNr " & Worksheets(„Prozeßregelkarte Seite 1“).Range(“ AR1 „) & (“.XLS")
Worksheets(„Prozeßregelkarte Seite 1“).Range(„AR37:AR40“).Clear
Worksheets(„Umrechnungsblatt“).Range(„B2:AA18“).Clear
End Sub

Jetzt versuche ich noch meinen Userform Versuch hochzulade

So ich bedanke mich schon einmal und hoffe aif gute Nachrichten

[Bei dieser Antwort wurde das Vollzitat nachträglich automatisiert entfernt]