Geöffnete Datei schließen, umbenennen AW

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hallo Uwe
Ich stelle diesen Thread offen weil es noch Probleme gibt, wo mein Excel Wissen nicht ausreicht sie zu lösen!
Zum Problem mit Word weiss ich leider keinen Rat, das übersteigt mein Wissen. Vielleicht wissen es Kollegen?
Freut mich das es schon mal soweit klappt. Zum löschen der ComboBoxen, das kannst du so bereinigen:
Setze bitte mit Suchen/Ersetzen vor diesen Befehl das ' Zeichen (dann gilt diese Zeile als Kommentar)
Einfach so: ' Call Alle_Comboboxen_löschen - Dann wird dieser Befehl nicht mehr ausgeführt.
Oder lösche in allen CommandButton Makros diese Call Zeile!
Das Problem mit falsch geöffnete Dateien wieder schliessen habe ich über den Button "neue Datei" gelöst.
Drückst du ihn bei geöffneter Datei kommt der Hinweis das eine Datei bereits geöffnet ist, mit der Msgbox Ja/Nein Frage ob sie geschlossen werden soll? Ich denke das ist die einfachste Lösung. Anbei noch mal der geaenderte Code für Modul1.
mfg Piet

Option Explicit ' -
Dim NeuPfad As String, ok As Variant
'Button: Speichern


Sub Schaltfläche26_Klicken()
Dim Datum As Variant, i As Integer, Notiz As String
Dim Datei As String, NeuDatei As String, ok As Variant
Dim Archiv As String, NeuTxt As String, DTyp As String
If Workbooks.Count = 1 Then MsgBox "Keine neue Datei geöffnet", vbInformation: Exit Sub
With ThisWorkbook.Worksheets("Tabellen")
Datei = Workbooks(2).Name  'göffnete Datei (nicht aktiv!)
If Datei = ThisWorkbook.Name Then Datei = Workbooks(1).Name
Notiz = ThisWorkbook.Worksheets("Startseite").Range("C9")
Datum = Format(.Range("P1"), "dd.mm.yy")
'ComboBoxen Werte in Zeile 1 auslesen, mit Zahlen 1-6
For i = 2 To 12 Step 2
If .Cells(1, i)  "" Then
NeuTxt = NeuTxt & "_" & .Cells(1, i - 1) & .Cells(1, i)
End If
Next i
'Archivpfad laden, "_" Vorspann abschneiden
Archiv = .Range("Q5"): NeuTxt = Mid(NeuTxt, 2)
NeuPfad = .Range("Q3") & "\" & Datei  'für Kill
End With
'String für neuen Dateinamen bilden
DTyp = Mid(Datei, InStrRev(Datei, ".") + 1)       'Endung xls
NeuDatei = Left(Datei, InStrRev(Datei, ".") - 1)  'Cut Endung
If Notiz  "" Then Notiz = "_" & 7 & Notiz       'Zahl 7 setzen
'** hier kannst du den neuen Dateinamen beliebig zusammenbasteln
NeuDatei = Datum & " " & NeuTxt & Notiz & "." & DTyp   'neuer Dateiname
ok = MsgBox(NeuDatei & vbLf & "Neue Datei im Archiv speichern?", vbYesNo)
On Error GoTo Fehler  'neue Datei in Archiv speichern
If ok = vbYes Then Workbooks(Datei).SaveAs Archiv & NeuDatei
Workbooks(NeuDatei).Close savechanges:=False  'Datei schliessen
Kill NeuPfad  'Datei in Ordner neu löschen
Call Alle_Comboboxen_löschen
Exit Sub
Fehler:  MsgBox NeuDatei & "  Fehler beim schliessen"
End Sub


Sub Ordner_Öffnen()  'File Dialog öffnen
Dim strDatei As String, FD As Object
Dim Pfad As String, NeuPfad As String
If Workbooks.Count > 1 Then
strDatei = Workbooks(2).Name   'zum Schliessen ermitteln
If strDatei = ThisWorkbook.Name Then strDatei = Workbooks(1).Name
ok = MsgBox(strDatei & vbLf & "Es ist bereits eine neue Datei geöffnet" _
& vbLf & "Soll diese Datei geschlossen werden?", vbYesNo)
If ok = vbYes Then Workbooks(strDatei).Close savechanges:=False
Exit Sub
End If
Set FD = Application.FileDialog(msoFileDialogFilePicker)
NeuPfad = Tabelle4.Range("Q3").Value
With FD  'File Dialog aus dem Internet  (angepasst)
.Filters.Clear
.Filters.Add "Alle-Dateien", "*.*", 1
.Title = "Eine Datei auswählen"
.AllowMultiSelect = False
Pfad = Left(NeuPfad, Len(NeuPfad) - 1)
.InitialFileName = Pfad  'Öffnen Pfad
On Error GoTo Fehler
If .Show = True Then
strDatei = .SelectedItems(1)
Workbooks.Open strDatei
ThisWorkbook.Activate
Call Alle_CommanButton_einblenden
'** OLEObjects klappt bei mir nicht (XP ?)
Tabelle3.DrawingObjects("Button 26").Enabled = True
End If
End With
Exit Sub
Fehler:   MsgBox strDatei & "  Öffnen Fehler!"
End Sub

Beliebteste Forumthreads (12 Monate)

Geöffnete Datei schließen, umbenennen AW

5
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Geöffnete Datei schließen, umbenennen AW

5 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

5
Beiträge zum Forumthread

Beiträge zu diesem Forumthread