Funktioniert einwandfrei. Genau das habe ich gesucht.
Vielen Dank.
Der Benützer bearbeitet mehrere Tabellen mit demselben Aufbau und er sollte die Möglichkeit haben, weitere Tabellen selbstständig hinzuzufügen. Ich möchte nur vermeiden, dass der Code bei jeder Tabelle mitgeschleppt wird.
Habe noch eine Schalftfläche in Tabelle:
Private Sub Leeren_Click()
Beep
i = MsgBox("Wollen Sie die Bestellung löschen?", vbYesNo)
If i = vbNo Then Exit Sub Else
Range("B5:G17").Select
Selection.ClearContents
Range("E5").Select
End Sub
Gibt es auch hier eine Möglichkeit, den Code übergeordnet anzuordnen, sodass der Code nur eineinmalig geschrieben ist, aber für alle Tabellen gilt?
|