Hallo Leute
Habe unteres Makro, das mir den aktuellen Sheets kopiert.
Nun möchte ich aber nur bis zu dem Bereich kopieren bis zur 2 leeren Zelle in Spalte A
Zb.A33 ist die erste leere Spalte nun würde A34:F34 kopiert gehören.
Also immer A:F
Die Markros sollten auch nicht mitkopiert werden.
Könnte mir Bitte dabei jemand behilflich sein ?
Danke und Gruß, Heinz
Private Sub CommandButton1_Click() Dim dlg As Object Dim pfad As String Dim datei As String pfad = "C:\Dokumente und Einstellungen\Holzmann\Desktop\Gösselbauer\" datei = ActiveSheet.Range("A1") Set dlg = Application.FileDialog(msoFileDialogSaveAs) With dlg .InitialFileName = pfad & datei & ".xls" .Show End With If dlg False Then dlg.Execute End Sub