Einlesen von Daten aus anderer Excel-Datei

Daten · 2008-06-04T12:01:52+00:00

Hallo, ich habe ein Tippspiel zur EM entworfen und sende eine Excel-Datei (1 Arbeitsblatt) als Tippschein zum Ausfüllen an Mitspieler zu. In einer weiteren Datei habe ich eine Auswertungstabelle. In diese möchte ich automatisch die Daten aus den einzelnen Tippschein-Dateien einlesen. Dazu habe ich den leeren Tippschein bereits mit der Auswertungsdatei verknüpft und die Tippscheindatei findet sich auch unter Bearbeiten-Verknüpfungen. Ich wollte diese Arbeit nun nicht für jede einzelne Tippschein-Datei neu machen, sondern hatte gehofft, dass ich von dieser Stelle an einfacher die entsprechenden Felder aus den Tippscheindateien (die immer EM_Tipp_Name1.xls, EM_Tipp_Name2.xls usw. heißen) auslesen kann. Zur WM hatte ich einen Weg gefunden, allein ich weiss nicht mehr, wie es damals ging. Kann jemand helfen? Vielen Dank im Voraus. Andreas Beiträge der letzten Zeit anzeigen:

Hallo Andreas,
das folgende Makro, sucht so lange in Spalte 4 nach leere Zellen bis in Spalte 2 eine leere Zelle ist. Ist Spalte 4 leer, wird der Dateiname abgefragt bzw. ist zu bestätigen. Danach werden die Formeln kopiert und der Dateiname erstzt. in Spalte E-mail wird Hyperlink gesetzt.
Vor dem Start des Makros muss du die Namen/Vornamen der Tipper eintragen, deren Tippdateien vorligen.
Eine formellose übernahme der Tippdaten wäre auch möglich, aber das ist doch eine ziemliche Fleissarbeit all die auszulesenden Zelladressen rauszu picken und dann in der richtigen Zeile/Spalte die Werte einzufügen.
Gruß
Franz


Sub Tipps_Verknuepfen()
'Kopiert die Formeln in die nächste Freie Zeile und fragt Dateiname ab
Dim lngZeile As Long, strNameDatei As String, lngZeileKopie As Long
Dim objWks As Worksheet
Const lngLetzeSpalte As Long = 85 'Nummer der letzten Spalte die mit kopiert werden soll
Set objWks = ActiveSheet
With objWks
'leere Zeile in Spalte 4 ab Zeile 4 suchen
For lngZeile = 4 To .Cells(.Rows.Count, 2).End(xlUp).Row
'Leere Zellen in Spalte 4
If IsEmpty(.Cells(lngZeile, 4)) Then
'Neuen Dateinamen aus Name errechnen
.Cells(lngZeile, 2).Select
strNameDatei = "EM_Tipp_" & .Cells(lngZeile, 2).Value & ".xls"
strNameDatei = InputBox(Prompt:="Bitte ggf. Dateiname für " & vbLf & vbLf _
& .Cells(lngZeile, 2).Value & " " & .Cells(lngZeile, 3).Value & vbLf & vbLf _
& " korrigieren und Eingabe mit OK bestätigen" & vbLf _
& "Bei Abbrechen wird die Zeile übersprungen!", _
Title:="EM 2008 Tippspiel - Tipps einlesen", Default:=strNameDatei)
If strNameDatei = "" Then
Else
lngZeileKopie = .Cells(.Rows.Count, 4).End(xlUp).Row
.Range(.Cells(lngZeileKopie, 4), .Cells(lngZeileKopie, lngLetzeSpalte)).Copy _
Destination:=.Cells(lngZeile, 4)
'Dateiname in Formeln ersetzen
.Range(.Cells(lngZeile, 4), .Cells(lngZeile, lngLetzeSpalte)).Replace _
What:="[*]", Replacement:="[" & strNameDatei & "]", _
LookAt:=xlPart, SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False
'E-Mail-Hyperlink einfügen
If .Cells(lngZeile, 5).Value  "" Then
.Hyperlinks.Add Anchor:=.Cells(lngZeile, 5), Address:= _
"mailto:" & .Cells(lngZeile, 5).Value & "?subject=EM%202008%20-%20Tippspiel"
End If
End If
End If
Next
End With
End Sub

