Auswahltabelle erstellen

Hallo zusammen,
ich habe eine Excel Tabelle mit mehreren Tabellenblättern. Auf diesen Tabellenblättern befinden sich Schulungsübersichten zu unterschiedlichen Schulungen. Ich möchte nun über das erste Tabellenblatt die ganze Tabelle steuern. D.h. in Spalte A des ersten Tabellenblatts stehen die Namen von Mitarbeitern. Diese Namen werden monatlich um neue Mitarbeiter ergänzt.
In den Spalten bzw. Zellen B1 bis X1 stehen die Schulungsthemen zu denen es ein jeweils eigenes Tabellenblatt, das so benannt ist wie das Schulungsthema selbst, gibt.
Nun möchte ich in dem Bereich ab B2 bis X (da wo der letzte Name in Spalte A steht z.B. ist spalte A mit Namen von A2 bis A6 gefüllt, dann soll der Bereich von B2 bis X6 gehen) unter den verschiedenen Schulungsthemen ein x in die Zelle setzen. Dieses soll dann bewirken, dass der zugehörige Name aus Spalte A in den jeweiligen Tabellenblättern der Schulungen in die Spalte B unter den letzten dort befindlichen Namen geschrieben wird.
Ist das in Excel überhaupt möglich? Für eure Hilfe wäre ich sehr dankbar :-)
Torsten

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Private Sub Worksheet_Change(ByVal Target As Range) If Target.Column > 2 Then If Cells(Target.Row, 1) "" Then If Target = "x" Then With Sheets(Cells(1, Target.Column).Value) .Cells(Rows.Count, 1).End(xlUp).Offset(1) = Cells(Target.Row, 1) End With End If End If End If End Sub

Hallo Rudi,
erst einmal vielen Dank für deine Antwort.
Leider funktioniert deine Lösung bei mir nicht.
Nun weiß ich nicht, ob ich beim hineinkopieren einen Fehler mache, daher hier kurz der Ablauf wie ich es hineinkopiert habe.
Rechter Mausklick auf Bezeichnung Tabellenblatt 1 (Steuerung),Auswahl Code anzeigen, einkopieren deines Makros, speichern als .xlsm Datei, zur Excel Ansicht wechseln.
Dann schreibe ich ein x in die Zelle B2 des ersten Tabellenblattes (Steuerung) aber im zweiten Tabellenblatt (ERL Abfertigung und Disposition) erscheint in der Zelle A2 nicht der Name aus der der Zelle B2. Hänge meine Ursprungsdatei noch einmal als .xlsx an.
https://www.herber.de/bbs/user/104011.xlsx

Private Sub Worksheet_Change(ByVal Target As Range) If Target.Column > 1 And Target.Row > 1 Then If Cells(Target.Row, 1) "" Then If Target = "x" Then With Sheets(Cells(1, Target.Column).Value) .Cells(Rows.Count, 1).End(xlUp).Offset(1) = Cells(Target.Row, 1) End With End If End If End If End Sub

Beliebteste Forumthreads (12 Monate)

4
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

303 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Auswahltabelle erstellen

4 Beiträge zum Forumthread Beiträge zu diesem Forumthread

303 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

4
Beiträge zum Forumthread

Beiträge zu diesem Forumthread