Dateneingabe u. Arbeitsblatt kopieren

Hallo Zusammen,
ich werde erst mal mein Problem so ausdrücken:
Dateneingabe mit Übernahme in einer anderen Arbeitsmappe und Tabellensblatt in bestimmten Ordner kopieren.
mit hilfe von Josef Ehrensberger (noch mal dankeschön Sepp) habe ich geschaft über Button-klick:
Daten von bestimmten Zelle eine Excel-Datei in andere Excel-Datei (genannt: Preisliste.xls und mit Pfad: "C:\Artikelliste\Preisliste.xls") zu übertragen. und das funktioniert einwandfrei!!
damit ist das erste Teil meine Problemstellung schon gelöst- nämlich: Dateneingabe mit Übernahme in einer anderen Arbeitsmappe
hier lade ich erstmal dies Makro hoch: https://www.herber.de/bbs/user/52992.xls
meine Problem bleibt jetzt das zweite Teil: und Tabellensblatt in bestimmten Ordner kopieren.
ich möchte nun dies Makro ergänzen: es soll nicht nur dieser Befehl ausführen, auch dabei
das ganze Tabellensblatt ("Kalkulation") und Tabellensblatt ("Machbarkeit") auf C:\ in bestimmte Ordner kopieren mit folgende Bedingungen.
- wenn Zelle D13 von Tabellensblatt ("Kalkulation") ="Vor"; denn Kopieren Tabellensblatt ("Kalkulation") und Tabellensblatt ("Machbarkeit") in Pfad: C:\Artikelliste\Vorkalkulation\Kunde1\Blech.xls
PS: der Ordner Kunde1= text in Zelle B5
die Name der Arbeitsmappe Blech= Text in Zelle B9
diese beide Angabe sollen variable bleiben, weil der Kunde u. Teil Bezeichung sich ändern
- aber wenn Zelle D13 von Tabellensblatt ("Kalkulation") ="Nach"; denn Kopieren Tabellensblatt ("Kalkulation") und Tabellensblatt ("Machbarkeit") in Pfad: C:\Artikelliste\Nachkalkulation\Kunde1\Blech.xls PS: der Ordner Kunde1= text in Zelle B5
die Name der Arbeitsmappe Blech= Text in Zelle B9
diese beide Angabe sollen variable bleiben, weil der Kunde u. Teil Bezeichung ändern
- sollte der Ordner Kunde1 noch nicht vorhanden sein, denn soll ein Fehlermeldung fordern den Ordner zuerst zu erstellen.
Achtung: der Button-Klick in dem Tabellensblatt ("Kalkulation") darf nicht mitkopieren werden
ich habe schon alle probiert, leider kriege ich das nicht hin... für euer hilfe bin ich sehr dankbar.
im voraus danke
Maiks

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Sub BlaetterSpeichern() Dim wksKalk As Worksheet Dim wbKopie As Workbook Dim strDateiname As String Dim strKunde As String Dim strKalkulation As String Dim strNameMappe As String On Error GoTo Fehler Set wksKalk = Worksheets("Kalkulation") Const strPfadVorKalk As String = "C:\Artikelliste\Vorkalkulation" Const strPfadNachKalk As String = "C:\Artikelliste\Nachkalkulation" strKunde = wksKalk.Range("B5") strNameMappe = wksKalk.Range("B9") & ".xls" strKalkulation = wksKalk.Range("D13") 'Prüfen in welchen Ordner kopiert werden soll, ggf. Ordner erstellen If strKalkulation = "Vor" Then If Dir(strPfadVorKalk & "\" & strKunde, vbDirectory) = "" Then VBA.MkDir strPfadVorKalk & "\" & strKunde End If strDateiname = strPfadVorKalk & "\" & strKunde & "\" & strNameMappe ElseIf strKalkulation = "Nach" Then If Dir(strPfadNachKalk & "\" & strKunde, vbDirectory) = "" Then VBA.MkDir strPfadNachKalk & "\" & strKunde End If strDateiname = strPfadNachKalk & "\" & strKunde & "\" & strNameMappe Else MsgBox "Falsche Auswahl in Zelle B13!" GoTo Beenden End If 'Blätter kopieren ThisWorkbook.Sheets(Array("Kalkulation", "Machbarkeit")).Copy Set wbKopie = ActiveWorkbook 'Schaltfläche löschen wbKopie.Worksheets("Kalkulation").Shapes("Schaltfläche 1").Delete 'Datei speichern wbKopie.SaveAs FileName:=strDateiname, addtomru:=True wbKopie.Close Beenden: Fehler: If Err.Number 0 Then MsgBox "Fehler: " & Err.Number & vbLf & Err.Description & vbLf _ & "in Prozedur BlaetterSpeichern" End If Set wksKalk = Nothing Set wbKopie = Nothing End Sub

Beliebteste Forumthreads (12 Monate)

Dateneingabe u. Arbeitsblatt kopieren

4 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

4
Beiträge zum Forumthread

Beiträge zu diesem Forumthread