Live-Forum - Die aktuellen Beiträge
Datum
Titel
18.04.2024 09:22:48
VBA Filter in intelligenter Tabelle funktioniert nicht
18.04.2024 08:54:52
automatisches übertragen von Daten
18.04.2024 08:16:13
Dynamische Positionsnummerierung
18.04.2024 08:15:33
Seitwärts scrollen - Fenster fixiert
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1260to1264
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
1260to1264
1260to1264
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Makro zum Kopieren von Daten zwischen 2 Dateien

Makro zum Kopieren von Daten zwischen 2 Dateien
Daten
Hallo,
ich habe eine Frage zum Visual Basic:
Ich habe das nachfolgend dargestellte Makro erstellt, welches die Aufgabe hat, Daten aus der Basisdatei "Auslegung_Rohr_Wasser_Gas_ASME.XLS" in die Zieldatei "ASMEB31_1OD_V162.xls" zu kopieren.
Die Zieldatei "ASMEB31_1OD_V162.xls" befindet sich an immer der gleichen Stelle (Laufwerk C:\...) und unter dem gleichen Namen, während ich die Basisdatei "Auslegung_Rohr_Wasser_Gas_ASME.XLS" unter jeweils verschiedenen Namen in den jeweiligen Projekten speichern möchte.
Wenn ich die Basisdatei "Auslegung_Rohr_Wasser_Gas_ASME.XLS" aber umbenenne, findet das Makro meine Daten nicht mehr. Wie kann ich erreichen, dass das Makro trotzdem funktioniert, auch wenn ich die Basisdatei (in dem Fall "Auslegung_Rohr_Wasser_Gas_ASME.XLS") jeweils von Projekt zu Projekt umbennene?
Hier ist das bisherige Makro:
Sub Wandstärken_Wasser_Dampf_berechnen()
' Wandstärken_Wasser_Dampf_berechnen Makro
' Makro am 24.04.2012 von spind00e aufgezeichnet
Workbooks.Open Filename:="C:\Data\Common\Wandstaerke\ASMEB31_1OD_V162.xls"
Windows("Auslegung_Rohr_Wasser_Gas_ASME.XLS").Activate
Sheets("Auslegung Rohr").Select
ActiveWorkbook.Unprotect
ActiveSheet.Unprotect
Range("I89:J89").Select
Selection.Copy
Windows("ASMEB31_1OD_V162.xls").Activate
Sheets("ANSB31OD-B36.10").Select
Range("E7").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("F12").Select
Selection.ClearContents
Range("F13").Select
Selection.ClearContents
Windows("Auslegung_Rohr_Wasser_Gas_ASME.XLS").Activate
Sheets("Auslegung Rohr").Select
Range("C89:E89").Select
Application.CutCopyMode = False
Selection.Copy
Windows("ASMEB31_1OD_V162.xls").Activate
Sheets("ANSB31OD-B36.10").Select
Range("E8").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Windows("Auslegung_Rohr_Wasser_Gas_ASME.XLS").Activate
Sheets("Auslegung Rohr").Select
Range("I95").Select
Application.CutCopyMode = False
Selection.Copy
Windows("ASMEB31_1OD_V162.xls").Activate
Range("L6").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Windows("Auslegung_Rohr_Wasser_Gas_ASME.XLS").Activate
Sheets("Auslegung Rohr").Select
Range("C122").Select
Application.CutCopyMode = False
Selection.Copy
Windows("ASMEB31_1OD_V162.xls").Activate
Range("G11").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Windows("Auslegung_Rohr_Wasser_Gas_ASME.XLS").Activate
Sheets("Auslegung Rohr").Select
Range("Y5").Select
Application.CutCopyMode = False
Selection.Copy
Windows("ASMEB31_1OD_V162.xls").Activate
Range("B22").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Windows("Auslegung_Rohr_Wasser_Gas_ASME.XLS").Activate
Sheets("Auslegung Rohr").Select
Range("B2").Select
Application.CutCopyMode = False
Selection.Copy
Windows("ASMEB31_1OD_V162.xls").Activate
Range("M1").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Windows("Auslegung_Rohr_Wasser_Gas_ASME.XLS").Activate
Sheets("Auslegung Rohr").Select
Range("B1").Select
Application.CutCopyMode = False
Selection.Copy
Windows("ASMEB31_1OD_V162.xls").Activate
Range("M2").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Windows("Auslegung_Rohr_Wasser_Gas_ASME.XLS").Activate
Sheets("Auslegung Rohr").Select
Range("B3").Select
Application.CutCopyMode = False
Selection.Copy
Windows("ASMEB31_1OD_V162.xls").Activate
Range("M3").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Windows("Auslegung_Rohr_Wasser_Gas_ASME.XLS").Activate
Range("J2").Select
Application.CutCopyMode = False
Selection.Copy
Windows("ASMEB31_1OD_V162.xls").Activate
Range("M4").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Windows("Auslegung_Rohr_Wasser_Gas_ASME.XLS").Activate
Sheets("ANSI-Class nach ASME B16.34").Visible = True
Sheets("ANSI-Class nach ASME B16.34").Select
Range("O12:P12").Select
Selection.Copy
Sheets("Druck-Temperatur Stufen").Visible = True
Sheets("Druck-Temperatur Stufen").Select
Range("E4").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Sheets("ANSI-Class nach ASME B16.34").Select
Range("O8").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Druck-Temperatur Stufen").Select
Range("E5").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Sheets("ANSI-Class nach ASME B16.34").Select
Range("O9").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Druck-Temperatur Stufen").Select
Range("E6").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Sheets("ANSI-Class nach ASME B16.34").Select
ActiveWindow.SelectedSheets.Visible = False
Sheets("Druck-Temperatur Stufen").Select
ActiveWindow.SelectedSheets.Visible = False
Sheets("Auslegung Rohr").Select
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
ActiveWorkbook.Protect Structure:=True, Windows:=False
End Sub

