Live-Forum - Die aktuellen Beiträge
Datum
Titel
24.04.2024 20:38:58
Summe mit Bedingung, nur letzte Ergebnisse anzeigen
24.04.2024 19:29:30
Formel filter
24.04.2024 18:49:56
merge & select
24.04.2024 17:19:09
Formel mit Index-Funktion
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
780to784
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
780to784
780to784
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Bereich einer Tabelle in ext. Workbook speichern?

Bereich einer Tabelle in ext. Workbook speichern?
11.07.2006 19:36:13
Ina
Hallo Forum,
ich habe eine Frage...
Ist es per VBA/Macro möglich, den Bereich einer Tabelle (Tabelle "Test" Bereich C5 - C152) in ein externes Workbook (Workbook "Testende", Tabelle "Test1") im Verzeichnis "D:\TESTEN" zu speichern.
Es wäre schön, wenn das Macro das Verzeichnis aus einer bestimmten Zelle (G3) auslesen könnte, falls der Tabellenbereich in einem andere Workbook gespeichert werden sollte.
Danke für eure Hilfe und wenn möglich, einen Beispiel-Code.
Gruss,
Ina

1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Bereich einer Tabelle in ext. Workbook speiche
11.07.2006 23:14:28
Josef
Hallo Ina!
In Tabelle "Test" steht in "G3" der Pfad, in "H3" der Dateiname und in "I3" der Tabellenname.
' **********************************************************************
' Modul: Modul1 Typ: Allgemeines Modul
' **********************************************************************

Option Explicit

Sub CopyData()
Dim objWB As Workbook
Dim objSh As Worksheet, objShT As Worksheet
Dim strFile As String

Set objSh = ThisWorkbook.Sheets("Test")

strFile = objSh.Range("G3").Text

If Right(strFile, 1) <> "\" Then strFile = strFile & "\"

strFile = strFile & objSh.Range("H3").Text

If Right(strFile, 4) <> ".xls" Then strFile = strFile & ".xls"

If Dir(strFile) = "" Then
  MsgBox "Datei nicht gefunden!", 64, "Hinweis"
  Exit Sub
End If

On Error GoTo ErrExit

With Application
  .ScreenUpdating = False
  .EnableEvents = False
  .DisplayAlerts = False
  .Calculation = xlCalculationManual
  .Cursor = xlWait
End With

Set objWB = Workbooks.Open(strFile)

On Error Resume Next
Set objShT = objWB.Sheets(objSh.Range("I3").Text)
On Error GoTo 0

If objShT Is Nothing Then
  Err.Clear
  MsgBox "Die angegebene Tabelle existiert nicht!", 64, "Hinweis"
  objWB.Close False
  GoTo ErrExit
End If

objSh.Range("C5:C152").Copy

objShT.Range("A1").PasteSpecial xlValues

Application.CutCopyMode = False

objWB.Close True

MsgBox "Daten wurden erfolgreich kopiert!", 64, "Hinweis"

ErrExit:

Set objSh = Nothing
Set objShT = Nothing
Set objWB = Nothing

If Err.Number > 0 Then
  MsgBox Err.Number & vbLf & Err.Description, , "Fehler"
  Err.Clear
End If

With Application
  .ScreenUpdating = True
  .EnableEvents = True
  .DisplayAlerts = True
  .Calculation = xlCalculationAutomatic
  .Cursor = xlDefault
End With

End Sub


Gruß Sepp

Anzeige

308 Forumthreads zu ähnlichen Themen

Durchrechnung nur für ein Blatt ausschalten
KlausF

Hallo Excelperten!
In einer Datei schalte ich beim Öffnen mittels AutoOpen-Makro die automatische Durchrechnung bisher ganz aus.
Wie kann ich aber die automatische Durchrechnung nur für ein bestimmtes Blatt (z.B. Tabelle1) abschalten?
Geht das überhaupt so eingeschränkt?
Besten...
13.09.2008 15:37:53
Thread-ID: 1009517
3 Beiträge
Anzeige
Einzelnes Tabellnblatt in PDF Datei speichern
Jens

Ich habe folgendes Problem, ich möchte ein einzelnes Tabellenblatt aus Excel heraus in eine Pdf Datei mittels command Buttom und Makro/ VBA speichern. Als PDF Prog nutze ich Adobe Acrobat Prof 8.0(bringt nen Converter mit).
THX im Voraus
27.02.2009 15:30:50
Thread-ID: 1054824
14 Beiträge
Nur Tabellenblatt speichern nicht ganze Arbeitsm
Horst

Hey !
Da eine meiner Arbeitsmappe immer mehr Arbeitsblätter (Tabellen) bekommt. Möchte ich diese irgendwie ausgliedern und nur bei bedarf wieder reinladen.
Kann ich das irgend wie per Marko oder zu Fuß erledigen?
Das heißt unter ihrem Namen ablegen. Und irgendwie (per extra Menüpunk...
19.03.2009 09:54:34
Thread-ID: 1061709
3 Beiträge
Anzeige
nur eine Tabelle anwählen, falls ...
Peter

Guten Tag
Gelegentlich wähle ich in einer Arbeitsmappe gleichzeitig mehrere Tabellen an, wenn ich beispielsweise bei allen die gleichen Änderungen durchführen will.
Nun habe ich mir eine Routine geschrieben, die auf allen Tabellen ein Passwort setzt oder entfernt.
Diese Routine läuf...
02.06.2009 09:34:43
Thread-ID: 1078545
8 Beiträge
Automatisch berechnen nur in einem Tabellenblatt
Gerrit

Moin,
habe das automatische berechnen gernerell ausgeschaltet, jedoch bei einem Tabellenblatt brauche ist es.
Gibt's hier ne Möglichkeit?
Vielen Dank!
Gerrit
20.06.2009 23:56:05
Thread-ID: 1083169
22 Beiträge
Range(C12:E30) als .txt speichern / exportieren ?
udo-d

Hallo Profis,
hat evt. Jemand von Euch einen Code, mit dem ich nur einen best. Zellenbereich
eines best. Tabellenblattes ( Name zB: "Auswertung" )
Bereich C12:E30 als Textdatei exportieren / speichern kann ?
im ges. Workbook sind mehrere Tab.Blätter - weis nicht ob das wichtig...
12.10.2009 17:56:56
Thread-ID: 1109157
12 Beiträge
VBA:einzelnes Blatt in neuer Datei speichern +mehr
habneFrage

Hallo liebes Forum! Ich habe mich hier heute mal angemeldet, da ich schon seit längerer Zeit an einem Problem arbeite aber keine Lösung gefunden habe. Ich habe mit VBA nicht besonders viel am Hut, dafür kann ich mit anderen Dingen in Excel schon besser umgehen. Nun aber zu meinen Fragen:
Ic...
30.10.2009 08:03:49
Thread-ID: 1113145
14 Beiträge
Name nur einmal im Tabellenblatt
Heidi

Hallo zusammen,
gibt es die Möglichkeit einem Tabellenblatt zu sagen, dass z. B. der Name "Martin" nur 1 x vorkommen darf? Natürlich sind die Namen variabel.
Vielen Dank und Gruß
01.12.2009 11:37:55
Thread-ID: 1121180
5 Beiträge

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
2
33
13
2
9
7
21
11
13
4
17
21
3
1
4
10
3
2
8
1
2
1
9
4
3