Copy wenn A und nicht ganzes Tabellenblatt
01.10.2003 10:14:33
Sven
Mit Hilfe von Beni hab ich gestern diesen Code zusammen gebaut
Private Sub CommandButton1_Click()
Dim sPath As String, sWks As String, sFile As String
Application.ScreenUpdating = False
sPath = ActiveWorkbook.Path & "\"
Dim Default
sWks = "Berechnungen"
If sWks = "" Then Exit Sub
sFile = [a2] & "-" & [f2] & "-" & [i2]
prompt = "Blattname"
If sFile = "" Then Exit Sub
ActiveSheet.Copy
ActiveSheet.Name = sWks
ActiveWorkbook.SaveAs sPath & sFile
ActiveSheet.Shapes("CommandButton1").Delete
ActiveWorkbook.Close
Application.ScreenUpdating = True
End Sub
um ein neues Workbook anzulegen und das eine Tabellenblatt da hinein zu kopieren.
Aber es sollte nicht das ganze Tabebelle kopieren, sondern nur die Row wenn bedingung erfüllt. Hab das über ne Schleife und ein If versucht und dem Copy noch ein Range vorgeschaltet,aber irgendwie will er das dann nicht ganz kopieren. Und wenn es geht,sollte er die "wenn ja erfüllt" Zeilen auch unternander kopieren und nicht genau in die selbe Zeile wie aus dem Orginal, d.h. untereinander,selbst wenn die nächste zeile mit dem Atribut erst 20 Zeilen später im Orginal kommt.
Fragen über fragen,ich weiß. aber helfen kann mir da doch bestimmt einer oder?
Gruß Sven