Löschen der gleichen Zeile in mehreren Tabellenblättern

  • Excel

Es gibt 1 Antwort in diesem Thema. Der letzte Beitrag () ist von robkel.

    Löschen der gleichen Zeile in mehreren Tabellenblättern

    Hallo zusammen, ich habe folgenden Code, der mich auffordert, auf eine Zelle des aktiven Tabellenblattes zu klicken, deren ganze Zeile dann gelöscht wird.

    Visual Basic-Quellcode

    1. Sub löschen()
    2. Dim Vorname As String
    3. Dim Nachname As String
    4. Dim Eingabe As Range
    5. Dim i As Integer
    6. On Error Resume Next
    7. Set Eingabe = Application.InputBox("Bitte markiere den entsprechenden Mitarbeiter, der gelöscht werden soll.", _
    8. Type:=8)
    9. If Eingabe Is Nothing Then MsgBox "Kein Mitarbeiter ausgewählt."
    10. On Error GoTo 0
    11. Eingabe.Select
    12. If MsgBox("Soll der Eintrag zu " & Range("D" & ActiveCell.Row) & " " & Range("B" & ActiveCell.Row) & " " & Nachname & "wirklich gelöscht werden?", vbYesNo) = vbYes Then
    13. MsgBox (Range("D" & ActiveCell.Row) & " " & Range("B" & ActiveCell.Row) & " wurde gelöscht")
    14. Selection.EntireRow.Delete
    15. Range("B2").Select
    16. Else
    17. MsgBox "Es wurde kein Eintrag gelöscht"
    18. End If
    19. End Sub


    Nun möchte ich, dass auch gleich die gleiche Zeile auf zwei anderen Tabellenblättern mitgelöscht werden. Vielleicht könnt ihr mir dazu helfen!?

    CodeTags korrigiert ~VaporiZed

    Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von „VaporiZed“ ()

    Habe es hinbekommen, hier meine Lösung:

    Visual Basic-Quellcode

    1. Sub löschen()
    2. Worksheets("Kennzeichen").Visible = True
    3. Worksheets("Schulungsteilnehmer").Visible = True
    4. Sheets(Array("Mitarbeiterprofil", "Kennzeichen", "Schulungsteilnehmer")).Select
    5. Dim Vorname As String
    6. Dim Nachname As String
    7. Dim Eingabe As Range
    8. Dim i As Integer
    9. On Error Resume Next
    10. Set Eingabe = Application.InputBox("Bitte markiere den entsprechenden Mitarbeiter, der gelöscht werden soll.", _
    11. Type:=8)
    12. If Eingabe Is Nothing Then MsgBox "Kein Mitarbeiter ausgewählt."
    13. On Error GoTo 0
    14. Eingabe.Select
    15. If MsgBox("Soll der Eintrag zu " & Range("D" & ActiveCell.Row) & " " & Range("B" & ActiveCell.Row) & " " & Nachname & "wirklich gelöscht werden?", vbYesNo) = vbYes Then
    16. MsgBox (Range("D" & ActiveCell.Row) & " " & Range("B" & ActiveCell.Row) & " wurde gelöscht")
    17. Sheets("Mitarbeiterprofil").Select
    18. ActiveCell.EntireRow.Select
    19. Selection.Delete
    20. Sheets("Kennzeichen").Select
    21. ActiveCell.EntireRow.Select
    22. Selection.Delete
    23. Sheets("Schulungsteilnehmer").Select
    24. ActiveCell.EntireRow.Select
    25. Selection.Delete
    26. Sheets("Mitarbeiterprofil").Select
    27. Range("B3").Select
    28. Else
    29. MsgBox "Es wurde kein Eintrag gelöscht"
    30. End If
    31. Worksheets("Kennzeichen").Visible = False
    32. Worksheets("Schulungsteilnehmer").Visible = False
    33. End Sub