einzelne Tabellen von Übersichtstabelle generieren

23/08/2008 - 09:23 von Martin Hemeler | Report spam
Hallo, ich habe folgende Tabelle:


Name | Vorname| Schulung1 | Schulung 2 | Schulung

Max | Muster | x | |
Marie | Meier | | x |


Also eine Übersicht wer welche Schulungen gebucht hat. Nun möchte ich für
jede einzelne Schulung eine Teilnehmerliste generieren, welche Formel kann
ich dazu anwenden?

Danke für die tipps
 

Lesen sie die antworten

#1 Peter Schleif
23/08/2008 - 10:35 | Warnen spam
Martin Hemeler schrieb am 23.08.2008 09:23 Uhr:

Name | Vorname| Schulung1 | Schulung 2 | Schulung
Max | Muster | x | |
Marie | Meier | | x |

Also eine Übersicht wer welche Schulungen gebucht hat. Nun möchte ich für
jede einzelne Schulung eine Teilnehmerliste generieren, welche Formel kann
ich dazu anwenden?



Die Übersichtstabelle heißt "Übersicht" - siehe unten. Der Code
erzeugt für jede Schulung eine neue Tabelle mit den Teilnehmern.

Peter

Sub schulungen()
Dim zelle As Range
Dim sh As Worksheet

With Sheets("Übersicht")
For Each zelle In Range(.[C1], .[C1].End(xlToRight))
Application.DisplayAlerts = False
For Each sh In Worksheets
If sh.Name = zelle Then sh.Delete
Next
Application.DisplayAlerts = True
Sheets.Add After:=Sheets(Sheets.Count)
Sheets(Sheets.Count).Name = zelle

.AutoFilterMode = False
zelle.EntireColumn.AutoFilter 1, "x"
.[A:B].Copy Sheets(zelle.Value).[A:B]
.AutoFilterMode = False
Next
.Select
End With
End Sub


Tabelle Übersicht
+--++++++
| | A | B | C | D | E |
+--++++++
| 1 | Name | Vorname | Schulung 1 | Schulung 2 | Schulung 3 |
+--++++++
| 2 | Max | Muster | x | | |
+--++++++
| 3 | Marie | Meier | | x | |
+--++++++
| 4 | Test | Test | x | | |
+--++++++
| 5 | Schleif | Peter | x | x | x |
+--++++++

Ähnliche fragen