Live-Forum - Die aktuellen Beiträge
Datum
Titel
23.04.2024 22:08:10
Auflisten in Spalte VBA
23.04.2024 21:33:46
Nur farbige/nicht farbige Zellen markieren
23.04.2024 21:29:56
Bestimmte Zellen auf andere Arbeitsblätter kopieren
23.04.2024 17:41:19
Link erstellen mit Formel oder VBA?
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
956to960
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
956to960
956to960
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Name von Tabellenreiter von Zelle D8

Name von Tabellenreiter von Zelle D8
29.02.2008 09:14:27
Tabellenreiter
Hallo Leute
Ich habe einen Sheets " Vorschlag".
Nun möchte ich aber wenn dieses Blatt geschlossen wird.
1.Der Tabellenreiter den Namen von D8 übernimmt.
2.Das Blatt auch unter den Namen von D8 im selben Ordner gespeichert wird.
ZB In D8 seht 12584 nun soll der Tabellenreiter wenn das Blatt geschlossen wird nicht mehr "Vorschlag" heissen sondern 12584.
Ebenso sollte eine Kopie vom "Vorschlag" unter 12584.xls im selben Ordner gespeichert werden.
Könnte mir dazu bitte jemand weiterhelfen.
Danke & Gruß Heinz

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

Betreff
Datum
Anwender
Anzeige
AW: Name von Tabellenreiter von Zelle D8
29.02.2008 10:10:19
Tabellenreiter
Hallo Heinz,
so sollte es klappen:

Sub auto_close()
Dim Blattname As String
Blattname = Range("D8").Value
Select Case Blattname
Case Is = ""
Blattname = "Vorschlag"
End Select
'Blatt umbenennen
Sheets("Vorschlag").Name = Blattname
'Neue Datei sichern
Sheets(Blattname).Select
Cells.Select
Selection.Copy
Workbooks.Add
ActiveSheet.Paste
ActiveWorkbook.SaveAs Filename:= _
"F:\Daten\Excel\" & Blattname & ".xls", _
FileFormat:=xlNormal, Password:="", WriteResPassword:="", _
ReadOnlyRecommended:=False, CreateBackup:=False
Application.CutCopyMode = False
Range("A1").Select
ActiveWorkbook.Close Savechanges:=False
Sheets(Blattname).Select
Range("A1").Select
'alte Datei sichern
ActiveWorkbook.Close Savechanges:=True
End Sub


Gruß,
Ptonka

Anzeige
AW: Name von Tabellenreiter von Zelle D8
29.02.2008 10:29:16
Tabellenreiter
Hallo Pontka
Danke, aber es Funkt. nur Teilweise.
Das Blatt "Vorschlag" sollte nach der Schließung ungeändert bleiben.
Denn mit diesem Blatt wird immer gearbeitet.
Es sollte eine Kopie hergestellt werden die den Namen von D8 erhält.
Wenn möglich auch ohne Pfad Angabe,es sollte im selben Ordner gespeichert werden.
Danke & Gruß Heinz

AW: Name von Tabellenreiter von Zelle D8
01.03.2008 00:16:01
Tabellenreiter
Hallo Leute
Könnte mir bitte jemand weiterhelfen ?
Danke Heinz

Anzeige
AW: Name von Tabellenreiter von Zelle D8
02.03.2008 19:58:00
Tabellenreiter
Hallo Heinz,
dir folgende Prozedur muss du im VBA-Editor unter "DieseArbeitsmappe" einfügen. ggf. noch ein wenig anpassen.
Gruß
Franz

Private Sub Workbook_BeforeClose(Cancel As Boolean)
Dim wsVorschlag As Worksheet, wbThis As Workbook
Dim wsKopie As Worksheet, wbNeu As Workbook, strName As String
Set wbThis = ThisWorkbook
Set wsVorschlag = wbThis.Worksheets("Vorschlag")
strName = wsVorschlag.Range("D8").Text
If strName = "" Then
If MsgBox("In Zelle D8 steht nichts drin. Trotzdem Blatt Vorschlag speichern?", _
vbQuestion + vbYesNo, "Blatt Vorschlag speichern") = vbNo Then GoTo Ende
End If
'Blatt kopieren
wsVorschlag.Copy
Set wbNeu = ActiveWorkbook
Set wsKopie = wbNeu.Worksheets(1)
'Formeln durch Werte ersetzen, ggf. die folgenden 4 Zeilen löschen, _
wenn Formeln erhalten bleiben sollen
wsKopie.UsedRange.Copy
wsKopie.UsedRange.PasteSpecial Paste:=xlPasteValues
Application.CutCopyMode = False
Range("A1").Select
'Blatt umbenennen
If strName  "" Then wsKopie.Name = strName
'Blattname prüfen und ggf. Name für Datei anpassen
If wsKopie.Name = "Vorschlag" Then strName = "Vorschlag" & _
Format(Now, "YYYYMMDD_hhmmss")
'Datei speichern
wbNeu.SaveAs FileName:=wbThis.Path & "\" & strName & ".xls", Addtomru:=True
wbNeu.Close
Ende:
Set wsVorschlag = Nothing: Set wbThis = Nothing
Set wsKopie = Nothing: Set wbNeu = Nothing
End Sub


Anzeige
AW: Name von Tabellenreiter von Zelle D8
03.03.2008 07:06:00
Tabellenreiter
Hallo Franz
Echt super,genau wie es sein sollte.
Recht herzlichen dank
Gruß Heinz

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige