Hallo zusammen, ich habe folgenden Code, der mich auffordert, auf eine Zelle des aktiven Tabellenblattes zu klicken, deren ganze Zeile dann gelöscht wird.
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
Visual Basic-Quellcode
- Sub löschen()
- Dim Vorname As String
- Dim Nachname As String
- Dim Eingabe As Range
- Dim i As Integer
- On Error Resume Next
- Set Eingabe = Application.InputBox("Bitte markiere den entsprechenden Mitarbeiter, der gelöscht werden soll.", _
- Type:=8)
- If Eingabe Is Nothing Then MsgBox "Kein Mitarbeiter ausgewählt."
- On Error GoTo 0
- Eingabe.Select
- If MsgBox("Soll der Eintrag zu " & Range("D" & ActiveCell.Row) & " " & Range("B" & ActiveCell.Row) & " " & Nachname & "wirklich gelöscht werden?", vbYesNo) = vbYes Then
- MsgBox (Range("D" & ActiveCell.Row) & " " & Range("B" & ActiveCell.Row) & " wurde gelöscht")
- Selection.EntireRow.Delete
- Range("B2").Select
- Else
- MsgBox "Es wurde kein Eintrag gelöscht"
- End If
- 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“ ()