Live-Forum - Die aktuellen Beiträge
Datum
Titel
17.06.2025 22:07:43
Gesamtliste mit mehreren Blättern und ...
17.06.2025 21:20:55
Hyperlink in Spillfunktion
17.06.2025 19:33:47
Multiuserfähig und unterschiedliche Datumsformate ?
17.06.2025 14:19:23
Nur eindeutige Werte übernehmen
Keine passende Antwort im Forumarchiv gefunden?
Stelle deine Frage im Live-Forum
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
576to580
576to580
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Makro Problem

Forumthread: Makro Problem

Makro Problem
01.03.2005 13:54:12
Hans
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
Anzeige

6
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Kategorie
Programmierung
Tags
#dateiendung #makro #vba
Relevante Fragen
Anzeige
Betreff
Datum
Anwender
Anzeige
AW: Makro Problem
01.03.2005 13:59:42
Klaus-Dieter
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
AW: Makro Problem
01.03.2005 14:02:14
c0bRa
hallo
wenn er in deiner funktion das sub speicherung() aufrufen soll, dann bitte mit call speicherung()
Das Forum lebt auch von Rückmeldungen...
c0bRa
Anzeige
noch nicht alles !
01.03.2005 14:05:05
Hans
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
Anzeige
AW: noch nicht alles !
01.03.2005 14:08:36
c0bRa
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
Anzeige
AW: Makro Problem
01.03.2005 14:10:02
Klaus-Dieter
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
Anzeige
ihr seit unschlagbar ! super ! o. T.
01.03.2005 14:14:07
Hans

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige