Daten mit Doppelklick übertragen

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

@ Niclaus
Das ist schon mal super, echt! Du hast ganz recht mit dem Doppelklick, eigentlich meinte ich auch das, war nur irgendwie plötzlich beim Klick. Die Einfärbung finde ich eine gute Idee. Ich merke aber, dass man sehr schnell auch einen falschen Doppelklick macht, vielleicht sollte man noch eine Warnfenster einbauen wo man bestätigen muss mit Ok damit die Hürde zum falsch Doppelklicken noch höher wird.
Wenn der Arbeiter drum falsch angeklickt wurde ist der Aufwand das ganze rückgängig zu machen etwas mühsam.
Dein Programmiercode muss ich noch etwas verdauen um ihn für mein Projekt zu gebrauchen :-).
Nun habe ich noch eine andere Herausforderung wo ich nicht ganz den Durchblick habe. Es kann vorkommen, dass ein Mitarbeiter mehrmals eine Schulung in der gleichen Abteilung hat und dieses sollte irgendwie sichtbar sein. Ist es möglich aus einer Zelle ein Listenfeld zu erzeugen oder was gibt es da für eine Lösung. Es kann z.B. auch eine neue Spalte eingefügt werden die die Anzahl Schulungen pro Abteilungen zählt (pro Mitarbeiter). Die verschiedenen Daten der Schulung sind nicht ganz so wichtig, einfach die Anzahl. Es geht darum, das nicht immer der gleiche Mitarbeiter in der gleichen Abteilung schult.
Ich hoffe das meine Auslegung verständlich ist.
Besten Dank schon einmal für die prompte Hilfe.

Grüezi Kurt
wenn eine geplante Schulung abgesagt wird. In diesem Fall sollte man irgendwie den ganzen Datensatz löschen können und die Anzahl zurückstellen.

Wie Du vorschlägst, habe ich es so gelöst: In der Tabelle "Planung" (nicht "Übersicht"!) bewirkt ein Doppelklick in Spalte F folgendes: In Spalte F und in Spalte D wird "abgesagt" eingetragen. Beides ist nötig! In der Tabelle "Übersicht" wird der Datensatz mit der nächst tieferen Zahl (der nicht abgesagt) ist, eingetragen. Wenn kein nächst tieferer Datensatz vorhanden ist, gibt es in "Übersicht" keinen Eintrag mehr.
In "Planung" wird der abgesagte Datensatz nicht gelöscht! Ein Zeile löschen kann zu Problemen führen s. u.
Die Absage einer Schulung kann nicht rückgängig gemacht werden. Es muss in Übersicht eine neue Schulung erfasst werden.
Noch folgendes: "Unsachgemässes" Vorgehen kann dazu führen, dass die Ereignisprozeduren der beiden Tabellen nicht mehr funktionieren. Man muss dann die Datei und das ganze Excel-Programm schliessen. Nach einem Neustart sollte alles wieder funktionieren. Die folgenden Befehle helfen bei diesem Problem nicht in jedem Fall! Ich suche seit langem nach einer Lösung.

Application.EnableEvents = False bzw. True
Cancel = True
On Error GoTo

Unsachgemäss kann z. B. sein, wenn in "Planung" in Spalte F mehrere Zellen markiert werden, um eine Aktion durchzuführen: z. B. löschen der Inhalte der markierten Zellen oder löschen einer ganzen Zeile. Oder wenn man in Spalte F in einer leeren Zeile doppelklickt. - Dieses letzte Problem könnte man ganz einfach lösen. Willst Du es versuchen?
Das ganze ist sehr "primitiv" entwickelt. Einem Profi werden dabei die Haare zu Berge stehen. Aber ich hoffe, damit bist Du wieder einen Schritt weiter. Grüsse Niclaus
https://www.herber.de/bbs/user/122828.xlsm

Private Sub Worksheet_Change(ByVal Target As Range) Dim ws3 As Worksheet Dim aPlanung() Dim lZeile As Long Dim lSpalte As Long Set ws3 = Worksheets("Tabelle3") 'Ev. Anpassen ws3.UsedRange.Clear ReDim aPlanung(1 To 4, 1 To 1) aPlanung(3, 1) = "Abteilung" aPlanung(4, 1) = "Datum der Schulung" For lZeile = 4 To Cells(Rows.Count, 2).End(xlUp).Row For lSpalte = 3 To Cells(3, Columns.Count).End(xlToLeft).Column If Cells(lZeile, lSpalte) "" Then ReDim Preserve aPlanung(1 To 4, 1 To UBound(aPlanung, 2) + 1) aPlanung(1, UBound(aPlanung, 2)) = Cells(lZeile, 1) aPlanung(2, UBound(aPlanung, 2)) = Cells(lZeile, 2) aPlanung(3, UBound(aPlanung, 2)) = Cells(3, lSpalte) aPlanung(4, UBound(aPlanung, 2)) = Cells(lZeile, lSpalte) End If Next lSpalte Next lZeile With ws3 .Range(.Cells(2, 2), _ .Cells(2 + UBound(aPlanung, 2) - 1, 2 + UBound(aPlanung, 1) - 1)) _ = Application.WorksheetFunction.Transpose(aPlanung) End With End Sub

Beliebteste Forumthreads (12 Monate)

Daten mit Doppelklick übertragen

11 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

11
Beiträge zum Forumthread

Beiträge zu diesem Forumthread