Vielen Dank im Voraus.
Liebe Grüße
Eckart
AW: Makro zum Kopieren von Daten zwischen 2 Dateien
09.05.2012 10:32:39
Daten
Hallo Eckart,
vielleicht mit Hilfe einer Eingabe in eine Variable.
Dim Variable As String
Variable=InputBox("bitte geben Sie den Dateinamen ein!")
Danach mit Hilfe der Variablen die Datei öffnen.
Gruß Manfred
AW: Makro zum Kopieren von Daten zwischen 2 Dateien
10.05.2012 11:19:46
Daten
Hallo Manfred,
erstmal Danke für die Info. Ich habe die von Dir genannten Befehlszeilen in das Makro eingefügt. Wenn ich das Makro ausführen lasse, erscheint ein Eingabefeld, in welches ich den Dateinamen einfügen kann.
Welchen Befehl muß ich in das Makro schreiben, damit Excel die Datei mit dem eingegebenen Dateinamen findet und öffnet?
Liebe Grüße
Eckart
Anzeige
AW: Makro zum Kopieren von Daten zwischen 2 Dateien
10.05.2012 13:59:34
Daten
Hallo Eckart,
öffnen kannst du es dann mit:
Workbooks.Open (Variable)
Gruß Manfred
AW: Makro zum Kopieren von Daten zwischen 2 Dateien
10.05.2012 18:03:43
Daten
Hallo Manfred,
erstmal Danke für Deine Hilfe.
Ich habe das Makro entsprechend Deinem Vorschlag ergänzt.
Wenn ich aber nun meine Basisdatei in ein anderes Verzeichnis kopiere, erscheint die Fehlermeldung:
Laufzeitfehler '1004':
Eine Datei mit dem Namen 'Auslegung_Rohr_Wasser_Gas_ASME.xls' ist bereits geöffent. Es können keine zwei Dokument mit dem selben Namen geöffnet werden, selbst wenn sich die Dokumente in unterschiedlichen Ordnern befinden. Schließen Sie entweder das erste Dokument, um das zweite zu öffnen, oder benennen Sie eines der Dokumente um.
Das Makro ist folgendes:
Sub Wandstärken_Wasser_Dampf_berechnen()
' Wandstärken_Wasser_Dampf_berechnen Makro
' Makro am 24.04.2012 von spind00e aufgezeichnet
Workbooks.Open Filename:="C:\Data\Common\Wandstaerke\ASMEB31_1OD_V162.xls"
Dim Variable As String
Variable = InputBox("bitte geben Sie den Dateinamen ein!")
Workbooks.Open (Variable)
Sheets("Auslegung Rohr").Select
ActiveWorkbook.Unprotect
ActiveSheet.Unprotect
Range("I89:J89").Select
Selection.Copy
Windows("ASMEB31_1OD_V162.xls").Activate
Sheets("ANSB31OD-B36.10").Select
Range("E7").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("F12").Select
Selection.ClearContents
Range("F13").Select
Selection.ClearContents
Windows("Auslegung_Rohr_Wasser_Gas_ASME.XLS").Activate
Sheets("Auslegung Rohr").Select
Range("C89:E89").Select
Application.CutCopyMode = False
Selection.Copy
Windows("ASMEB31_1OD_V162.xls").Activate
Sheets("ANSB31OD-B36.10").Select
Range("E8").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Windows("Auslegung_Rohr_Wasser_Gas_ASME.XLS").Activate
Sheets("Auslegung Rohr").Select
Range("I95").Select
Application.CutCopyMode = False
Selection.Copy
Windows("ASMEB31_1OD_V162.xls").Activate
Range("L6").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Windows("Auslegung_Rohr_Wasser_Gas_ASME.XLS").Activate
Sheets("Auslegung Rohr").Select
Range("C122").Select
Application.CutCopyMode = False
Selection.Copy
Windows("ASMEB31_1OD_V162.xls").Activate
Range("G11").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Windows("Auslegung_Rohr_Wasser_Gas_ASME.XLS").Activate
Sheets("Auslegung Rohr").Select
Range("Y5").Select
Application.CutCopyMode = False
Selection.Copy
Windows("ASMEB31_1OD_V162.xls").Activate
Range("B22").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Windows("Auslegung_Rohr_Wasser_Gas_ASME.XLS").Activate
Sheets("Auslegung Rohr").Select
Range("B2").Select
Application.CutCopyMode = False
Selection.Copy
Windows("ASMEB31_1OD_V162.xls").Activate
Range("M1").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Windows("Auslegung_Rohr_Wasser_Gas_ASME.XLS").Activate
Sheets("Auslegung Rohr").Select
Range("B1").Select
Application.CutCopyMode = False
Selection.Copy
Windows("ASMEB31_1OD_V162.xls").Activate
Range("M2").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Windows("Auslegung_Rohr_Wasser_Gas_ASME.XLS").Activate
Sheets("Auslegung Rohr").Select
Range("B3").Select
Application.CutCopyMode = False
Selection.Copy
Windows("ASMEB31_1OD_V162.xls").Activate
Range("M3").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Windows("Auslegung_Rohr_Wasser_Gas_ASME.XLS").Activate
Range("J2").Select
Application.CutCopyMode = False
Selection.Copy
Windows("ASMEB31_1OD_V162.xls").Activate
Range("M4").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Windows("Auslegung_Rohr_Wasser_Gas_ASME.XLS").Activate
Sheets("ANSI-Class nach ASME B16.34").Visible = True
Sheets("ANSI-Class nach ASME B16.34").Select
Range("O12:P12").Select
Selection.Copy
Sheets("Druck-Temperatur Stufen").Visible = True
Sheets("Druck-Temperatur Stufen").Select
Range("E4").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Sheets("ANSI-Class nach ASME B16.34").Select
Range("O8").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Druck-Temperatur Stufen").Select
Range("E5").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Sheets("ANSI-Class nach ASME B16.34").Select
Range("O9").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Druck-Temperatur Stufen").Select
Range("E6").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Sheets("ANSI-Class nach ASME B16.34").Select
ActiveWindow.SelectedSheets.Visible = False
Sheets("Druck-Temperatur Stufen").Select
ActiveWindow.SelectedSheets.Visible = False
Sheets("Auslegung Rohr").Select
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
ActiveWorkbook.Protect Structure:=True, Windows:=False
End Sub

