Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1344to1348
1344to1348
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Arbeitsmappe ansprechen

Forumthread: Arbeitsmappe ansprechen

Arbeitsmappe ansprechen
28.01.2014 19:49:19
gerhard
Hallo zusammen,
Bitte um VBA Hilfe,
In einer geöffneten Arbeitsmappe mit dem Namen Datenbank.xls
wird immer nur eine Messdatei mit variablen Namen xyz.xls dazu geladen.
Jetzt sollte auf diese Messdatei jeweils der Bereich von C2 bis D4 in die
Arbeitsmappe Datenbank.xls in die Spalte A und B an das Ende der bisherigen
Daten angefügt werden.
Vielen Dank für eure Hilfe
Gruß Gerhard

Anzeige

6
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Arbeitsmappe ansprechen
28.01.2014 23:05:06
Uduuh
Hallo,
teste mal: 
Sub aaa()
Dim wkb As Workbook, wksDB As Workbook, rngZiel As Range
Set wksDB = Workbooks("Datenbank").Sheets(1)
With wksDB
Set rngZiel = .Cells(Rows.Count, 1).End(xlUp).Offset(1)
End With
For Each wkb In Workbooks
If Not wkb Is wksDB.Parent Then
wkb.Sheets(1).Range("C2:D4").Copy rngZiel
Exit For
End If
Next
End Sub
Gruß aus’m Pott
Udo

Anzeige
AW: Arbeitsmappe ansprechen
29.01.2014 08:02:21
Gerhard
Hallo,
Vielen Dank einmal für die Hilfe,
aber leider läuft das Makro nicht!
Es erscheint die Fehlermeldung:
Laufzeitfehler 9
Index außerhalb des gültigen Bereichs
Anmerkung: Ich habe das Makro auf einem Rechner mit Excel 2003 getestet!
Den Code in die Mappe Datenbank.xls übernommen und eine Messdatei geladen!
Gruß Gerhard

Anzeige
AW: Arbeitsmappe ansprechen
29.01.2014 08:15:52
Hajo_Zi
Hallo Gerhard,
vielleicht reicht, den Typ ergänzen?
Set wksDB = Workbooks("Datenbank.xls").Sheets(1)

AW: Arbeitsmappe ansprechen
29.01.2014 08:51:14
Gerhard
Hallo
Auch diese Änderung bringt eine Fehlermeldung:
Laufzeitfehler 13
Typen unverträglich
Gruß Gerhard

Anzeige
AW: Arbeitsmappe ansprechen
29.01.2014 17:11:14
Rudi
Hallo,
da ist ein Tippfehler.
Es muss wksDB As WorkSheet heißen.
Gruß
Rudi

AW: Arbeitsmappe ansprechen
29.01.2014 20:25:33
gerhard
Vielen Dank Rudi,
das war's
jetzt funktioniert das Makro super
Gruß Gerhard
;

Forumthreads zu verwandten Themen

VBA Code vom anderen xls Datei ausführen
Urmila

Hallo,
besteht die Möglichkeit, ein VBA Code von anderen Datei aus zu starten?
Beispiel:
Datei 01.xls: hier steht der VBA Skript zum Speichern der Tabelle als Html.
Im Datei 02.xls ist ein Button und die Daten die als Html gespeichert werden sollen.
Wenn ich den Button drück...
27.11.2008 10:26:00
Thread-ID: 1028252
8 Beiträge
VBA- Kopieren von Zeilen aus anderer Excel-Datei
Zeilen

Hi,
ich benötige Hilfe bei folgendem Problem:
Momentan habe ich schon ein Makro laufen, welches per Button komplette Sheets einer anderen Excel-Datei (ImportWkb) in meine Datei (NewWkb) kopiert. siehe Code unten.
Jetzt möchte ich dieses Makro erweitern, sodass aus einer weiteren ex...
06.11.2009 02:08:57
Thread-ID: 1114817
3 Beiträge
Macro in anderer (geöffneter) XLS-Datei ansprechen
Stefan

Hi,
ich habe hier zwei Dateien.
Eine Master.xls und eine Slave.xls Die Master.xls öffnet mit Application.run die Slave.xls, worauf eine Symbolleiste der Slave.xls geöffnet wird, die verschiedene Funktionen in der Slave.xls ansprechen kann.
Das Problem ist, dass die Funktionen der Sl...
06.11.2009 22:31:30
Thread-ID: 1115105
7 Beiträge
VBA: Werte aus einer Datei in andere Dateien übert
Pierre

