Hallo zusammen
Ich habe nachfolgende Herausforderung und würde mich freuen, wenn mir jemand zur Lösung verhelfen könnte.
Problemstellung:
Wir führen eine sogenannte Protokollmappe. Wobei für jede Kalenderwoche ein separates Tabellenblatt (Register) geführt wird.
Innerhalb der Tabellenblätter sind folgende Informationen für die Beschlussübersicht wichtig.
Projektkürze (ab Spalte A5) Verantwortlicher (ab Spalte D5) Beschluss ab Spalte (E5) und Timeline (ab Spalte F5) --> ab gleich beginnend mit erstem Eintrag
Nun soll in einem Tabellenblatt (Register) eine Übersicht der aus den Kalenderwochen resultierenden Beschlüsse erfolgen. Wobei die folgenden Informationen aufzuführen sind: Projektkürzel (ab Spalte A5), Beschluss (ab Spalte B5), Verantwortlicher (ab Spalte C5) und Timline (ab Spalte D5)
Hinweis: In den Kalenderprotokollen werden verschiedene Informationen geführt. Das heisst die Kopie eines Eintrages in die Übersicht hat nur zu erfolgen wenn ein Eintrag in einem der vorgesehenen Felder steht Projektkürze (ab Spalte A5) Verantwortlicher (ab Spalte D5) Beschluss ab Spalte (E5) und Timeline (ab Spalte F5).
Habe etwas versucht doch es wird ein Fehler beim Kompilieren ausgegeben:
Sub Kopieren()
Dim Variable As String
Variable = (A1)
With Tabellen(Variable).UsedRange
.AutoFilter Field:=7, Criterial:="ja"
.Offset(1, 0).SpecialCells(x1CellTypeVisible).Copy
End With
Sheets("Tabelle1").Cells(Rows.Count, 1).End(x1Up).Offset(1, 0).PastSpezial x1PastValues
Sheets(Variable).UsedRange.AutoFilter
End Sub
Muss ich das über Userform machen?
Besten Dank für eure fachmännische Unterstützung.
Mit lieben Grüssen und ein schönes Wochenende.
Newcomer
|