was muss an diesem Code (siehe unten) verändert werden, damit "Speichern unter" Dialog angezeigt wird?
Unter Dateinamme soll in "Speichern unter" oder ähnliches Dialog diese Dateiname "excel.bat" stehen. Nach dem Speichern soll die "excel.bat" Datei ausgeführt werden.
Zur Zeit ist der Pfad c:\temp\ in Code fest verdrahtet.
Sub Batch_Copy()
Dim ff As Integer
Dim rng As Range
Dim tmp As String
Dim Zeile As Long, Spalte As Integer
If Selection.Areas.Count > 1 Then
MsgBox "Es muss ein zusammenhängender Bereich definiert sein!"
Exit Sub
End If
Set rng = Selection
ff = FreeFile
Open "c:\temp\excel.bat" For Output As #ff
For Spalte = rng(1).Column To rng(1).Column + rng.Columns.Count - 1
For Zeile = rng(1).Row To rng(1).Row + rng.Rows.Count - 1
With Cells(Zeile, Spalte)
If .Value "" Then Print #1, .Value
End With
Next Zeile
Next Spalte
Close #1
Starte = Shell("c:\temp\excel.bat")
End Sub
Vielen Dank im Voraus...
Liebe Grüße
Selma