DAs Blatt PROVISION fehlt zwar, geht aber per VBA
29.08.2014 12:06:00
NoNet
Hallo Sven,
leider hast Du uns das Blatt "Provision" vorenthalten, daher habe ich es einfach mal mit einem LEEREN Blatt "Provision" getestet. Als Pfad verwende ich den gleichen Pfad wie die Bestelliste, ansonsten bitte den individuellen Pfad im Code anpassen und das Kommentarzeichen ' zu Beginn der Zeile entfernen !
Sub Provisionsliste()
Dim wsBestellungen As Worksheet, wsProv As Worksheet
Dim lngZ As Long, strDateiname As String, strPfad As String, lngC As Long
Set wsProv = Worksheets("Provision")
Set wsBestellungen = Worksheets("Übersicht Bestellungen")
wsBestellungen.Activate
strPfad = ActiveWorkbook.Path & "\" 'Pfad der Bestelliste - ODER :
'strPfad="C:\Temp\Daten\" 'Individueller PFad - mit "\" am Ende !
If MsgBox("Sollen jetzt die einzelnen Bestellugnen als Provisionsdateien im Verzeichnis" & _
vbLf & vbLf & _
strPfad & vbLf & vbLf & "Gespeichert werden ?", vbYesNo + vbQuestion, " _
Provisionsdateien speichern") = vbYes Then
For lngZ = 2 To Cells(Rows.Count, 1).End(xlUp).Row 'Von Zeile 2 bis zum Ende der Liste
If Application.Count(Cells(lngZ, 5).Resize(, 3)) > 0 Then 'Nur wenn in Spalten F:H _
ein Wert steht
wsProv.Copy 'Das Blatt "Provision" als neue Mappe kopieren
[C3] = wsBestellungen.Cells(lngZ, 7) 'Spalte H in C3
[C4] = wsBestellungen.Cells(lngZ, 6) 'Spalte G in C4
[C7] = wsBestellungen.Cells(lngZ, 5) 'Spalte F in C7
ActiveWorkbook.SaveAs strPfad & wsBestellungen.Cells(lngZ, 9) 'Speichern mit _
Dateiname aus Spalte I
ActiveWorkbook.Close 'Provisionsdatei schließen
lngC = lngC + 1 'Zähler erhöhen
End If
Next
MsgBox "Es wurden " & lngC & "Provisionsdateien erstellt !", vbInformation + vbOKOnly, " _
FERTIG !"
End If
End Sub
Eine Frage noch : Was meintest Du mit dieser Einschränkung :
Nun sollen die Daten, wenn diese gefüllt sind,
Derzeit werden Provisionsdateien aus ALLEN Zeilen erstellt, da in jeder Zeile im Bereich F:H Daten enthalten sind.
Gruß, NoNet
