Live-Forum - Die aktuellen Beiträge
Datum
Titel
18.04.2024 21:09:11
4 Spalten aus smarter Tabelle in andere smarte Tab. kopieren
18.04.2024 20:45:35
Worksheet_Activate für alle Sheets
18.04.2024 19:30:20
VBA - Tabelle mit Mannschaftsergebnissen sortieren
18.04.2024 18:04:29
Formel fehler Wert#
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
432to436
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
432to436
432to436
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Speichername und Ort aus Zellen erstellen

Speichername und Ort aus Zellen erstellen
01.06.2004 11:21:39
Headhunter
hallo,
gibt es eine einfache möglichkeit den speichernamen aus mehreren zellen zu erstellen ( wenn z.b. in A1 ein Datum, in A2 Vor- und Nachname stehen) aus diesen beiden Angaben den Namen der Datei zu machen ( z.b. 03.02.2003 Hansen) und kann man diese funktion noch erweitern, um den Speicherort der Datei anzugeben (z.B. in Zelle A3 steht "Angebot" das die Datei dann unter C:\Angebot\03.02.2003 Hamsem" abgespeichert wird ?
vielen dank im voraus !
HANS

8
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Speichername und Ort aus Zellen erstellen
KlausK
Hallo Hans,
so mal als Ansatz aus der Recherche:

Sub Speicher()
ActiveWorkbook.SaveAs Filename:="H:\Eigene Dateien\Hotelrechnungen\" & ActiveSheet.Cells(15, 4)
End Sub

Halt immer die einzelnen Faktoren mit & verbinden.
Gruss
Klaus
AW: Speichername und Ort aus Zellen erstellen
01.06.2004 11:58:31
Harry
Hallo Klaus,

Sub speichern()
Dim Filename As String
Filename = "C:\" & ActiveCell & "\" & ActiveCell.offset(0,1) & "_" & activecell.offset(0,2) & ".xls"
ActiveWorkbook.SaveAs Filename
End Sub

In Spalte A steht der Ordnername (Ordner muss angelegt sein)
Die betreffende Zelle in Spalte A muss aktiviert sein
Die dazugehörigen Daten müssen in derselben Zeile aber jeweils eine Spalte weiter stehen.
Das sollte dann funktionieren
Gruß
Harry
Anzeige
Funktioniert nicht
01.06.2004 12:18:49
Headhunter
hallo,
leider noch keinen erfolg gehabt.
ich habe inzwischen den Dateinamen mit "VERKETTEN" in zelle A1 stehen, brauche also nurnoch das makro zum speichern!
mfg
HANS
AW: Funktioniert nicht
01.06.2004 12:32:20
Harry
Mmmh, versteh ich überhaupt nicht. Bei mir läuft der Code.
Vorraussetzung, den Ordner gibts im angegeben Pfad, der Pfad ist korrekt und auch 100% gleich geschrieben (groß/klein, Leerzeichen, etc.) und die betreffende Zelle ist aktiviert und nicht leer.
Erklär mir bitte nochmal die Ordnerstruktur.Direkt nach C: speichern oder sind da noch weitere Ordner ?
Kommt alles in den gleichen Ordner, oder hängt das davon ab was (ursprünglich "Angebot") in der ersten Spalte steht ?
Gruß
Harry
Anzeige
Ordnersruktur
01.06.2004 12:41:26
Headhunter
hallo,
die datei soll im laufwerk "D:\Angebote" gespeichert werden, der speichername der datei setzt sich zusammen aus anderen zellen ( ich habe das mit "Verketten" in zelle A1 gemacht, da steht also der dateiname drinn.
ich hoffe das langt als info !?!?
HANS
AW: Ordnerstruktur
01.06.2004 12:55:00
Harry
Reicht voll und ganz.
Da das Ziellaufwerk D ist, im Code aber C steht konnte es ja nicht klappen.
(ggf. in C nachschauen, ob sich da was gespeichert hat)
Für die jetzige Form müßte es dieser Code tun.
Dazu ist vor dem Speichern die Zelle mit dem künftigen Dateinamen zu aktivieren. Falls der Name jedoch immer in A1 steht, dann bitte ActiveCell gegen Range ("a1") tauschen.

Sub speichern()
Dim Filename As String
Filename = "D:\Angebote\" & ActiveCell & ".xls"
ActiveWorkbook.SaveAs Filename
End Sub

Gruß
Harald
Anzeige
Fehler beim Kompilieren
01.06.2004 13:05:27
Headhunter
hallo harald,
beim ausführen des Makros kommt die fehlermeldung "Fehler beim Kompilieren !
habe null ahnung was das ist !!
HANS
AW: Fehler beim Kompilieren
Harry
Was ne schwere Geburt.
Wie und wo ist der Code den eingefügt. Alt+F11, Doppelklick auf "Diese Arbeitsmappe" und bei Allgemein reinkopiert ? Ja ? Gut !
Kompilierungsfehler kann mit dem Format der Zellen zusammenhängen, kann aber auch darauf hinweisen, dass es den Ordner nicht gibt (zumindest nicht in der Schreibweise).
Wir haben eh das Problem, dass er dann Datum und Text in einer Zelle hat.(Gibt witzige Dateinamen..)
Die Version ohne Verkettung, d.h. den ursprünglichen Code mit Offset nochmal auf Rechtschreibung und richtige Verzeichnisangabe prüfen und das Ganze ohne Verketten lösen, wäre mir lieber. Zumal mal dann mit & format(activecell,"yyyymmdd") die Datumsangabe gut übernehmen kann.
Ansonst gibts noch 2 weitere Vorschläge für die Verkettungs-Variante. 

Sub speichern()
Dim Filename As long
Filename = "D:\Angebote\" & ActiveCell.text & ".xls"
chdir "D:\Angebote"
ActiveWorkbook.SaveAs Filename
End Sub

oder das da zwischen die Subs
ChDir "D:\Angebote"
ActiveWorkbook.SaveAs Filename:= _
"D:\Angebote" & ActiveCell.text & ".xls", FileFormat:= _
xlNormal, Password:="", WriteResPassword:="", ReadOnlyRecommended:=False _
, CreateBackup:=False
So...jetzt bin ich aber mit meinem Latein am Ende ;-)
Zu testzwecken kannst Du ja vor die Zeile ActiveWorkbook.SaveAs Filename ein Hochkomma setzen und stattdessen darunter
Msgbox Filename
setzen. Im Editor den Code markieren und mit F5 gucken was passiert. Dann speichert er nciht wild in der Gegend rum.
Harry
Anzeige

308 Forumthreads zu ähnlichen Themen

per Makro passwortgeschützes PDF erstellen
Frank

Hallo!
Ich hoffe mal wieder aud fachkundige Hilfe. Bei meinem aktuellen Projekt müssen aus Excel heraus täglich viele passwortgeschützte PDF-Doumente erstellt werden. Das Passwort ist immer gleich. Es geht lediglich darum die Dateien vor unautorisiertem Zugriff zu schützen, falls jemand das...
15.08.2008 09:20:00
Thread-ID: 1002042
3 Beiträge
Anzeige
Inhalt einer Zelle im Windows Infobereich anzeigen
Thomas

Hallo,
kann ich den Inhalt einer Zelle im Windows Infobereich anzeigen lassen?
Ich habe eine VBA-Anwendung, die mir den Verarbeitungsstatus in einer Zelle anzeigt.
Weil die Verarbeitung sehr lange dauert möchte ich zwischendurch mit anderen Anwendungen arbeiten und unten rechts nebe...
27.08.2008 17:50:23
Thread-ID: 1005163
3 Beiträge
Formel immer nur in bestimmter Zelle
Katrin

Hallo Zusammen!
Folgendes Problem würde ich gerne lösen, weiß aber nicht wie :)
Ich habe in Spalte A in jeder Zeile Uhrzeiten stehen:
00:15:00
00:30:00
00:45:00
01:00:00
01:15:00
01:30:00
01:45:00
02:00:00
02:15:00
02:30:00
02:45:00
...
02.09.2008 10:30:00
Thread-ID: 1006672
3 Beiträge
Anzeige
Kommenare beim Klick in die leere Zelle anzeigen?
Selma

