Hot News:

Unser Angebot:

  Foren auf CAD.de (alle Foren)
  Excel
  Importieren von Daten aus einer fremden Tabelle

Antwort erstellen  Neues Thema erstellen
CAD.de Login | Logout | Profil | Profil bearbeiten | Registrieren | Voreinstellungen | Hilfe | Suchen

Anzeige:

Darstellung des Themas zum Ausdrucken. Bitte dann die Druckfunktion des Browsers verwenden. | Suche nach Beiträgen nächster neuer Beitrag | nächster älterer Beitrag
Autor Thema:  Importieren von Daten aus einer fremden Tabelle (2446 mal gelesen)
jonnyw79
Mitglied
Student


Sehen Sie sich das Profil von jonnyw79 an!   Senden Sie eine Private Message an jonnyw79  Schreiben Sie einen Gästebucheintrag für jonnyw79

Beiträge: 67
Registriert: 18.11.2005

erstellt am: 05. Mrz. 2007 16:33    Editieren oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities

Hallo liebe User!

Ich habe folgendes Problem:

In eine Excel-Tabelle soll aus einer fremden Tabelle über VBA Daten importiert werden. Da es sich nicht immer um die gleiche fremde Tabelle handelt, soll deren Pfad jedesmal vom Benutzer neu angegeben werden.
Die zu importierenden Daten befinden sich meistens an der gleichen Stelle (Zelle), sind aber auch über ein Namenfeld definiert.
Frage: Ist grundsätzlich ein Import des jeweiligen Namenfeld mit VBA möglich? Wie wähle ich den Pfad der fremden Datei aus?

Vielen Dank für Eure Tipps
Gruss JonnyW79

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

jonnyw79
Mitglied
Student


Sehen Sie sich das Profil von jonnyw79 an!   Senden Sie eine Private Message an jonnyw79  Schreiben Sie einen Gästebucheintrag für jonnyw79

Beiträge: 67
Registriert: 18.11.2005

erstellt am: 05. Mrz. 2007 16:35    Editieren oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities

Zusätzliche Frage: Kann man die aktuell geöffnete Excel-Tabelle in VBA als Varaible speichern?

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

Paulchen
Mitglied
Bauing./SW-Entwickler


Sehen Sie sich das Profil von Paulchen an!   Senden Sie eine Private Message an Paulchen  Schreiben Sie einen Gästebucheintrag für Paulchen

Beiträge: 1227
Registriert: 19.08.2004

Büro: Win10 Enterprise 64bit, Office Professional Plus 2013 - Privat: Linux Mint 15, LibreOffice

erstellt am: 05. Mrz. 2007 18:00    Editieren oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities Nur für jonnyw79 10 Unities + Antwort hilfreich

Hallo jonnyw79,

auf die Schnelle:

ActiveWorkbook.Name --> Name der Mappe
ActiveWorkbook.FullName --> Name und Pfad der Mappe (falls gespeichert)
Dir könnte auch helfen

zu 2)

strTW = ThisWorkbook.Name --> DIESE Mappe
strAW = ActiveWorkbook.Name --> Aktive Mappe, MUSS nicht gleich DIESE Mappe sein 

[thedit]Ich meinte oben den Befehl 'Dir' in VBA[/thedit]

[thedit2] Hast Du diesen und diesen hier schon entdeckt? Da könnte was Brauchbares dabei sein. Außerdem guckste mal in die VBA-Hilfe zu 'names(.add?)' [/thedit2]

HTH,

------------------
Gruß,
Frederik

[Diese Nachricht wurde von Paulchen am 05. Mrz. 2007 editiert.]

[Diese Nachricht wurde von Paulchen am 05. Mrz. 2007 editiert.]

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

startrek
Moderator
Architekt


Sehen Sie sich das Profil von startrek an!   Senden Sie eine Private Message an startrek  Schreiben Sie einen Gästebucheintrag für startrek

Beiträge: 1361
Registriert: 13.02.2003

.

erstellt am: 05. Mrz. 2007 22:59    Editieren oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities Nur für jonnyw79 10 Unities + Antwort hilfreich

Hallo Jonny,

ein kleiner, möglicher Beispielcode wäre evtl. sowas?:

