EXCEL / EINZELNE ZELLENWERTE EINBLENDEN LASSEN

Das geht, aber nur wenn man das gesamte Blatt verdoppelt. In der 1ten trägt man von hand die Initialen ein, in der 2ten trägt man in z.B. A1 die Initiale ein und macht dann in die Datenzelle B3 die Formel

=WENN(Tabelle1!B3 = $A$1;$A$1;"")

Runter und nach rechts ziehen bis alles ausgefüllt ist. Dann musst man trotzdem das ganze nochmals duplizieren und (wie ich schon sagte) via Copy / Werte einfügen die Formeln eleminieren. Das läßt sich dann verschicken.

Andreas.

In Spalte A befindet sich eben keine Mitarbeiterangaben. Da sind nur die Tätigkeiten, welche ein Mitarbeiter ausführen kann.

Uups, war ich zu voreilig.

Ja aber dann... ist das mit dem Reduzieren ja generell gar nicht möglich, denn ein Mitarbeiter kann ja theoretisch z.B. in einer "Diagonalen" eingetragen sein, sprich es gibt überlappende Zeilen/Spalten!?

Also müsste man die Daten extrapolieren, d.h. nach allen Zellen mit den Initialen suchen, dann aus Spalte A die Tätigkeit und aus Zeile 2 das Datum holen und als Liste exportieren... Code unten in ein reguläres Modul kopieren, laufen lassen.

Wie sieht es aus?

Andreas.

Option Explicit

Sub Test()

Dim ID

Dim All As Range, R As Range

Dim C As New Collection

Dim Data, Item, i As Long

Dim Ws As Worksheet



ID = "zv"



Set All = FindAll(Cells, ID)

If All Is Nothing Then

MsgBox ID & " nicht gefunden"

Exit Sub

End If

For Each R In All

C.Add Array(Range("A" & R.Row), Cells(2, R.Column))

Next

ReDim Data(1 To C.Count, 1 To 2)

For Each Item In C

i = i + 1

Data(i, 1) = Item(0)

Data(i, 2) = Item(1)

Next

Set Ws = Sheets.Add

Ws.Range("A1").Resize(UBound(Data), UBound(Data, 2)).Value = Data

End Sub

Function FindAll(ByVal Where As Range, ByVal What, _

Optional ByVal After As Variant, _

Optional ByVal LookIn As XlFindLookIn = xlValues, _

Optional ByVal LookAt As XlLookAt = xlWhole, _

Optional ByVal SearchOrder As XlSearchOrder = xlByRows, _

Optional ByVal SearchDirection As XlSearchDirection = xlNext, _

Optional ByVal MatchCase As Boolean = False, _

Optional ByVal SearchFormat As Boolean = False) As Range

'Find all occurrences of What in Where (Windows version)

Dim FirstAddress As String

Dim C As Range

'From FastUnion:

Dim Stack As New Collection

Dim Temp() As Range, Item

Dim i As Long, j As Long

If Where Is Nothing Then Exit Function

If SearchDirection = xlNext And IsMissing(After) Then

'Set After to the last cell in Where to return the first cell in Where in front if _

it match What

Set C = Where.Areas(Where.Areas.Count)

'BUG in XL2010: Cells.Count produces a RTE 6 if C is the whole sheet

'Set After = C.Cells(C.Cells.Count)

Set After = C.Cells(C.Rows.Count * CDec(C.Columns.Count))

End If

Set C = Where.Find(What, After, LookIn, LookAt, SearchOrder, _

SearchDirection, MatchCase, SearchFormat:=SearchFormat)

If C Is Nothing Then Exit Function

FirstAddress = C.Address

Do

Stack.Add C

If SearchFormat Then

'If you call this function from an UDF and _

you find only the first cell use this instead

Set C = Where.Find(What, C, LookIn, LookAt, SearchOrder, _

SearchDirection, MatchCase, SearchFormat:=SearchFormat)

Else

If SearchDirection = xlNext Then

Set C = Where.FindNext(C)

Else

Set C = Where.FindPrevious(C)

End If

End If

'Can happen if we have merged cells

If C Is Nothing Then Exit Do

Loop Until FirstAddress = C.Address

'FastUnion algorithm © , 2011:

'Get all cells as fragments

ReDim Temp(0 To Stack.Count - 1)

i = 0

For Each Item In Stack

Set Temp(i) = Item

i = i + 1

Next

'Combine each fragment with the next one

j = 1

Do

For i = 0 To UBound(Temp) - j Step j * 2

Set Temp(i) = Union(Temp(i), Temp(i + j))

Next

j = j * 2

Loop Until j > UBound(Temp)

'At this point we have all cells in the first fragment

Set FindAll = Temp(0)

End Function

Ja genau - so ist es.

Eigentlich möchte ich die Tablle fixieren - Spalte A und zeile 1 und 2.....

denn Rest sollte für mich ausfüllbar sein - und nach belieben die Ansicht auf einen Zellenwert (ein Mitarbeiter / Initialen) reduzieren können - sodass dieser Wert in der Tabelle sichtbar bleibt - und alle anderen Werte verschwinden.

Habe nun mal schon etwas mit einer Wenn-Formel probiert. (auf der rechten Seite (Screenshot - Dropdown)

wenn ; (Zellwert:Mitarbeiter) ; übereinstimmt mit Tabelle ; sonst ;;;

;;;-als Zellformatierung - dann würde jede Zelle/Schrift mit der Hintergrund farbe eingefärbt werden und wäre so unsichtbar. - leider funktioniert dies nicht da die Mitarbeiter auch eigene Hintergrundfarben haben... also nicht alle einen weissen Hintergrund.

Aber auch diese Formel ging ins leere. wahrscheinlich auch ein total falscher Ansatz.

irgendwie sollte es sicher machbar sein - mein Kopf will mir nichts anderes zugeben - Excel stösst hierbei sicher nicht an seine Grenzen - ich jedoch schon

Vielen Dank für deine Antwort.

In Spalte A befindet sich eben keine Mitarbeiterangaben. Da sind nur die Tätigkeiten, welche ein Mitarbeiter ausführen kann.

VOILA !

GENAU SO IST ES !

ACH, ANDREAS DU BIST SUPER !

Jetzt habe ich zwar die Tabelle einmal kopiert, aber das macht ja nichts.

Hab nun Tabelle1 (Original) auf "TOTAL zum bearbeiten" umbenennt.

und eine Kopie erstellt: auf "EINZELN zum ausdrucken" umbenennt.

Das mit Copy / Werte brauch ich wohl nicht mehr zu machen.

VIELEN VIELEN VIELEN DANK