Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1976to1980
1976to1980
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Geöffnete Exceldatei; Speichern unter; "SPORT_alterDateiname

Forumthread: Geöffnete Exceldatei; Speichern unter; "SPORT_alterDateiname

Geöffnete Exceldatei; Speichern unter; "SPORT_alterDateiname
23.05.2024 18:48:37
Lindwurm206
Bitte Hilfe für einen Anfänger :-)
Ich soll in einer Excel Datei (.xlsm) zwei Spalten löschen "F" u. "N" und diese Datei dann als neue Datei abspeichern - Bezeichnung soll sein "Sport_alterDateiname.xls"
Anzeige

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

Betreff
Datum
Anwender
Anzeige
AW: Geöffnete Exceldatei; Speichern unter; "SPORT_alterDateiname
23.05.2024 20:08:53
ralf_b
Dann fang doch einfach an und zeichne es mit dem Makrorekorder auf. Wir unterstützen gern Anfänger beim Anfangen.
AW: Geöffnete Exceldatei; Speichern unter; "SPORT_alterDateiname
23.05.2024 20:22:36
Lindwurm206
Mit dem Makrorekorder habe ich es schon versucht - das Löschen funktioniert
Sport kann ich reinschreiben, aber wie geht der alte Dateiname automatisch dazu? - und es soll ein normales Excel sein ohne Makro.

Danke für RÜAW :-)
Anzeige
AW: Geöffnete Exceldatei; Speichern unter; "SPORT_alterDateiname
23.05.2024 20:56:48
daniel
Hi
ohne Makro musst du es von Hand machen.
per knopfdruck nur mit Makro.
wenn die zu bearbeitende Datei jedoch Makrofrei sein soll, dann kannst du das Makro auch in eine dritte Datei schreiben.
des müssen dann beide Dateien geöffnet sein.
die Datei, die du bearbeiten willst, muss aktiv sein.
Dann startest du das Makro über das Makro-Menü:

der Code müsste so aussehen: 

Sub xxx()

If ActiveWorkbook.Name = ThisWorkbook.Name Then

    MsgBox "Bitte die richtige Datei auswählen"

    Exit Sub

ElseIf ActiveWorkbook.Name Like "SPORT_" Then

    MsgBox "diese Datei wurde schon bearbeitet"

    Exit Sub

End If



ActiveSheet.Columns(14).Delete

ActiveSheet.Columns(6).Delete

Application.DisplayAlerts = False 'keine Rückfrage, falls Datei schon vorhanden, direkt überschreiben

ActiveWorkbook.SaveAs ActiveWorkbook.Path & "\SPORT_" & ActiveWorkbook.Name, ActiveWorkbook.FileFormat

Application.DisplayAlerts = True

ActiveWorkbook.Close False



End Sub

Anzeige
AW: Geöffnete Exceldatei; Speichern unter; "SPORT_alterDateiname
24.05.2024 09:59:31
Lindwurm206
Hallo Daniel, hat so super geklappt, aber ich müsste die neue Datei als xlsx und ohne Makros abspeichern. Vielleicht hast du hier auch einen Weg für mich.
Danke :-)
AW: Geöffnete Exceldatei; Speichern unter; "SPORT_alterDateiname
24.05.2024 11:26:39
daniel
Hi
die Dateierweiterung aus dem Dateinamen entfernen und das FileFormat fest vorgeben. 

ActiveWorkbook.SaveAs ActiveWorkbook.Path & "\SPORT_" & Left(ActiveWorkbook.Name, InStrRev(ActiveWorkbook.Name, ".") - 1), xlOpenXMLWorkbook



Gruß Daniel
Anzeige
AW: Geöffnete Exceldatei; Speichern unter; "SPORT_alterDateiname
02.06.2024 18:42:58
Lindwurm206
Hallo Daniel!

Super hat toll funktioniert - Herzlichen Dank!
Für mich ist VBA wirklich eine "Fremdsprache", aber es gibt hier wirklich tolle "Künstler" - DANKE :-)
;

Forumthreads zu verwandten Themen

VBA-Code - Datei speichern unter; Schleife
Schulze

Halli Hallo,
ich habe eine kurze frage. und war geht es darum, dass die spalte a untersucht werden sollen. es sollen alle werte der tabelle (zeilen) kopiert werden, bis in der spalte a der wert 0 ist.
Im Folgenden habe ich eine Beispieldatei drangehangen. https://www.herber.de/bbs/user/...
21.08.2008 10:57:00
Thread-ID: 1003407
2 Beiträge
VBA Speichern unter
PeterO

Hallo!
Ich habe folgendes Problem:
über einen Commandbutton kopiert der User ein Blatt in eine neue Datei, die so dann gleich geschlossen werden soll. Hier erscheint dann der Dialog "Wollen Sie speichern? - ja - nein - abbrechen -". Ich hätte nun aber gern, dass gleich der Dialog "Speic...
28.10.2008 15:59:44
Thread-ID: 1019997
3 Beiträge
Anzeige
Dateiname bei : Speichern unter
Marco