Hallo Leute,
ich möchte in Zellen der Spalte E und Spalte F die Kommmentare als errechnete Werte beim Klick in die Zelle anzeigen, wenn diese Zelle leer sind. Sind die Zelle gefüllt, dann soll der Kommentar nicht angezeigt werden.
Die Voraussetzung ist, dass in Zelle der Spalte D die Za...
11.10.2008 12:17:00
Thread-ID: 1015730
8 Beiträge
Makro nur in bestimmten Zellen
TomTom

Hi,
der folgende Code soll in der Spalte Q das Datum umformatieren. Nun habe ich aber auch in der Spalte Q auch leere Zellen drin und der Code schreibt dann in die leeren Zellen immer 01.01.1900 rein, obwohl sie eigentlich leer bleiben sollen.
Wie kann man den Code ändern, dass leere Ze...
13.11.2008 08:56:51
Thread-ID: 1024041
5 Beiträge
zählenwenn nur auf Teil einer Zelle basierend?
Sascha

Hallöchen,
folgendes Problem,
ich habe eine Artikelerfolgsauflistung (Alpha-Numerisch gefüllte Zellen) über den Bereich Tabelle3!A2-G99.
Über eine Lagerbestandsliste in Tabelle1!B2-B99, die ich per copy/paste täglich aktualisieren kann zählt mir das Programm automatisch die Menge, i...
13.11.2008 12:08:25
Thread-ID: 1024134
10 Beiträge
Zahl 1 bis 7 nur in Zelle eintragen dürfen
Korl

Hallo,
ich möchte in einem Zellbereich z.B. "B7:BI103" in den jeweiligen Zellen nur die Zahlen von "1 bis"7 eintragen dürfen und sofort den Cursor in der jeweiligen Zeile um eine Zelle nach rechts setzen lassen ohne "Enter" tippen zu müssen.
Den Bereich könnte ich mit Gültigkeitskriteri...
17.11.2008 19:55:00
Thread-ID: 1025380
8 Beiträge
Makro: PDF-Drucken automatischer Dateiname
Stewie

Hallo,
ich habe ein Makro erstellt, mit welchem ich meine Tabellenblatt mittels PDF-Maker "drucken" kann.
Funktioniert soweit auch ganz gut, nur muss ich den Dateinamen noch von Hand eingeben.
Ich möchte gerne, dass mir der Text von 2 Zellen in meiner Tabelle als Dateiname benutzt w...
18.11.2008 11:14:00
Thread-ID: 1025556
3 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige
Archiv - Verwandte Themen
Forumthread
Beiträge
2
3
2
2
5
7
4
9
7
2
2
2
2
1
5
3
5
4
3
1
8
3
13
3
2