Nach der 4. Befehlszeile erscheint die Fehlermeldung.
Ich möchte aber meine Datei unter beliebigen Namen und in beliebigen Verzeichnissen speichern, ohne dass das Programm abstürzt.
Gibt es eine Möglichkeit zu programmieren, dass der gerade aktuelle (neue) Dateiname beim Aktivieren meiner Basisdatei automatisch erkannt und eingegeben wird (ohne dass ich meinen aktuellen neuen Dateinamen in ein Eingabefeld eingeben muß)?
Gruß
Eckart
Anzeige
AW: Makro zum Kopieren von Daten zwischen 2 Dateien
11.05.2012 00:04:41
Daten
Hallo Eckart,
damit das Ganze flexibel wird arbeitest du am besten mit Objekt-Variablen für die Arbeitsmappen (für Zieldatei und Auslegunsbasis-Datei) und die in den Datenkopiervorgang involvierten Tabellenblätter.
Zusätzlich kannst du dann auch auf die ganzen Activate und Select/Selection verzichten und alle Zellen direkt ansprechen fürs kopieren und einfügen.
Wenn die Datei mit den Auslegungs-Basis-Daten zum Zeitpunkt des Makrostarts die aktive Datei ist, dann geht die Übernahme dieser Datei in das Makro mit einer einfachen Zuweisung zu einer Objektvariablen.
Ich hab noch eine kleine Rückfrage eingebaut, bevor das Makro loslegt.
Zusätzlich wird auch geprüft ob die Zieldatei schon/noch geöffnet ist.
Gruß
Franz 
Sub Wandstärken_Wasser_Dampf_berechnen()
' Wandstärken_Wasser_Dampf_berechnen Makro
' Makro am 24.04.2012 von spind00e aufgezeichnet
Dim wbAuslegung As Workbook
Dim wksAuslegungRohr As Worksheet
Dim wksDruckTempStufen As Worksheet
Dim wksANSI_Class_ASME_B16_34 As Worksheet
Dim strFileZiel As String
Dim wbZiel As Workbook, wksZiel As Worksheet
Dim CalcStatus As Long
'Name der Zieldatei
strFileZiel = "C:\Data\Common\Wandstaerke\ASMEB31_1OD_V162.xls"
'Aktive Arbeitsmappe als Auslegungsbasis verwenden
If MsgBox("Datei """ & ActiveWorkbook.Name & """ als Auslegungsbasis verwenden?", _
vbOKCancel + vbQuestion + vbDefaultButton2, "Auslegungsbasis auswählen") = vbCancel Then
GoTo Beenden
Else
Set wbAuslegung = ActiveWorkbook
End If
'Prüfen, ob Zieldatei bereits geöffnet ist
For Each wbZiel In Application.Workbooks
If LCase(wbZiel.FullName) = LCase(strFileZiel) Then
If MsgBox("Die Zieldatei """ & wbZiel.Name & """ ist bereits geöffnet!" & vbLf _
& "Soll die Datei überschrieben werden?", _
vbQuestion + vbOKCancel + vbDefaultButton2, "Zieldatei überschreiben") = vbOK Then
Exit For
Else
GoTo Beenden
End If
End If
Next
'Einstellungen zur Beschleunigung der Makroausführung
With Application
.ScreenUpdating = False
.EnableEvents = False
CalcStatus = .Calculation
.Calculation = xlCalculationManual
End With
If wbZiel Is Nothing Then
'Zieldatei öffnen
Set wbZiel = Application.Workbooks.Open(Filename:=strFileZiel)
End If
'Tabellenblatt in Zieldatei setzen
Set wksZiel = wbZiel.Sheets("ANSB31OD-B36.10")
With wbAuslegung
.Activate
.Unprotect
Set wksAuslegungRohr = .Sheets("Auslegung Rohr")
Set wksDruckTempStufen = .Sheets("Druck-Temperatur Stufen")
Set wksANSI_Class_ASME_B16_34 = .Sheets("ANSI-Class nach ASME B16.34")
End With
With wksAuslegungRohr
.Unprotect
.Range("I89:J89").Copy
With wksZiel
.Range("E7").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False
.Range("F12").ClearContents
.Range("F13").ClearContents
End With
.Range("C89:E89").Copy
wksZiel.Range("E8").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False
.Range("I95").Copy
wksZiel.Range("L6").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False
.Range("C122").Copy
wksZiel.Range("G11").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False
.Range("Y5").Copy
wksZiel.Range("B22").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False
.Range("B2").Copy
wksZiel.Range("M1").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False
.Range("B1").Copy
wksZiel.Range("M2").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False
.Range("B3").Copy
wksZiel.Range("M3").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False
.Range("J2").Copy
wksZiel.Range("M4").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False
End With
wbAuslegung.Activate
wksANSI_Class_ASME_B16_34.Visible = True
With wksDruckTempStufen
.Visible = True
wksANSI_Class_ASME_B16_34.Range("O12:P12").Copy
.Range("E4").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
wksANSI_Class_ASME_B16_34.Range("O8").Copy
.Range("E5").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
wksANSI_Class_ASME_B16_34.Range("O9").Copy
.Range("E6").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
End With
Application.CutCopyMode = False
wksANSI_Class_ASME_B16_34.Visible = False
wksDruckTempStufen.Visible = False
wksAuslegungRohr.Activate
wksAuslegungRohr.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
wbAuslegung.Protect Structure:=True, Windows:=False
Beenden:
'Einstellungen zur Beschleunigung der Makroausführung zurücksetzen
With Application
.ScreenUpdating = True
.EnableEvents = True
.Calculation = CalcStatus
End With
'Variablen zurücksetzen
Set wbAuslegung = Nothing: Set wbZiel = Nothing
Set wksAuslegungRohr = Nothing: Set wksANSI_Class_ASME_B16_34 = Nothing
Set wksDruckTempStufen = Nothing: Set wksZiel = Nothing
End Sub

Anzeige
AW: Makro zum Kopieren von Daten zwischen 2 Dateien
15.05.2012 13:48:14
Daten
Hallo Franz,
vielen Dank für Deine Hilfe. Bis jetzt funktioniert alles tadellos.
Grüße
Eckart

157 Forumthreads zu ähnlichen Themen

Wie lange ist eine Datei/aktuelle Datei offen
Urmila

Hallo,
wie kann ich per VBA prüfen, wie lang eine bestimmte oder aktuelle Datei schon offen ist?
Kann man das im Format mm:ss anzeigen lassen?
LG
Urmila
05.09.2008 08:55:09
Thread-ID: 1007577
7 Beiträge
Anzeige
Fenster zum öffnen einer Datei
Patrick

Hallo zusammen,
ich habe per Rekorder eine Datei geöffnet. Leider schreibt der Rekorder genau diesen Dateinamen in das VBA-Programm.
1. Frage: Wie kann ich es hinbekommen, dass nur das Fenster geöffnet wird, der User dann die richtige Datei flexibel auswählt und dann das Programm fortge...
30.07.2009 07:57:35
Thread-ID: 1092399
12 Beiträge
Fehler beim öffnen einer erstellen Datei
k

Hallo,
wenn ich per Makro einen Auszug aus einer Mappe (einzelne Blätter werden in eine Neue Kopiert) mache und dieser dann einen Namen gebe wie folgt:
ActiveWorkbook.SaveAs SavePath & ADM & "_Daten_" & Date & "_" & Format(Time, "hh_mm_ss") & ".xls" 'Speichert d...
03.08.2009 10:17:53
Thread-ID: 1093141
4 Beiträge
Anzeige
WORD-Datei in EXCEL-Datei umwandeln
Werner

Excel-Level: befriedigend
Hallo Freunde,
habe mal ein Frage, die sich auf Excel und Word zugleich bezieht: Was muss man tun, um ein mit WORD
erstelltes Manuskript, also eine Word-Datei, in eine Excel-Datei umzuwandeln. Die hier zur Debatte stehende WORD-Datei ist wie
folgt auf...
22.10.2009 14:24:46
Thread-ID: 1111301
7 Beiträge
Makro zum öffnen von Dateien
Dateien

Hallo zusammen,
ich habe ein kleines Problem das sich aber sicherlich mit euerer Hilfe lösen lässt. Bitte nehmt bei euren Antworten aber Rücksicht darauf, daß ich von Makros bisher überhaupt keine Ahnung habe. - Also bitte erklärt es für dumme (damit auch ich es verstehe ;-) ).
Ich habe...
22.11.2009 12:05:42
Thread-ID: 1119129
2 Beiträge
vor Einfügen einer csv-Datei Dateidatum prüfen | Herbers Excel-Forum
Jürgen
Hallo Excel - Forum,
habe ein Problem - schätzungsweise ein kleines - was ich durch Recherche nicht lösen konnte. Vielleicht könnt Ihr mir hier helfen:
Ich habe eine offene Arbeitsmappe in die ich eine csv-Datei einlesen möchte. Das ist soweit kein Problem. Ich möchte aber gerne, dass vor d...
14.01.2010 13:51:17
Thread-ID: 1129903
3 Beiträge
Makro Frage beim Öffnen von pdf Dateien verhindern
pdf

Hallo Herber Fans,
ich baue gerade an einem Code, der den Wert der ActiveCell als Dateinamen annimmt und aus einem vorgegebenen Pfad die Datei öffnen soll. Wenn keine Dateiendung angegeben ist, werden alle gängigen Endungen durchgeloopt. Bei .pdf Dateien habe ich nun das Problem, daß die Fr...
15.01.2010 17:42:31
Thread-ID: 1130350
3 Beiträge
Wenn Datei offen keine weitere Datei öffnen
Thomas

Hallo,
ich habe aufgrund einem sehr eigenartigen Problems und aus Performance Gründen die Idee ob es wohl möglich ist per VBA Excel anzuweisen das wenn diese Datei geöffnet ist, keine weiteren Dateien zu öffnen, also das es irgendwie gesperrt ist.
Mein Problem siehe: https://www.herber....
30.04.2010 11:41:22
Thread-ID: 1154543
3 Beiträge
Anzeige

Links zu Excel-Dialogen

InputBox

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
6
3
11
3
1
6
1
2
2
2
1
5
1
8
6
4
4
15
3
2
10
1
3
1
5