Live-Forum - Die aktuellen Beiträge
Datum
Titel
16.04.2024 23:30:16
Anzahl Jahre Zählen aus Datumreihe
16.04.2024 19:22:16
Von exceltabelle in word per steuerelement temarker
16.04.2024 18:50:53
Fehlermeldung bei Code - Excel speichern mit Bez. aus Zelle
16.04.2024 17:18:01
Projektplan-Tabelle oder Gantt ohne Balken
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1220to1224
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
1220to1224
1220to1224
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Sicherung bei einem ausgeblendeten Tabellenblatt

Sicherung bei einem ausgeblendeten Tabellenblatt
chris58
Kann leider den Tread nicht mehr aufmachen. Habe daher die letzte Antwort hier reinkopiert.
Hallo Reinhard !
Wenn ich das
if Sheets(i).visible=true Then Sheets(i).copy
eingebe, dann sichert er mir zwar, aber die Datei wird geschlossen.
.....................................................................................................................
Hallo Chris,
"Die kann ich also nicht mehr ausblenden.... schade.."
? Wer sagt denn sowas? Computer-Bild?
Ändere
Sheets(i).copy
in
if Sheets(i).visible=true Then Sheets(i).copy
Wenn das schiefgeht weil ich das IMMER verwechsel mit hidden und visible nimm halt
if Sheets(i).hidden=false Then Sheets(i).copy
Gruß
Reinhard
aber die Datei wird geschlossen ...
04.07.2011 11:10:38
Matthias
Hallo
Klick mal auf Fenster (da ist bestimmt nur die kopierte Datei im Vordergrund)
Durch das Kopieren wird doch die Datei nicht geschlossen (kann ich mir jedenfalls nicht vorstellen)
Du könntest auch noch versuchen ThisWorkbook davorzusetzen.
Also:
If ThisWorkbook.Sheets(i).visible=true Then ThisWorkbook.Sheets(i).copy
ThisWorkbook ist die Datei in der der Code steht

hier ein Bsp. Datei mit 3 Blättern (alle eingeblendet)
Sub chris()
Dim i&
With ThisWorkbook
For i = 1 To 3
If .Sheets(i).Visible = True Then .Sheets(i).Copy
Next
.Activate
End With
End Sub

Ansonsten müsstest Du mal mehr Infos posten.
Gruß Matthias
Anzeige
AW: aber die Datei wird geschlossen ...
04.07.2011 12:39:16
chris58
Hallo !
Er schliesst die Datei, definitiv. Und das ohne speichern der Datensätze die ich vorher eingegeben habe. Aber egal, ich kann ja dieses Tabellenblatt auch aufmachen. Dann sichert er mir zwar auch dieses Tabellenblatt, aber egal.
Hier nochmals der gesamte Code: 
Sub Sichern()
Dim i As Integer
Application.ScreenUpdating = False
For i = 2 To Worksheets.Count
If Sheets(i).Visible = True Then Sheets(i).Copy
With ActiveSheet
.Cells.Copy
.Range("A1").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False
Application.CutCopyMode = False
.Parent.SaveAs Filename:= _
"C:\Dokumente und Einstellungen\glch\Desktop\Summerer Vorlagen\Monatslisten\" _
& " Report_" & Range("A3").Value _ ´kann man hier statt Range(A3) das aktuelle  _
Datum einfügen?
& "_" & ActiveSheet.Name & ".xls", _
FileFormat:=xlNormal, Password:="", WriteResPassword:="", _
ReadOnlyRecommended:=False, CreateBackup:=False
.Parent.Close
End With
Next i
Sheets(1).Select
MsgBox "Dateien wurden gespeichert"
End Sub

Anzeige
AW: aber die Datei wird geschlossen ...
04.07.2011 13:07:55
Rudi
Hallo,
Er schliesst die Datei, definitiv.
Soll er ja auch: .Parent.Close
Gruß
Rudi
AW: aber die Datei wird geschlossen ...
04.07.2011 13:44:44
chris58
hallo,
einfach das
.Parent.Close
rauslöschen geht nicht, da hängt sie der Code wieder auf
was für eine Befehl muß ich reingeben, das sie offen bleibt ?
danke
chris58
AW: aber die Datei wird geschlossen ...
04.07.2011 14:18:41
Rudi
Hallo,
so? 
Sub Sichern()
Dim i As Integer
Application.ScreenUpdating = False
With ThisWorkbook
For i = 2 To .Worksheets.Count
If .Sheets(i).Visible = True Then .Sheets(i).Copy
With ActiveSheet
.Cells.Copy
.Range("A1").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False
Application.CutCopyMode = False
.Parent.SaveAs Filename:= _
"C:\Dokumente und Einstellungen\glch\Desktop\Summerer Vorlagen\Monatslisten\" _
& " Report_" & Date & "_" & ActiveSheet.Name & ".xls", _
FileFormat:=xlNormal, Password:="", WriteResPassword:="", _
ReadOnlyRecommended:=False, CreateBackup:=False
End With
Next i
.Activate
.Sheets(1).Select
End With
MsgBox "Dateien wurden gespeichert"
End Sub