Hallo liebe VBA-Profis!
Ich habe ein Problem, welches ich nicht selber lösen kann. Wäre nett wenn mir jemand helfen könnte. Vielen Dank im voraus!
Ich habe eine Datei*, in denen untereinander Produkte [I3:I166] und Mengen [K3:K166] aufgelistet sind. Für meine Diplomarbeit müssen diese M...
08.09.2011 12:16:43
Thread-ID: 1228969
2 Beiträge
Anzeige
Inhalt je Tabellenblatt per VBA in andere Datei
janesch

Hallo Excel Freunde,
benötige mal Eure Hilfe beim folgenden Problem.
Zur Überprüfung der Ergebnisse (mögliche Formelnmanipulation) muss ich die Eingabedaten je Tabellenblatt in die Ursprungstabelle vornehmen.
Die 2 Dateien sind gleich aufgebaut(Anzahl der Tabellenblätter = 72 ) und...
07.08.2013 10:24:17
Thread-ID: 1326002
5 Beiträge
VBA Informationen aus anderen Dateien abrufen,
Frederik

Hallo VBA-Cracks,
ich bin gerade am Verzweifeln. Ich habe eine Master-Datei erstellt, die mit bestimmten Inhalten befüllt wird, insgesamt werden hierbei monatlich 30 Dateien erstellt. Diese Dateien werden von jemand anderen bewertet und jede Zeile wird entsprechend markiert. Auf einem weite...
23.07.2014 09:56:21
Thread-ID: 1371740
5 Beiträge
Anzeige
VBA Copy/Paste Spalten in andere Datei
Sio
Hallo, lerne gerade VBA und bastel gerade an folgendem Makro:
Ziel des Makros:
-Spalten A:C kopieren
- Datei auswählen wohin es kopiert werden soll
- Einfügen in ein spezielles Worksheet dieser Datei
- Refresh der Datei
- schließen der Datei woraus es kopiert wurde
Das...
23.08.2014 11:23:10
Thread-ID: 1377842
6 Beiträge
Anzeige
VBA Übertragen von Werten in andere Excel Datei
Werten

Hallo ihr Lieben,
zwar hatte ich gestern schon einmal gefragt, allerdings ging es da nicht genau um dasselbe Thema.
Ich würde gerne einen Wert aus Datei 1 (A1) in eine weitere Datei 2 (A2) übertragen. Keine Formel, sondern nur der Wert. Beide Dateien haben denselben Pfad. Toll wäre es,...
05.09.2014 09:12:22
Thread-ID: 1380035
5 Beiträge
Anzeige
VBA Diagrammdaten aus anderer var. Datei
SunnyJenny

Hallo zusammen.
Vielleicht weiß jemand wie man mir weiterhelfen kann...
Ich habe in einer vorgefertigten Datei mehrere Diagrammen.
Außerdem habe ich mehrere weitere Dateien, die jeweils als Tag benannt sind.
ich möchte, dass die Diagramme der vorgefertigten Datei die Daten aus e...
10.12.2014 14:21:45
Thread-ID: 1397229
5 Beiträge
VBA in anderer Datei
chris58

Hallo !
Ich habe eine Datei wo ich die Energiekosten errechnen kann. Diese Datei war bisher immer als alleinige Datei vorhanden. Nun habe ich diese Datei in einer andere Excelliste importiert um alles beisammen zu haben. Die Gesamtdatei heisst: "Alle Heizkosten-Stromkosten_Wasserverbrauch"....
30.03.2015 18:54:52
Thread-ID: 1418014
5 Beiträge
VBA: Daten per Button aus anderer Datei kopieren
Markus

Hallo zusammen!
Folgende Funktion möchte ich über den Button CmdDatenLaden ausführen:
Den Inhalt der Zellen G4 und AB4
des Tabellen-Blatts "ON"
des im gleichen Verzeichnis liegende Excel-Files
mit dem Namen aus dem Inhalt der Zelle B1
in die Zellen A10 und B10 des
08.12.2015 15:55:55
Thread-ID: 1463134
2 Beiträge
VBA: Daten per Button aus anderer Datei kopieren
Markus

