VBA: Daten aus Quellblatt in Zielspalte in Zielblatt eintragen

[Rabe]

Hi,

in meiner alten Anfrage von vorgestern werden Bilanz-Daten in das Blatt "Datenübernahme Bilanz" aus der geschlossenen Datei "2022.xls" (siehe D13) rausgeholt.

Nun sollen diese Daten im Arbeitsblatt "Aktiva" per VBA in die entsprechende Jahresspalte eingefügt werden. Wie kann die Ziel-Spalte gefunden werden? Spalte E bis Q sind die Vorjahre.

Arbeitsblatt mit dem Namen 'Datenübernahme Bilanz'
	A	B	C	D	E	F	G
11
12		Pfad:		C:\temp\
13		Datei:		2022.xls
14		Blatt		Bilanz (1)
15		Spalte:
16
17	Aktiva
18					Bereich	3.560.000,00 €
19	A.	Anlagevermögen				3.560.000,00 €
20		A.I.	Immaterielle Vermögensgegenstände			280.000,00 €
21			A.I.1.	Selbst geschaffene gewerbliche Schutzrechte und ähnliche Rechte und Werte	2005	150.000,00 €
22			A.I.2.	entgeltlich erworbene Konzessionen, gewerbliche Schutzrechte und ähnliche Rechte und Werte sowie Lizenzen an solchen Rechten und Werten	2006	20.000,00 €
23			A.I.3.	Geschäfts- oder Firmenwert	2007	10.000,00 €
24			A.I.4	geleistete Anzahlungen	2012	100.000,00 €
25		A.II.	Sachanlagen			3.280.000,00 €
26			A.II.1.	Grundstück, grundstücksgleiche Rechte und Bauten einschließlich der Bauten auf fremden Grundstücken	2009	3.280.000,00 €
27

Zelle	Formel
F18	=F19+F37+F52+F53+F54
F19	=F20+F25+F30
F20	=SUMME(F21:F24)
F21	=XVERWEIS(E21;'C:\temp\[2022.xlsb]Bilanz (1)'!$C$15:$C$28;'C:\temp\[2022.xlsb]Bilanz (1)'!$E$15:$E$28;0)
F22	=XVERWEIS(E22;'C:\temp\[2022.xlsb]Bilanz (1)'!$C$15:$C$28;'C:\temp\[2022.xlsb]Bilanz (1)'!$E$15:$E$28;0)
F23	=XVERWEIS(E23;'C:\temp\[2022.xlsb]Bilanz (1)'!$C$15:$C$28;'C:\temp\[2022.xlsb]Bilanz (1)'!$E$15:$E$28;0)
F24	=XVERWEIS(E24;'C:\temp\[2022.xlsb]Bilanz (1)'!$C$15:$C$28;'C:\temp\[2022.xlsb]Bilanz (1)'!$E$15:$E$28;0)
F25	=SUMME(F26:F29)

Verwendete Systemkomponenten: [Windows (32-bit) NT 10.00] MS Excel 2016

Diese Tabelle wurde mit Tab2Html (v2.6.0) erstellt. ©Gerd alias Bamberg

Arbeitsblatt mit dem Namen 'Aktiva'
	A	B	C	D	P	Q	R	S	T	U	V
1					2021	2022	2023	2024	2025	2026	2027
2
3	Aktiva:			Bilanzsumme (Gesamtvermögen)	0,00 €	3.560.000,00 €	0,00 €	0,00 €	0,00 €	0,00 €	0,00 €
4
5	A.	Anlagevermögen			0,00 €	3.560.000,00 €	0,00 €	0,00 €	0,00 €	0,00 €	0,00 €
6		A.I.	Immaterielle Vermögensgegenstände		0,00 €	280.000,00 €	0,00 €	0,00 €	0,00 €	0,00 €	0,00 €
7			A.I.1.	Selbst geschaffene gewerbliche Schutzrechte und ähnliche Rechte und Werte		150.000,00 €	0,00 €	0,00 €	0,00 €	0,00 €	0,00 €
8			A.I.2.	entgeltlich erworbene Konzessionen, gewerbliche Schutzrechte und ähnliche Rechte und Werte sowie Lizenzen an solchen Rechten und Werten		20.000,00 €	0,00 €	0,00 €	0,00 €	0,00 €	0,00 €
9			A.I.3.	Geschäfts- oder Firmenwert		10.000,00 €	0,00 €	0,00 €	0,00 €	0,00 €	0,00 €
10			A.I.4	geleistete Anzahlungen		100.000,00 €	0,00 €	0,00 €	0,00 €	0,00 €	0,00 €
11		A.II.	Sachanlagen		0,00 €	3.280.000,00 €	0,00 €	0,00 €	0,00 €	0,00 €	0,00 €
12			A.II.1.	Grundstück, grundstücksgleiche Rechte und Bauten einschließlich der Bauten auf fremden Grundstücken		3.280.000,00 €	0,00 €	0,00 €	0,00 €	0,00 €	0,00 €
13

Zelle	Formel
Q3	=SUMME(Q5;)
Q5	=Q6+Q11
Q6	=SUMME(Q7:Q10)
Q11	=SUMME(Q12:Q12)

Verwendete Systemkomponenten: [Windows (32-bit) NT 10.00] MS Excel 2016

Diese Tabelle wurde mit Tab2Html (v2.6.0) erstellt. ©Gerd alias Bamberg

  Bilanz Test.xlsb (Größe: 14,54 KB / Downloads: 1)

[Rabe]

habe es geschafft:

Arbeitsblatt mit dem Namen 'Datenübernahme Bilanz'
	A	B	C	D	E	F