Gruß
Rudi
Anzeige
AW: aber die Datei wird geschlossen ...
04.07.2011 14:25:38
chris58
Danke, nun geht das zwar, aber die Blätter die gespeichert werden, bleiben offen. Vorher wurde das aktive Tabellenblatt geschlossen, doch nun habe ich 5 Dateien offen incl. der Ursprungsdatei.
Wird wohl nicht gehen, das zwar die Ursprungsdatei offen bleibt, die gespeicherten Dateien aber nicht offen bleiben. Danke für deine Mühe und Geduld mit mir
chris58
AW: aber die Datei wird geschlossen ...
04.07.2011 14:33:53
Rudi
Hallo,
jetzt aber: 
Sub Sichern()
Dim i As Integer
Application.ScreenUpdating = False
With ThisWorkbook
For i = 2 To .Worksheets.Count
If .Sheets(i).Visible Then
.Sheets(i).Copy
With ActiveSheet
.Cells.Copy
.Range("A1").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False
Application.CutCopyMode = False
.Parent.SaveAs Filename:= _
"C:\Dokumente und Einstellungen\glch\Desktop\Summerer Vorlagen\Monatslisten\" _
& " Report_" & Date & "_" & .Name & ".xls", _
FileFormat:=xlNormal, Password:="", WriteResPassword:="", _
ReadOnlyRecommended:=False, CreateBackup:=False
.Parent.Close
End With
End If
Next i
.Sheets(1).Select
End With
MsgBox "Dateien wurden gespeichert"
End Sub

Gruß
Rudi
Anzeige
AW: aber die Datei wird geschlossen ...
04.07.2011 14:37:33
chris58
Danke, herrlich, phänomenal...........
Danke Rudi
chris58

303 Forumthreads zu ähnlichen Themen

Inhalt aus mehreren Tabellen einfügen
Fred

Hallo zusammen.
Ich bin seit längerem schon auf der suche nach einem Makro und kann aber ein ähnliches wie ich es bräuchte nicht. Finde.
Es geht darum, das ich wenn ich auf einen Button klicke möchte ,das das Makro mehrere Von mir benannte Ordner duch sucht nach fest vorgeschriebenen X...
21.08.2008 18:04:19
Thread-ID: 1003605
2 Beiträge
Anzeige
einfaches Bild einfüges aus currdir
Ludes

Hallo zusammen,
- xls-Datei mit Makro in Ordner gespeichert.
- in selbem Ordner einen Ordner "Bilder" mit verschiedenen Bildern
- in Zelle A1 steht der Dateiname eines der Bilder
Brauch nun ein Marko, dass aus dem aktuellen Ordner in der xls-Datei gespeichert ist ein Bild in Zel...
25.08.2008 10:12:55
Thread-ID: 1004386
3 Beiträge
Kombinationsfelder mit Daten aus anderer Tabelle
Bernhard

Hallo liebe Freunde,
ich brauche wieder einmal Eure Hilfe beim Umstricken eines VBA Codes, den ich hier im Archiv gefunden habe.
Die Userform hat u.a. 2 Kombinationsfelder, die mit den Daten aus den Spalten B bzw. C gefüllt werden. Wenn ich die Auswahl in Kombi1 treffe, wird Kombi2 glei...
25.08.2008 15:48:18
Thread-ID: 1004492
8 Beiträge
Anzeige
Daten aus Userfom in eine ausgeblendete Tabelle
Ramon

Hallo alle zusammen,
ich möchte nach Klick auf den Command_Button "cb_send" Eingabewerte aus einer
Userform in eine Tabelle schreiben.
In Abhängigkeit der eingegebenen Werte sollen die Daten entweder in das Tabllenblatt
"data_booked" oder in "data_planned" geschrieben werden, u...
16.09.2008 12:28:00
Thread-ID: 1010054
5 Beiträge
Bild aus Tabelle einem Image in einer Userform zuw
Polarfuchs

Hallo Ihr Checker,
in einer Arbeitsmappe habe ich ein Tabellenblatt mit Bildern. Wie kann ich ein bestimmtes Bild, die haben die Benennungen "Vorname_Nachname", einem Image einer UserForm zuweisen? Mit "LoadPicture" habe ich es schon versucht. Da bekomme ich die Fehlermeldung "Typen unvertr...
28.09.2008 14:40:18
Thread-ID: 1012915
7 Beiträge
Excel Tabelle als Leerz. getrennte txt speichern
Eddie

Mahlzeit,
ich will gerne meine Tabelle als Leerzeichen getrennte Datei speichern, nur leider macht das prn-Format nur 240 Zeichen in einer zeile .... gibt es einen anderen Weg, umd das layout zu behalten, und dann als leerzeichen getrennte Datei zu speichern ?
Vielleicht kann man auch b...
01.01.1970 00:00:00
Thread-ID: 1014969
34 Beiträge
Tabelle als PDF speichern
PeTeR

Hallo VBA-Freaks,
ich suche seit Stunden - finde aber nicht den exakt passenden Code, obwohl es zig Einträge zu dem Thema gibt.
Ich will eine Tabelle per VBA in PDF umwandeln u. drucken. Mein Code:
Application.ActivePrinter = "Adobe PDF auf Ne01:"
ActiveWindow.SelectedSheets.Pri...
25.10.2008 23:06:00
Thread-ID: 1019291
5 Beiträge
Kopieren in ausgeblendete Tabelle
Wolfgang

Hallo,
noch weiterhin auf der Suche nach Lösungsmöglichkeiten, folgende Frage. - Den untenstehenden Code entdeckte ich auf der "Herber-CD"; Wie kann ich den Code umstellen, wenn die Daten aus Tabelle "Grunddaten" und "Altdaten" in die ausgeblendete Tabelle "Gesamt" kopiert werden soll. Dabe...
09.11.2008 15:48:00
Thread-ID: 1023078
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
1
2
2
7
3
4
6
33
4
2
1
2
2
1
4
2
6
8
2
3
1
3
5
5
4