Live-Forum - Die aktuellen Beiträge
Datum
Titel
17.04.2024 21:55:37
Preiserhöhung über mehrere Jahre berechnen
17.04.2024 20:19:32
Endzeitpunkt berechnen aus d:hh:mm errechnen
17.04.2024 18:57:33
Errinnerungsfunktion
17.04.2024 16:56:58
Stunden addieren
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
948to952
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
948to952
948to952
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

activen Sheet als Word doc. speichern

activen Sheet als Word doc. speichern
04.02.2008 17:13:14
Fred
Hallo zusammen
Ich habe da ein Problem und hoffe mir kann jemand helfen.Leider bin ich in VBA nicht bewandert.
Ich möchte gerne über einen Button den activen Sheet in ein Dokument doc. umwandeln und ihn auf "C:/ Eilmeldung " & Date & Time speichern. Dann soll automatisch diese Datei als Anlage in Outlook eingefügt werden und fertig.
Natürlich ist es wichtig das die Formatierungen der Spalten erhalten bleiben. Formeln und sonstiges benötige ich nicht.
Ich hoffe mir kann jemand helfen .
Danke

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

Betreff
Datum
Anwender
Anzeige
AW: activen Sheet als Word doc. speichern
04.02.2008 17:16:00
Renee
Hi Fred,
Warum in ein .doc umwandeln ?
1. gibt es unzählige Beiträge im Archiv, wie du ein Tabellenblatt direkt per email versenden kannst.
2. Wenn der Empfänger kein Excel hat, warum soll sie/er dann Word haben?
3. das portabelste, wäre wohl als PDF speichern und versenden. Auch dazu gibts in der Recherche/Archiv genügende Beiträge.
GreetZ Renée

AW: activen Sheet als Word doc. speichern
04.02.2008 17:27:54
Fred
Die offizielle Datei ist halt eine Word Datei aber ohne Formeln etc. Ich habe mir jetzt eine eigene Tabelle daraus erstellt und muss sie aber VORGESCHRIEBENER weise als Doc. Speichern und Versenden

AW: activen Sheet als Word doc. speichern
04.02.2008 22:05:49
Lars
Hi,
"C:/ Eilmeldung " & Date & Time geht nicht, weil der : in Dateinamen tabu.
mfg Lars

Anzeige
AW: activen Sheet als Word doc. speichern
04.02.2008 22:28:00
Fred
Hallo Lars
Vielen Dank für Deine Antwort. Das habe ich gerade auch herraus gefunden. Nur eine Lösung um eine Tabelle als doc. zu speichern,ohne die Formatierungen zu verlieren, bekomme ich einfach nicht hin. Und im Archiev ist auch nichts zu finden. Scheint doch wohl schwieriger zu sein als ich dachte.
Grüße Fred

AW: activen Sheet als Word doc. speichern
05.02.2008 13:44:12
Fred
Danke an alle Code für eine Kopie der Tabelle habe ich.
so sieht er aus:

Sub GanzeTabelleTransferieren()
'Dimensionierung der Variablen
Dim objWordApp As Object
Dim objWordDok As Object
Dim varRange As Variant
Dim objSheet As Object
Dim intCount1 As Integer
Dim intCount2 As Integer
'Auslesen der gesamten Tabelle
varRange = ActiveSheet.UsedRange
'Festlegen der Vorgabewerte
Set objWordApp = CreateObject("Word.application")
'Starten der Word-Instanz und eine neues Dokument öffnen
objWordApp.Visible = True
Set objWordDok = objWordApp.documents.Add
'Anschrift in das Dokument eintragen
With objWordApp.Selection
.TypeText Text:="Daten aus Excel "
.TypeParagraph
.TypeText Text:="Arbeitsmappe: " & ActiveWorkbook.Name
.TypeParagraph
.TypeText Text:="Blatt: " & ActiveSheet.Name
.TypeParagraph
.TypeText Text:="Datum: " & Format(Now(), "dd.mm.yyyy")
.TypeParagraph
.TypeParagraph
.TypeParagraph
End With
'Tabelle im Worddokument einfügen
Set objSheet = objWordDok.Tables.Add _
(objWordApp.Selection.Range, UBound(varRange, 1), UBound(varRange,2))
'Tabelle in Worddokument einfügen
With objSheet
For intCount1 = 1 To UBound(varRange, 1)
For intCount2 = 1 To UBound(varRange, 2)
.cell(intCount1, intCount2).Range.insertafter _
varRange(intCount1, intCount2)
Next intCount2
Next intCount1
End With
'Aufheben der Verbindung zu den Objektvariablen
Set objWordApp = Nothing
Set objworddoc = Nothing
Set objSheet = Nothing
End 


Sub
Anzeige

137 Forumthreads zu ähnlichen 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
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
Anzeige
Arbeitsmappe ohne Formeln und Makros speichern
Mark

Hallo zusammen,
gibt es in Excel eine einfache Möglichkeit eine komplette Excel Arbeitsmappe die Makros und Formeln enthält abzuspeichern bei der nur die Werte gespeichert werden und Makros und Formeln verloren gehen?
Ich könnte zwar ein Marko aufzeichnen, bei dem alle Tabellenblätter i...
24.05.2009 19:08:20
Thread-ID: 1077011
13 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 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
Datei speichern unter +1 vomn Datei | Herbers Excel-Forum
Urmila
Hallo alle zusammen,
zunächst mal ein frohes neues Jahr an Allen....und hoffe euch Allen geht's gut.... :D
Brauche mal wieder eure Hilfe, und zwar:
In einem Ordner soll eine Datei abgespeichert werden, Speichername soll sein: 001-heutiges Datum (001-05.01.2010) die Nummer soll dann imme...
05.01.2010 11:59:44
Thread-ID: 1127262
5 Beiträge
VBA: Datei ohne Makros speichern
André

Moin zusammen,
gegeben ist eine Exceldatei mit Makros (.XSLM).
In dieser Datei soll nun ein Makro folgendes tun:
- die Datei speichern, wobei der User den Dateinamen und Pfad angeben darf
- die Datei darf nur in den Formaten XLSX oder XlS, in jedem Fall aber ohne Makros gespeich...
19.04.2010 13:13:27
Thread-ID: 1152560
8 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
5
4
3
12
4
1
4
7
13
6
4
1
7
3
7
2
15
4
13
4
2
9
2