AW: Anforderung
14.09.2022 13:29:28
Tobias
Hallo MCO,
das funktioniert super - Dankeschön :-).
Private Sub Worksheet_Change(ByVal Target As Range)
Dim gefunden As Range
Dim lz As Long
Dim komm_sh As Worksheet
Dim komm_sh2 As Worksheet
Set komm_sh = Sheets("Kommentare")
Set komm_sh2 = Sheets("Kommentare2")
'Wird im Blatt "Übersicht" ein Kommentar eingegeben, so wird dieser in das Blatt "Kommentare" geschrieben. Updates der Kommentare sind berücksichtigt.
If Target.Column = 14 And Target.Row >= 13 Then
If Cells(Target.Row, "D") = "" Then MsgBox "Die eindeutige Nummer fehlt", vbCritical + vbOKOnly, "Abbruch": Cells(Target.Row, "D").Select: Exit Sub
Set gefunden = komm_sh.Range("A:A").Find(Cells(Target.Row, "D"), lookat:=xlWhole) 'erst Kommentar finden
If Not gefunden Is Nothing Then komm_sh.Rows(gefunden.Row).Delete '+ ggf. löschen
If Target.Value "" Then
lz = komm_sh.Cells(Rows.Count, 1).End(xlUp).Row + 1 'letzte Zeile ermitteln
Cells(Target.Row, "D").Copy komm_sh.Cells(lz, 1) 'ID-Nummer neu schreiben
Target.Copy komm_sh.Cells(lz, 2) 'Kommentar neu schreiben
End If
End If
If Target.Column = 15 And Target.Row >= 13 Then
If Cells(Target.Row, "D") = "" Then MsgBox "Die eindeutige Nummer fehlt", vbCritical + vbOKOnly, "Abbruch": Cells(Target.Row, "D").Select: Exit Sub
Set gefunden = komm_sh2.Range("A:A").Find(Cells(Target.Row, "D"), lookat:=xlWhole) 'erst Kommentar finden
If Not gefunden Is Nothing Then komm_sh2.Rows(gefunden.Row).Delete '+ ggf. löschen
If Target.Value "" Then
lz = komm_sh2.Cells(Rows.Count, 1).End(xlUp).Row + 1 'letzte Zeile ermitteln
Cells(Target.Row, "D").Copy komm_sh2.Cells(lz, 1) 'ID-Nummer neu schreiben
Target.Copy komm_sh2.Cells(lz, 2) 'Kommentar neu schreiben
End If
End If
Jetzt hab ich nur noch eine Erweiterung und das klappt noch nicht ganz. Erweiterung:
Ich habe nun noch eine zweite Kommentarspalte (Kommentarspalte 1 = "N", Kommentarspalte 2 = "O") eingefügt. Wenn ich nun in einer Zeile beide Kommentarspalten markiere und mit ENTF den Inhalt lösche, kommt wieder de Fehlermeldung "Laufzeitfehler 13 - Typen unverträglich". Danach sind die zwei Zellen zwar leer, ab in den beiden Kommentarblättern "Kommentare" und "Kommentare2" sind die Eingabe nach wie vor enthalten? Generell kann es auch sein, dass der Nutzer im DropDown seinen Namen auswählt und mehrere Kommentare gleichzeitig löscht. Das wäre somit Zeilenübergreifend.
Für eine letzte Hilfe wäre ich dir sehr Dankbar.
Gruß
Tobias