Hi
ich möchte eine XLS datei per makro abspeichern
Dateiname = "Test_" & VBA.Date
Dim Neuer_Dateiname
Neuer_Dateiname = Application.GetSaveAsFilename(InitialFileName:=Dateiname, fileFilter:="Excel-Arbeitsmappe, *.xls")
If Neuer_Dateiname = False Then Exit Sub
ActiveW...
05.12.2008 11:45:58
Thread-ID: 1030407
6 Beiträge
Datei speichern unter mit Zellverknüpfung
herbi

Hallo,
habe schon viel im Forum gesucht, komme aber mit meinem Problem nicht weiter.
habe eine Datei mit Namen z.b. test.xls
in Zelle b8 steht ein Datum, im Format TT.MM.YYYY zum Beispiel 01.03.2009
ich möchte per Makro die "Datei speichern unter" den alten Namen um das Datum de...
04.03.2009 14:12:05
Thread-ID: 1056392
5 Beiträge
VBA Speichern unter
BuStue

Hallo Leute, schönen Guten Morgen.
KAnn man folgenden Code so umdrehen, das der Inhalt der Zelle D4 vor dem Blattnamen abgespeichert wird,
ActiveWorkbook.SaveAs SavePath & "\" & ActiveSheet.Name & " " & ThisWorkbook.Sheets("Bestandsübersicht").Range("D4").Value & "....
26.03.2009 07:58:29
Thread-ID: 1064084
4 Beiträge
.DAT-Datei speichern mit VBA unter xls
Peter

Hallo Excel-VBA-Spezialisten,
ich habe eine Datei (xxxx.dat) die nach Bearbeitung durch ein Makro letztendlich als xxxx.xls (xxxx bleibt) gespeichert werden soll. Es wird zwar eine xls-Datei gespeichert, aber in der Datei sind immer noch die Texttrennzeichen enthalten. Wie muss ich nachfolg...
18.06.2009 12:47:46
Thread-ID: 1082544
5 Beiträge
VBA-Exceldatei unter Excel 2003 und 2007 nutzen
Martin

Hallo,
ich mache mir den Umstieg von Excel 2003 auf 2007 ziemlich schwer, will aber den Anschluss nicht verpassen und daher auf einem PC gerne unter Excel 2007 arbeiten.
Meine Frage: Ich arbeite sehr intensiv mit einer Exceldatei, in der es zahlreiche benutzerdefinierte über VBA erzeugt...
14.07.2009 12:29:24
Thread-ID: 1088399
5 Beiträge
Anzeige
VBA Speichern unter
Alexander

wie kann ich bei folgendem "speichern unter" das Abbrechen unterdrücken/deaktivieren da ich sonst eine fehlermeldung bekomme ? Sub Exportieren Aktualiesieren() ' Kopieren aktueller stand in alten Stand Range("A6:L98").Copy Sheets("Alter Stand").Select Range("a4").PasteSpecial Paste:=xlPasteValu...
25.07.2009 10:08:55
Thread-ID: 1091205
2 Beiträge
VBA Datei speichern gleich wieder öffnen
Timonski

Servus
ich habe eine Exceldatei mit viel VBA und bei einem Tabellenblatt wird die Datei sehr langsam,
dann speicher ich und lad sie gleich wieder...
und diesen Befehl würde ich gern als Icon in der Symbolleiste hinterlegen...
hätte mir da einer einen Vorschlag?
vielen Dank
21.10.2009 09:36:11
Thread-ID: 1110986
4 Beiträge
VBA:einzelnes Blatt in neuer Datei speichern +mehr
habneFrage

Hallo liebes Forum! Ich habe mich hier heute mal angemeldet, da ich schon seit längerer Zeit an einem Problem arbeite aber keine Lösung gefunden habe. Ich habe mit VBA nicht besonders viel am Hut, dafür kann ich mit anderen Dingen in Excel schon besser umgehen. Nun aber zu meinen Fragen:
Ic...
30.10.2009 08:03:49
Thread-ID: 1113145
14 Beiträge
Unterorden der Datei per VBA
PeTeR

Hallo VBA-Freaks,
ich bräuchte bitte kurz eure Hilfe:
activeworkbook. path ist der ganze Pfad. Ich brauche nur den letzten Unterordner.
z. B.: C:\....\Länder\Ägypten - Die Datei liegt im Ordner Ägypten.
Vielen Dank für eure Hilfe
PeTeR
12.11.2009 12:59:56
Thread-ID: 1116506
5 Beiträge
VBA - Datei speichern wenn Zelle AI1 erreicht
Stef@n

Hallo Excel-aner ;)
Ich arbeite mit einem Code, der der Reihe nach die Zeile 1 von der Spalte C1 bis AI1 "abarbeitet".
Nachdem der Code die Zelle AI1 abgearbeitet hat, soll die Datei gespeichert werden.
...
For Spalte = 3 To .Cells(1, Columns.Count).End(xlToLeft).Column 'die l...
24.11.2009 09:57:10
Thread-ID: 1119667
3 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Anzeige