folgendes Problem:
aus mehreren Tabellen 1-12 mit Werten (Euro) und Bezeichnungen (z.B. Einnahme, Ausgabe etc.)
sollen die Werte abhängig von ihrer Bezeichnung in eine andere Tabelle X kopiert werden.
Also:
Tabelle 1 etc.
Ein 154.-
Aus 546.-
Aus 54.-
Ein 86.-
Aus 32.-
Tabelle X
Ein 154.-
Ein 86.-
Ein …
Ein …
Aus 546.-
Aus 54.-
Aus 32.-
Aus …
Mit welcher Formel kann man das machen? Bin leider kein Experte und bisher nicht fündig geworden.
Vielen Dank für die Unterstützung!
aus mehreren Tabellen 1-12 mit Werten (Euro) und Bezeichnungen
(z.B. Einnahme, Ausgabe etc.)
sollen die Werte abhängig von ihrer Bezeichnung in eine andere
Tabelle X kopiert werden.
Mit welcher Formel kann man das machen? Bin leider kein
Experte und bisher nicht fündig geworden.
Wenn man dort einiges kombiniert kann man das vielleicht auch ohne Vba erreichen.
Ansonsten:
Alt+F11, Einfügen–Makro, Code reinkopieren, an den 2 mit Hochkomma markierten Zeilen die Blattnamen anpassen, Editor schliessen.
In Excel, Extras–Makro–Makro–„Zusammen“ markieren, --Ausführen.
(Die zahl 12 spielt keinerlei Rolle, alle in der Klammer stehenden Blattnamen werden in das obendrüberstehende Blatt nacheinander kopiert.)
Gruß
Reinhard
Option Explicit
'
Sub Zusammen()
Dim wsZ As Worksheet, wsQ As Worksheet, Q As Byte, Quellblatt As Variant, Zei As Long
Set wsZ = Worksheets("Tabelle1") 'Name des Zielblattes
Quellblatt = Array("Tabelle2", "Tabelle3") 'hier deine 12 Quellblätternamen
For Q = 0 To UBound(Quellblatt)
Worksheets(Quellblatt(Q)).UsedRange.Columns("A:B").Copy Destination:=wsZ.Cells(Zei + 1, 1)
Zei = wsZ.Cells(Rows.Count, 1).End(xlUp).Row
Next Q
wsZ.Columns("A:B").Sort Key1:=wsZ.Range("A1"), Order1:=xlAscending, Header:=xlNo, \_
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, \_
DataOption1:=xlSortNormal
End Sub
folgendes Problem:
aus mehreren Tabellen 1-12 mit Werten (Euro) und Bezeichnungen
(z.B. Einnahme, Ausgabe etc.)
sollen die Werte abhängig von ihrer Bezeichnung in eine andere
Tabelle X kopiert werden.
Also:
Tabelle 1 etc.
Ein 154.-
Aus 546.-
Aus 54.-
Ein 86.-
Aus 32.-
Tabelle X
Ein 154.-
Ein 86.-
Ein …
Ein …
Aus 546.-
Aus 54.-
Aus 32.-
Aus …
Mit welcher Formel kann man das machen? Bin leider kein
Experte und bisher nicht fündig geworden.
Vielen Dank für die Unterstützung!
Du könntest z.B. den Autofilter benutzen:
Dazu in die Tabelle klicken, über Daten, Filter, Autofilter den Autofilter einschalten.
Dann auf den kleinen Pfeil klicken, benutzerdefiniert wählen, im linken Feld „enthält“ auswählen (nach unten scrollen) und im rechten Feld das Wort „ein“ eintragen (ohne Anführungszeichen), die Auswahl kopieren und an der gewünschten Stelle einfügen.