12		Pfad:		C:\temp\
13		Datei:		2022.xls	2022
14		Blatt		Bilanz (1)
15		Spalte:
16
17	Aktiva
18					Bereich	3.560.000,00 €
19	A.	Anlagevermögen				3.560.000,00 €
20		A.I.	Immaterielle Vermögensgegenstände			280.000,00 €
21			A.I.1.	Selbst geschaffene gewerbliche Schutzrechte und ähnliche Rechte und Werte	2005	150.000,00 €
22			A.I.2.	entgeltlich erworbene Konzessionen, gewerbliche Schutzrechte und ähnliche Rechte und Werte sowie Lizenzen an solchen Rechten und Werten	2006	20.000,00 €
23			A.I.3.	Geschäfts- oder Firmenwert	2007	10.000,00 €
24			A.I.4	geleistete Anzahlungen	2012	100.000,00 €
25		A.II.	Sachanlagen			3.280.000,00 €
26			A.II.1.	Grundstück, grundstücksgleiche Rechte und Bauten einschließlich der Bauten auf fremden Grundstücken	2009	3.280.000,00 €

Zelle	Formel
E13	=LINKS(D13;4)*1
F18	=F19+F37+F52+F53+F54
F19	=F20+F25+F30
F20	=SUMME(F21:F24)
F21	=XVERWEIS(E21;'C:\temp\[2022.xlsb]Bilanz (1)'!$C$15:$C$28;'C:\temp\[2022.xlsb]Bilanz (1)'!$E$15:$E$28;0)
F22	=XVERWEIS(E22;'C:\temp\[2022.xlsb]Bilanz (1)'!$C$15:$C$28;'C:\temp\[2022.xlsb]Bilanz (1)'!$E$15:$E$28;0)
F23	=XVERWEIS(E23;'C:\temp\[2022.xlsb]Bilanz (1)'!$C$15:$C$28;'C:\temp\[2022.xlsb]Bilanz (1)'!$E$15:$E$28;0)
F24	=XVERWEIS(E24;'C:\temp\[2022.xlsb]Bilanz (1)'!$C$15:$C$28;'C:\temp\[2022.xlsb]Bilanz (1)'!$E$15:$E$28;0)
F25	=SUMME(F26:F29)
F26	=XVERWEIS(E26;'C:\temp\[2022.xlsb]Bilanz (1)'!$C$15:$C$28;'C:\temp\[2022.xlsb]Bilanz (1)'!$E$15:$E$28;0)

Verwendete Systemkomponenten: [Windows (32-bit) NT 10.00] MS Excel 2016

Diese Tabelle wurde mit Tab2Html (v2.6.0) erstellt. ©Gerd alias Bamberg

Modul Modul1

Option Explicit 
 
Sub Datenübernahme() 
    Dim wsQuelle As Worksheet 
    Dim wsZiel As Worksheet 
    Dim jahr As Integer 
    Dim jahresspalte As Range 
     
    ' Setze die Arbeitsblätter 
    Set wsQuelle = ThisWorkbook.Sheets("Datenübernahme Bilanz") 
    Set wsZiel = ThisWorkbook.Sheets("Aktiva") 
 
    ' Hole das Jahr aus Zelle E13 
    jahr = wsQuelle.Range("E13").Value 
     
    ' Suche die Jahresspalte in "Aktiva" 
    Set jahresspalte = wsZiel.Rows(1).Find(What:=CStr(jahr), LookIn:=xlValues, LookAt:=xlWhole) 
 
    If Not jahresspalte Is Nothing Then 
        ' Trage die Werte in die gefundene Jahresspalte ein 
        wsZiel.Cells(7, jahresspalte.Column).Value = wsQuelle.Range("F21").Value 
        wsZiel.Cells(8, jahresspalte.Column).Value = wsQuelle.Range("F22").Value 
        wsZiel.Cells(9, jahresspalte.Column).Value = wsQuelle.Range("F23").Value 
        wsZiel.Cells(10, jahresspalte.Column).Value = wsQuelle.Range("F24").Value 
    Else 
        MsgBox "Jahresspalte nicht gefunden" 
    End If 
 
End Sub 

VBA/HTML-CodeConverter, AddIn für Office 2002-2016 - in VBA geschrieben von Lukas Mosimann. Projektbetreuung:RMH Software & Media
Code erstellt und getestet in Office 16 - mit VBAHTML 12.6.0

[schauan]

Moin Ralf,

wenn Deine Jahre einspaltig sind, in einer bestimmten spalte - hier P - mit einem bestimmten Jahr - hier 2021 - beginnen, kannst Du die Spalte einfach berechnen:
= 2021 - 2005 --> = 16 = Spalte(P) bzw. = Suchjahr - 2005
(Subtrahend = Jahr in P - Spalte() = 2021 - 16 = 2005))

[derHoepp]

Hallo und guten Morgen auch von mir,

ich hatte mal eine ähnliche Konstellation, bei der VBA wegen der Makrorichtlinien ausgeschieden ist. Ich habe einfach in einem zweiten Blatt die Formeln mit Hilfe von Verkettungen zusammengesetzt und anschließend händisch kopiert und als Werte auf das richtige Blatt eingefügt. Dann steht der Formeltext in den richtigen Zellen und Excel muss nur noch dazu gebracht werden, die Zellen einmal neu zu interpretieren (z.B. durch Suchen und ersetzen von Gleichheitszeichen durch Gleichheitszeichen)

Vielleicht ist das ja auch eine Alternative für dich.

Viele Grüße
derHöpp.