Herbers Excel-Forum - das Archiv
Makro Problem
Informationen und Beispiele zu den hier genannten Dialog-Elementen:
Betrifft: Makro Problem
von: Hans - Georg
Geschrieben am: 01.03.2005 13:54:12
Hallo ich habe mir folgendes Makro aus der Recherche geangelt und für meine Zwecke umgeschrieben.
Private Sub CommandButton1_Click()
Sub Speicherung()
Dim SpeicherName As String
SpeicherName = "D:\Peters-Party-Service\Party - Service\Gespeicherte Dateien\Angebote\" & Range("A9") & "_" & Range("U3") & "_" & Range("U4")
ActiveWorkbook.SaveAs Filename:=SpeicherName
End Sub
Das Makro wurde einem Schaltbutton zugewiesen, aber ich bekomme immer die Fehlermeldung: Fehler beim Kompelieren, Mehrdeutiger Name "Speicherung"
Ach so, die Datei ist eine .XLT und soll nach dem Speichern als eine .XLS gespeichert werden, das fuzzt auch nicht so ganz.
Wer kann mir weiterhelfen ??
Vielen Dank
Hans-Georg
Betrifft: AW: Makro Problem
von: Klaus-Dieter
Geschrieben am: 01.03.2005 13:59:42
Hallo Hans-Georg,
was mir auffällt sind zwei Aufrufe einer Sub. Das geht sicher nicht. Nimm einfach mal diese Zeile: Sub Speicherung() raus, dann sollte es gehen.
Gruß Klaus-Dieter
Betrifft: AW: Makro Problem
von: c0bRa
Geschrieben am: 01.03.2005 14:02:14
hallo
wenn er in deiner funktion das
sub speicherung() aufrufen soll, dann bitte mit
call speicherung()
Das Forum lebt auch von Rückmeldungen...
c0bRa
Betrifft: noch nicht alles !
von: Hans - Georg
Geschrieben am: 01.03.2005 14:05:05
Hallo Klaus-Dieter,
inzwischen habe ich Deinen Tip umgesetzt und es funktioniert tadellos.
Leider hab ich noch das Problem mit der Dateiendung also beim Speichern als .XLS
Die Datei wird zwar abgespeichert, aber die Dateiendung fehlt, so dass ich von dort aus nicht ohne weiteres die Datei öffnen kann.
Vielen Dank
Hans-Georg
Betrifft: AW: noch nicht alles !
von: c0bRa
Geschrieben am: 01.03.2005 14:08:36
so etwa?
...
SpeicherName = "D:\Peters-Party-Service\Party - Service\Gespeicherte Dateien\Angebote\" & Range("A9") & "_" & Range("U3") & "_" & Range("U4") & ".xls"
ActiveWorkbook.SaveAs Filename:=SpeicherName
End Sub
Das Forum lebt auch von Rückmeldungen...
c0bRa
Betrifft: AW: Makro Problem
von: Klaus-Dieter
Geschrieben am: 01.03.2005 14:10:02
Hallo Hans-Georg,
versuche es mal so:
Private Sub CommandButton1_Click()
Dim SpeicherName As String
SpeicherName = "D:\Peters-Party-Service\Party - Service\Gespeicherte Dateien\Angebote\" & _
Range("A9") & "_" & Range("U3") & "_" & Range("U4") & ".xls"
ActiveWorkbook.SaveAs FileName:=SpeicherName
End Sub
Gruß Klaus-Dieter
Betrifft: ihr seit unschlagbar ! super ! o. T.
von: Hans - Georg
Geschrieben am: 01.03.2005 14:14:07