Hallo Andreas,
VBA ist nun mal eine Programmiersprache und diese haben ihren festen Satz an Methoden und Funktionen und jede dieser Methoden und Funktionen hat ihre Sysntax.
ich habe die Zeile schon identifiziert, allerdings sagen mir die Befehle "... & .Cells(lngZeile, 2).Value & "_" _& .Cells(lngZeile, 3).Value & " ..." mit den ganzen &-Zeichen und Punkten rein gar nichts, deshalb habe ich lieber nachgefragt.
& = in VBA das Funktionszeichen für das zusammenfügen von Text-Teilen
_ = am Ende einer Code-Zeile ist der Hinweis für den Compiler, der den Text in ausführbaren Code umsetzt, dass die nächste Zeile noch mit zur Anweisung gehöhrt.
. = vor einem Objekt (Zelle, Worksheet, Shape, Format etc) muss immer in Verbindung mit der in einer Zeile vorher stehenden With Objekt-Zeile gelesen werden. Fehlt der Punkt, dann bezieht sich die Anweisung immer auf das Aktive Objekt. Im Fall von Cells oder Range ist dies das aktive Tabellenblatt.
.Cells(lngZeile,2).Value = Nimm aus dem oben hinter With genannten Tabellenblatt aus der Zelle in der Zeile mit der Nr die im Moment in der Variablen lngZeile und der Spalte 2 den Inhalt und ...
Kann man irgendwo nachlesen, wie Makros aufgebaut sind
A: Bücher Amazon.de, Fachbuchhandlung, Computerladen
B: Übungs./Lernmaterial hier bei Herbers
C: Übungs-Seite by www.microsoft.de, obwohl ich denen gestern in der Bewertung nur 1 Stern geben konnte wegen Programmierfehler in einem Übungsbeispiel.
(z.b. was LngZeile bedeutet und warum am Ende so viele End If sind?)
lngZeile ist bei mir eine Varible, der Name fängt bei mir mit "lng" an, weil die Variable vom Zahlentyp Long ist und "Zeile" ist dann ein aussagekräftiger Namenszusatz, der einen Hinweis auf den Inhalt der Variablen gibt, hier eine Zeilen-Nummer.
Viele "End If" sind am Ende Konzentriert, wenn vorher im Code viele If-Prüfungen gemacht wurden.
Die Syntax ist
If irgenwas-Prüfung=Wahr Then
'Code by Bedingung Wahr (True)
Else (optional)
'Code by Bedingung Falsch (False)
End If
Ich würde schon gerne verstehen, warum die Befehle exakt so gemacht werden müssen.Über das Warum brauchst du dir als Anwender meist keine Sorgen machen, das haben Programmierer bei Microsoft oder anderswo mit einer mehr oder weniger gekonnter Syntax und Logik/Unlogik schon erledigt.
Für dich muss es darum gehen die Logik nachzuvollziehen - verstehen ist natürlich auch nicht verkehrt, um möglichst schnell und elegant bei der Lösung deiner eigenen VBA-programmierungen voranzukommen.
Aber zunächst einmal vielen lieben Dank. Die EM kann nun losgehen.
Ja ich bin auch bereit und drücke unseren Kickern die Daumen. Früher hab ich ja auch noch umfangreiche Tippspiele mit Excel ausgewertet (BL-Saison mit bis zu 100 Teilnehmern. Aber seit der WM 2006 ist das vorbei. Seitdem nutze Angebote im Web.
Gruß
Franz

Einlesen von Daten aus anderer Excel-Datei

Forumthread: Einlesen von Daten aus anderer Excel-Datei

9
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Forumthreads zu verwandten Themen

Infobox / Tutorial

Daten aus einer anderen Excel-Datei einlesen

Schritt-für-Schritt-Anleitung

Häufige Fehler und Lösungen

Alternative Methoden

Praktische Beispiele

Tipps für Profis

FAQ: Häufige Fragen

Beliebteste Forumthreads (12 Monate)

Einlesen von Daten aus anderer Excel-Datei

Forumthread: Einlesen von Daten aus anderer Excel-Datei

9 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Forumthreads zu verwandten Themen

VBA Beispiele zu diesem und ähnlichen Themen

Infobox / Tutorial

Daten aus einer anderen Excel-Datei einlesen

Schritt-für-Schritt-Anleitung

Häufige Fehler und Lösungen

Alternative Methoden

Praktische Beispiele

Tipps für Profis

FAQ: Häufige Fragen

Beliebteste Forumthreads (12 Monate)

9
Beiträge zum Forumthread

Beiträge zu diesem Forumthread