Hallo zusammen!
Folgende Funktion möchte ich über den Button CmdDatenLaden ausführen:
Den Inhalt der Zellen G4 und AB4
des Tabellen-Blatts "ON"
des im gleichen Verzeichnis liegende Excel-Files
mit dem Namen aus dem Inhalt der Zelle B1
in die Zellen A10 und B10 des
08.12.2015 16:17:17
Thread-ID: 1463142
4 Beiträge
Anzeige
Anzeige

Infobox / Tutorial

Arbeitsmappe ansprechen mit VBA

Schritt-für-Schritt-Anleitung

  1. Öffne die Arbeitsmappe: Stelle sicher, dass die Arbeitsmappe Datenbank.xls geöffnet ist.

  2. Öffne das VBA-Editor: Drücke ALT + F11, um den Visual Basic for Applications (VBA) Editor zu öffnen.

  3. Erstelle ein neues Modul: Klicke auf Einfügen > Modul.

  4. Füge den folgenden Code ein:

    Sub aaa()
   Dim wkb As Workbook, wksDB As Worksheet, rngZiel As Range
   Set wksDB = Workbooks("Datenbank.xls").Sheets(1)
   With wksDB
       Set rngZiel = .Cells(Rows.Count, 1).End(xlUp).Offset(1)
   End With
   For Each wkb In Workbooks
       If Not wkb Is wksDB.Parent Then
           wkb.Sheets(1).Range("C2:D4").Copy rngZiel
           Exit For
       End If
   Next
End Sub

  5. Führe das Makro aus: Schließe den VBA-Editor und führe das Makro aus, indem Du auf Entwicklertools > Makros > wähle aaa und klicke auf Ausführen.

Häufige Fehler und Lösungen

  • Laufzeitfehler 9: Index außerhalb des gültigen Bereichs

    • Ursache: Der Name der Arbeitsmappe könnte falsch sein. Stelle sicher, dass die Arbeitsmappe tatsächlich Datenbank.xls heißt.
    • Lösung: Überprüfe den Namen und ändere den Code in Set wksDB = Workbooks("Datenbank.xls").Sheets(1).

  • Laufzeitfehler 13: Typen unverträglich

    • Ursache: Möglicherweise hast Du wksDB als Workbook und nicht als Worksheet deklariert.
    • Lösung: Ändere Dim wksDB As Workbook in Dim wksDB As Worksheet.

Alternative Methoden

Eine alternative Methode zum Ansprechen einer anderen Arbeitsmappe ist die Verwendung von Workbooks.Open. Hier ist ein Beispiel:

Sub andereArbeitsmappeAnsprechen()
    Dim wkbDatenbank As Workbook
    Set wkbDatenbank = Workbooks.Open("Pfad\zu\Datenbank.xls")
    ' Führe hier deine gewünschten Operationen durch
    wkbDatenbank.Close SaveChanges:=True
End Sub

Praktische Beispiele

Wenn Du die Werte aus einer anderen Arbeitsmappe in Datenbank.xls übertragen möchtest, kannst Du den Bereich C2:D4 wie im Beispiel oben kopieren. Das Ziel ist dabei, die Daten in die Spalten A und B am Ende der bisherigen Daten anzufügen.

Tipps für Profis

  • Verwende Option Explicit: Setze immer Option Explicit am Anfang Deines Moduls, um die Deklaration aller Variablen zu erzwingen. Dies hilft, Tippfehler zu vermeiden.

  • Nutze Fehlerbehandlung: Implementiere Fehlerbehandlungsroutinen, um Deine Makros robuster zu machen. Zum Beispiel:

    On Error GoTo Fehlerbehandlung
' Dein Code hier
Exit Sub
Fehlerbehandlung:
   MsgBox "Ein Fehler ist aufgetreten: " & Err.Description

FAQ: Häufige Fragen

1. Wie kann ich mit VBA eine andere Arbeitsmappe ansprechen?
Du kannst eine andere Arbeitsmappe einfach durch ihren Namen ansprechen, indem Du sie in den Workbooks-Sammlungen verwendest, wie im Beispiel oben gezeigt.

2. Was ist der Unterschied zwischen Workbook und Worksheet in VBA?
Workbook bezieht sich auf die gesamte Excel-Datei, während Worksheet sich nur auf ein einzelnes Arbeitsblatt innerhalb dieser Datei bezieht. Achte darauf, den richtigen Typ zu wählen, um Fehler zu vermeiden.

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Anzeige