Daten indirekt kopieren

Hallo,
Ich habe eine Excel-Mappe mit mehren Blättern.
Auf Blatt 1 mit dem Namen Tabelle1 sind in der Spalte A die Zeilen 2 bis .....mit einem fortlaufendem Datum aufgefüllt
Auf einem anderen Tabellenblatt sind Daten einem Datum zugeordnet, welche in die Zeile mit dem Datum in Tabelle1 kopiert werden sollen.
Tabelle2:
Zeile 17 11.01.2006 ABC 123.00
Ich habe dem Bereich in Tabelle2 Zeile 17 A:G den Namen Quelle zugeordnet
Mit dem Befehl in Tabelle1 ab D2 bis D....
=WENN($A2" ";(SVERWEIS(A2;Quelle;$C$1+2;FALSCH));" ")
bzw. in Tabelle1 ab E2 bis E....
=WENN($A2" ";(SVERWEIS(A2;Quelle;$C$1+4;FALSCH));" ")
werden die Inhalte von Tabelle 2 nach Tabelle 1 übertragen.
Mein Problem besteht jetzt darin, dass dass übertragen von Tabelle2 nach Tabelle1 nur funktioniert, wenn die Quelldaten in Tabelle 2 stehen.
Quelle ist mit Tabelle2 verknüpft, entsprechend funktioniert dies nur mit Tabelle2 aber nicht mit TabelleXXX.
Ich benötige aber eine Funktion, die aus anderen Blättern dieser Arbeitsmappe, welchen den gleichen Aufbau haben wie Tabelle2, Tabelle1 bedient.
Vielen Dank für eure Hilfe
Uwe

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Tabellenblattname: Tabelle1 A B C D E F G H 1 Datum 3 Tabelle2 Tabelle3 2 01.01.06 Tab2 E 1 Tab2 G 1 Tab3 E 1 Tab3 G 1 Benutzte Formeln: E2: =WENN($A2<>" ";(SVERWEIS($A2;INDIREKT(E$1&"!Quelle");$C$1+2;FALSCH));" ") F2: =WENN($A2<>" ";(SVERWEIS($A2;INDIREKT(E$1&"!Quelle");$C$1+4;FALSCH));" ") G2: =WENN($A2<>" ";(SVERWEIS($A2;INDIREKT(G$1&"!Quelle");$C$1+2;FALSCH));" ") H2: =WENN($A2<>" ";(SVERWEIS($A2;INDIREKT(G$1&"!Quelle");$C$1+4;FALSCH));" ") Namen in der Tabelle: Quelle: =Tabelle2!$A$2:$G$10 Tabelle3!Quelle: =Tabelle3!$A$2:$G$10

