Daten aus anderer Mappe auslesen - Nr. 2

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hallo Andreas,
habe mir überlegt, ob hier überhaupt antworten soll.
Meine Lust an dem Thema weiter zu machen hält sich im Moment ziemlich in Grenzen.
Warum:
1. Ich habe dich von Anfang an gefragt, ob du dir sicher bist, dass die Daten in einen Bereich sollen, der eigentlich außerhalb des eigentlichen Datenbereichs deiner Masterdatei ist. Deine Antwort war ja, warum auch immer. Jetzt sollen die Daten plötzlich in einen anderen Bereich, der wieder außerhalb des eigentlichen Datenbereichs ist.
-da hab ich dann wohl mal wieder für den Papierkorb gearbeitet
2. Wolltest du die RE-Nr. und die AR-Nr. in einer Spalte haben. Dafür habe ich dir einen Code gepostet. Jetzt stellst du deine Masterdatei hier ein, in der die beiden Nummern in getrennten Spalten sind, incl. dem entsprechenden Code.
-der abgeänderte Code scheint dich nicht interessiert zu haben
3. Der jetzige Zielbereich besteht aus einer einzigen verbundenen Zelle. Davon halte ich persönlich gar nichts (auch auf die Gefahr hin, dass mich Luc wieder maßregelt :-D)
4. Warum jetzt plötzlich die Quelldaten, die horizontal angeordnet sind, in vertikaler Ausrichtung in den Zielbereich sollen, erschließt sich mir auch nicht.
Gruß Werner

Hallo Andreas,
ich will mal nicht so sein:

Public Sub Daten_holen_Bewertung()
Dim strPfad As String, strDatei As String, raSpalte As Range
Dim wbQuelle As Workbook, loSuchbegriff As Long, boGefunden As Boolean
'Pfad an deine Bedürfnisse anpassen
strPfad = "C:\Ordner\Unterordner\UnterUnterordner\"
strDatei = "Bewertung_August.xlsx"
loSuchbegriff = ActiveSheet.Range("J1")
'Bildschirmaktualisierung aus
Application.ScreenUpdating = False
'Datei öffnen
Set wbQuelle = Workbooks.Open(strPfad & strDatei)
With wbQuelle.Worksheets("Tabelle1")
'Suche nach loSuchbegriff in Zeile 2
Set raSpalte = .Rows("2:2").Find(what:=loSuchbegriff, LookIn:=xlValues, lookat:=xlWhole)
'wenn gefunden dann
If Not raSpalte Is Nothing Then
'bei Fund Variable auf Wahr setzen
boGefunden = True
'Daten übertragen
ThisWorkbook.ActiveSheet.Range("E8") = .Cells(3, raSpalte.Column)
ThisWorkbook.ActiveSheet.Range("E11") = .Cells(4, raSpalte.Column)
ThisWorkbook.ActiveSheet.Range("E17") = .Cells(5, raSpalte.Column)
ThisWorkbook.ActiveSheet.Range("E23") = .Cells(6, raSpalte.Column)
ThisWorkbook.ActiveSheet.Range("E26") = .Cells(7, raSpalte.Column)
ThisWorkbook.ActiveSheet.Range("E30") = .Cells(8, raSpalte.Column)
End If
End With
'Quelldatei ohne Speichern schließen
wbQuelle.Close (False)
'kein Fund - Meldung ausgeben
If Not boGefunden Then MsgBox "Die Kostenstelle " & loSuchbegriff & " wurde nicht gefunden."
'Variable aufräumen
Set wbQuelle = Nothing: Set raSpalte = Nothing
'Bildschirmaktualisierung an
Application.ScreenUpdating = True
End Sub

Gruß Werner

Beliebteste Forumthreads (12 Monate)

Daten aus anderer Mappe auslesen - Nr. 2

8
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

347 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Daten aus anderer Mappe auslesen - Nr. 2

8 Beiträge zum Forumthread Beiträge zu diesem Forumthread

347 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

8
Beiträge zum Forumthread

Beiträge zu diesem Forumthread