Ich brauche einen Code wie ich in mehreren Tabellen mit einem klick die Inhalte einer Spalte lösche, wie z.B. D2-200 in Tabelle 1-10
Vielen Dank in voraus.
MfG Viktor
Option Explicit
Sub weg()
Dim x&
For x = 1 To Worksheets.Count
If x
Wobei ich davon ausgehe das es mindestens die Tabellen 1-10 wirklich gibt Private Sub Dein_Buttonname_Click()
Sheets("Tabelle").Range("D2-D200").ClearContents
End Sub
Entweder gibst du dann die Bereiche für jedes Tabellenblatt vor oder baust dir eine Schleife die in jedem Blatt den selben Bereich löscht.