Hallo Franz,
vielen Dank für Deine erneute Hilfe,
Dein Lösungsvorschlag entspricht genau dem was ich suchte.
ich habe die Datei 34169.xls geladen, kurz getestet, und das Makro (Variante 1) für meine Anwendung angepasst (Variante 2 habe ich nicht getestet).
Hier mein Makro:
Sub Übertrag_sichern()
'
' Übertrag_sichern Makro
'
' Tabellennamen werden in Spalte AL von Jahr_Soll eingetragen
Dim wks1 As Worksheet, wks2 As Worksheet, zelle As Range
Set wks1 = ThisWorkbook.Sheets("Jahr_Soll")
With wks1
'Einträge ab Zeile 103 in Spalte 45 (AS) (Tabellennamen) löschen
.Range(.Cells(103, 45), .Cells(.UsedRange.Row + .UsedRange.Rows.Count, 45)).ClearContents
'Tabellenblätter nach Datum vergleichen und Tabellennamen einfügen
For Each wks2 In ThisWorkbook.Worksheets
If wks2.Name "Jahr_Soll" Then
'jede Zelle ab Zeile 103 in Spalte 2 (B) wird auf das Datum in AN2 der anderen Tabelle untersucht
For Each zelle In .Range(.Cells(103, 2), .Cells(.UsedRange.Row + .UsedRange.Rows.Count, 1))
If zelle.Value = wks2.Range("AN2").Value Then
'in die entsprechende Zeile mit dem Datum wird in Spalte AS der Name der Tabelle eingetragen aus der das Datum stammt
.Cells(zelle.Row, "AS").Value = wks2.Name
Exit For
End If
Beide Makros funktionieren bis auf kleine Einschränkungen:
1. Wenn die Quelltabelle einen Namen mit Leerzeichen z.B. Test 1hat, funktioniert der SVERWEIS nicht (#BEZUG).
2. Bei Deinem Makro wird:
Wenn zwischen dem Ziel-Tabellenblatt und dem 1. Tabellenblatt mit den Quelldaten (Tabelle2) andere Tabellen stehen, in denen kein Datum in der zu untersuchenden Zelle steht , wird der Name der letzten Tabelle, die keine Eintragung hat (Tabellexx), eine Zeile unterhalb des zuletzt gefundenem Datum in die Spalte geschrieben, in der die gefundenen Tabellennamen geschrieben werden (B11).
Bei meinem Makro wird der unnötige Tabellenname in die 1. zu untersuchende Datumzeile geschrieben (AS103).
Dein Beispiel habe ich zum testen wie folgt erweitert:
Tabelle1 Tabelle3 Tabellexx Tabelle2 Test Test 2
In AS103 steht Tabellexx
In B2 steht Test 2 und in C2 steht #BEZUG
3. Der automatische Aufruf des Makros ist eine tolle Sache, welche ich auch nutzen möchte Der Hintergrund für das Zwischespeichern in Tabelle1 ist, dass die Quelltabellen indirekt über Tabelle1 auf Daten der davor liegenden Quelltabelle zugreifen sollen. Der Bediener wird auch zwischen Tabelle2 und Test wechseln. Mittels Tastenkombination oder Aufruf der Tabelle1 funktioniert das tadellos, aber der Bediener braucht von dieser Funktion gar nichts merken
Die sinnvollste Möglichkeit das Makro aufzurufen ist, beim Verlassen eines Tabellenblattes (außer Tabelle1 egal welche Tabelle) die Funktion zu starten.
Vielen Dank für Deine Bemühungen
Gruß
Uwe

=WENN(ISTLEER($B2);"";INDIREKT("'"&$B2&"'!C17")) 2. Tabellen ohne Datumseintrag Durch eine zusätzliche If-Bedingung die leere Zellen abfängt, tritt dies Problem auch nicht mehr auf. Sub Übertrag_sichern() ' Übertrag_sichern Makro ' Tabellennamen werden in Spalte AL von Jahr_Soll eingetragen Dim wks1 As Worksheet, wks2 As Worksheet, zelle As Range Set wks1 = ThisWorkbook.Sheets("Jahr_Soll") With wks1 'Einträge ab Zeile 103 in Spalte 45 (AS) (Tabellennamen) löschen .Range(.Cells(103, 45), .Cells(.UsedRange.Row + .UsedRange.Rows.Count, 45)).ClearContents 'Tabellenblätter nach Datum vergleichen und Tabellennamen einfügen For Each wks2 In ThisWorkbook.Worksheets If wks2.Name <> "Jahr_Soll" Then 'jede Zelle ab Zeile 103 in Spalte 2 (B) wird auf das Datum in AN2 der anderen Tabelle untersucht For Each zelle In .Range(.Cells(103, 2), .Cells(.UsedRange.Row + .UsedRange.Rows.Count, 1)) 'Anpassungen zum Abfangen von Leeren Datumszellen If Not IsEmpty(zelle) Then If zelle.Value = wks2.Range("AN2").Value Then 'in die entsprechende Zeile mit dem Datum wird in Spalte AS der Name der Tabelle eingetragen aus der das Datum stammt .Cells(zelle.Row, "AS").Value = wks2.Name Exit For End If End If 'Ende Anpassungen mfg Franz

Sub Übertrag_sichern() ' Übertrag_sichern Makro ' Tabellennamen werden in Spalte AL von Jahr_Soll eingetragen Dim wks1 As Worksheet, wks2 As Worksheet, zelle As Range Set wks1 = ThisWorkbook.Sheets("Jahr_Soll") With wks1 'Einträge ab Zeile 103 in Spalte 45 (AS) (Tabellennamen) löschen .Range(.Cells(103, 45), .Cells(.UsedRange.Row + .UsedRange.Rows.Count, 45)).ClearContents 'Tabellenblätter nach Datum vergleichen und Tabellennamen einfügen For Each wks2 In ThisWorkbook.Worksheets If wks2.Name <> "Jahr_Soll" Then 'jede Zelle ab Zeile 103 in Spalte 2 (B) wird auf das Datum in AN2 der anderen Tabelle untersucht For Each zelle In .Range(.Cells(103, 2), .Cells(.UsedRange.Row + .UsedRange.Rows.Count, 1)) 'Abfangen von leeren Datumszellen If Not IsEmpty(zelle) Then If zelle.Value = wks2.Range("AN2").Value Then 'in die entsprechende Zeile mit dem Datum wird in Spalte AS der Name der Tabelle eingetragen aus der das datum stammt .Cells(zelle.Row, "AS").Value = wks2.Name Exit For End If End If Zeile = zelle.Row Next zelle If Zeile = .UsedRange.Row + .UsedRange.Rows.Count Then MsgBox ("Datum in Jahr_Soll " & wks2.Name & " ist in Jahr_Soll nicht vorhanden!") End If End If Next wks2 End With MsgBox ("Jahr_Soll wurde aktualisiert") End Sub

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Excel.Range) If Sh.Name <> "Jahr_Soll" Then If Target.Address = "$B$2" Then Call Übertrag_sichern End If End If End Sub Private Sub Workbook_SheetDeactivate(ByVal Sh As Object) If Sh.Name <> "Jahr_Soll" Then Call Übertrag_sichern End If End Sub Sub Übertrag_sichern() ' Übertrag_sichern Makro ' Tabellennamen werden in Spalte AL von Jahr_Soll eingetragen Dim wks1 As Worksheet, wks2 As Worksheet, zelle As Range, Leer As Boolean Set wks1 = ThisWorkbook.Sheets("Jahr_Soll") With wks1 'Einträge ab Zeile 103 in Spalte 45 (AS) (Tabellennamen) löschen .Range(.Cells(103, 45), .Cells(.UsedRange.Row + .UsedRange.Rows.Count, 45)).ClearContents 'Tabellenblätter nach Datum vergleichen und Tabellennamen einfügen For Each wks2 In ThisWorkbook.Worksheets Leer = False If wks2.Name <> "Jahr_Soll" Then 'jede Zelle ab Zeile 103 in Spalte 2 (B) wird auf das Datum in AN2 der anderen Tabelle untersucht For Each zelle In .Range(.Cells(103, 2), .Cells(.UsedRange.Row + .UsedRange.Rows.Count, 1)) 'Abfangen von leeren Datumszellen If Not IsEmpty(zelle) Then If zelle.Value = wks2.Range("AN2").Value Then 'in die entsprechende Zeile mit dem Datum wird in Spalte AS der Name der Tabelle eingetragen aus der das datum stammt .Cells(zelle.Row, "AS").Value = wks2.Name Exit For End If Else Leer = True End If Zeile = zelle.Row Next zelle If Zeile = .UsedRange.Row + .UsedRange.Rows.Count And Leer = False Then MsgBox ("Datum in Jahr_Soll " & wks2.Name & " ist in Jahr_Soll nicht vorhanden!") End If End If Next wks2 End With MsgBox ("Jahr_Soll wurde aktualisiert") End Sub

Beliebteste Forumthreads (12 Monate)

17 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

17
Beiträge zum Forumthread

Beiträge zu diesem Forumthread