Auf Tabellen dynamisch zugreifen

HI
MY favorit Forum ;)
Hier nochmal ne komplexe frage an alle experts.
Schonmal Danke im voraus. Ich weiß eure Zeit die ihr hier rein steckt zu schätzen!
Ich würde j auch gern was machen, aber viel weiß ich nicht.
Beispiel:
Projektnummer P066_2007
erstellt am 12.3.2007
beendet 12.4.2007
Problem: Projekt könnte vom Kunden erst z.b. März 2008 bezahlt werden.
Also müsste die Projektdatei bzw. Projektnummer P066_2007 auf die Rechungsdateien von z.B. Rechnung_2007_3 ...bis... Rechnung_2008_3 (oder alle Rechnungen 07-08) alle nach der Projektnummer P066_2007 durchsuchen.
Meine Formel:
(powered by neopa)
=WENN($C38="";"";WENN(ISTZAHL(VERGLEICH("*"&WECHSELN($C38;"P";"");'[rechnung_2007_1.xlsx]Tabelle1'!$C$20:$C$31;))
;INDEX('[rechnung_2007_1.xlsx]Tabelle1'!$A$20:$J$31;VERGLEICH("*"&WECHSELN($C38;"P";"");
'[rechnung_2007_1.xlsx]Tabelle1'!$C$20:$C$31;);VERGLEICH(WECHSELN(J2;".";"")&"*";
'[rechnung_2007_1.xlsx]Tabelle1'!$A$3:$K$3;));"?"))
Gute wäre ja, wenn ich den Link [rechnung_2007_1.xlsx] dynamisch darstellen könnte oder immer wenn Projektnummer 2007(+1) also Rechnungsdateien 07-08 durchsucht.
Für spätere Jahre auch...
Rechnung_2007_1
Rechnung_2007_2
...bis...
Rechnung_2007_12
dann weiter mit
Rechnung_2008_1
etc.
Bitte Fragen, wenn etwas unklar ist.
Für mich ist es nicht leicht es zu erklären.
cya as

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Die untere VBA version hab ich gefunden momentan werden alle befindlichen Datei im Ordner durchsucht.
Hier aber leider nur Cells(1,1) also nur eine Zelle der Dateien.
Wie kann ich also es auf eine ganze Spalte beziehen.
4 Spalten müsste ich aus den Vorhandenen Dateien ziehen, kann ich da ein fach den Code 4xkopieren?
Option Explicit


Sub Konsolidierung()
Dim MySheet As Worksheet ' aktuelles Arbeitsblatt
Dim strPath As String ' Dateipfad zum Auslesen der Dateien
Dim strFile As String ' Quelldatei
Dim wkbInput, meins As Workbook ' Quell-Arbeitsmappe
Dim wksInput As Worksheet ' Quell-Registerblatt
Dim lngTargetRow As Long ' Zeilenzähler für die Bewertungsinformationen
Dim lRow As Long ' Schleifenzähler
Dim lCol As Long ' Schleifenzähler
Dim delta As Integer
Application.DisplayAlerts = False
delta = 0
Set MySheet = ActiveSheet
Set meins = ActiveWorkbook
strPath = ActiveWorkbook.Path
' Verzeichnis durchgehen und alle Dateien auslesen
strFile = Dir(strPath & "\*.xlsx")
Do While strFile  "" ' Schleife beginnen
If strFile = ActiveWorkbook.Name Then
' Zieldatei natürlich übergehen
Else
' Quelldatei öffnen
' und 1. Registerblatt auswählen
Set wkbInput = Application.Workbooks.Open(strPath & "\" & strFile)
Set wksInput = wkbInput.Worksheets("Tabelle1")
' Daten auslesen und in Auswertung kopieren
wksInput.Activate
wksInput.Cells(1, 1).Select
Selection.Copy
meins.Activate
MySheet.Activate
MySheet.Cells(2 + delta, 1).Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
delta = delta + 1
' Datei schließen
wkbInput.Close
Set wkbInput = Nothing
End If
strFile = Dir ' Nächsten Eintrag abrufen
Loop
MsgBox "Ich habe Fertig!"
End Sub

Beliebteste Forumthreads (12 Monate)

	A	B	C	D	E	F	G	H	I
1	Pr-Nr	Datum	Rechnungsnummer	Nettobetrag				2007	1
2	P001_2008	01.05.2008	2190_010_2010	2430				[Rechnungen_2007_1.xls]Tabelle1!	8
3	P554.F1_2007	22.05.2007	2190_010_2011	23414				[Rechnungen_2007_2.xls]Tabelle1!	18
4	567_2007	18.06.2007	2190_010_2012	13123				[Rechnungen_2007_3.xls]Tabelle1!	28

9
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

301 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Auf Tabellen dynamisch zugreifen

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

301 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

9
Beiträge zum Forumthread

Beiträge zu diesem Forumthread