Code:
Sub y()
    Dim xlWB As Workbook, xlName As name, xlFile As Variant, s$
    xlFile = Application.GetOpenFilename("xl-Files (*.xls), *.xls", , "Mappe wählen", , 0)
    If xlFile <> False Then
        Set xlWB = Workbooks.Open(xlFile)
    Else
        Exit Sub
    End If
    For Each xlName In xlWB.Names
        s = s & xlName.name & " refers to: " & xlName.RefersTo & Chr(13)
    Next
    MsgBox s
    'oder statisch für: Tabelle1/RangeName: Bereich
    MsgBox xlWB.Sheets("Tabelle1").Range("Bereich").Address
End Sub


HTHHope this helps (Hoffe, es hilft weiter), Nancy

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

jonnyw79
Mitglied
Student


Sehen Sie sich das Profil von jonnyw79 an!   Senden Sie eine Private Message an jonnyw79  Schreiben Sie einen Gästebucheintrag für jonnyw79

Beiträge: 67
Registriert: 18.11.2005

erstellt am: 06. Mrz. 2007 09:30    Editieren oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities

Hallo!

Zunächst mal vielen Dank für die schnelle Hilfe! Wird ne Weile dauern das alles zu testen. Ich meld mich dann wieder.

Gruß JonnyW79

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

jonnyw79
Mitglied
Student


Sehen Sie sich das Profil von jonnyw79 an!   Senden Sie eine Private Message an jonnyw79  Schreiben Sie einen Gästebucheintrag für jonnyw79

Beiträge: 67
Registriert: 18.11.2005

erstellt am: 07. Mrz. 2007 13:46    Editieren oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities

Ok Vielen Dank!
Das klappt jetzt alles soweit.
ICh hätte nur noch eine Frage. Im Moment speichere ich aus der fremden Tabelle den Wert einer bestimmten Zelle. d.h. befindet sich der zu exportierende Wert mal in einer anderen Zeile oder Spalte gibt es ein Problem.
Daher wollte ich nicht den Wert der Zelle speichern sondern gleich den Wert des Namenfelds speichern.
Ist das möglich? Wie kann man den Wert eines Namenfelds direkt ansprechen?

Bsp: Für den Wert der Zelle A10 wurde ein Namenfeld ("Zellenwert") definiert. Wie kann ich nun den Wert von "Zellenwert" über VBA ansprechen?

   

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

Paulchen
Mitglied
Bauing./SW-Entwickler


Sehen Sie sich das Profil von Paulchen an!   Senden Sie eine Private Message an Paulchen  Schreiben Sie einen Gästebucheintrag für Paulchen

Beiträge: 1227
Registriert: 19.08.2004

Büro: Win10 Enterprise 64bit, Office Professional Plus 2013 - Privat: Linux Mint 15, LibreOffice

erstellt am: 07. Mrz. 2007 14:39    Editieren oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities Nur für jonnyw79 10 Unities + Antwort hilfreich

Genauso: Sonst steht da '...Range("A10")' - jetzt schreibste halt '...Range("Zellenwert")'. So kannst Du auch Werte direkt in den benannten Bereich schreiben: 'Range("Zellenwert").Value = 10.

------------------
Gruß,
Frederik

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

jonnyw79
Mitglied
Student


Sehen Sie sich das Profil von jonnyw79 an!   Senden Sie eine Private Message an jonnyw79  Schreiben Sie einen Gästebucheintrag für jonnyw79

Beiträge: 67
Registriert: 18.11.2005

erstellt am: 07. Mrz. 2007 16:47    Editieren oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities

Ok danke!
Hat funktioniert! Manchmal sieht man den Wald vor lauter Bäumen nicht!

10 Points

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

Anzeige.:

Anzeige: (Infos zum Werbeplatz >>)

Darstellung des Themas zum Ausdrucken. Bitte dann die Druckfunktion des Browsers verwenden. | Suche nach Beiträgen

nächster neuerer Beitrag | nächster älterer Beitrag
Antwort erstellen


Diesen Beitrag mit Lesezeichen versehen ... | Nach anderen Beiträgen suchen | CAD.de-Newsletter

Administrative Optionen: Beitrag schliessen | Archivieren/Bewegen | Beitrag melden!

Fragen und Anregungen: Kritik-Forum | Neues aus der Community: Community-Forum

(c)2023 CAD.de | Impressum | Datenschutz