Live-Forum - Die aktuellen Beiträge
Datum
Titel
17.04.2024 18:57:33
17.04.2024 16:56:58
Anzeige
Archiv - Navigation
1920to1924
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

VBA in allen Tabellenblätter

VBA in allen Tabellenblätter
08.03.2023 08:58:22
Jan
Guten Morgen,
ich habe diesen Code und möchte das er in ALLE Tabellenblätter "greift". Ich habe ihn in Arbeitsmappe getan aber leider geht es nicht:
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Target.Column = 1 Then
Target = Environ("Username")
Target.Offset(0, 1) = Date
Cancel = True
End If
End Sub

Wie müsste ich das machen ? Danke
Mfg Jan

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: VBA in allen Tabellenblätter
08.03.2023 09:00:21
Pierre
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Dim ws as Worksheet
For Each ws in ThisWorkbook.Worksheets
If Target.Column = 1 Then
Target = Environ("Username")
Target.Offset(0, 1) = Date
Cancel = True
End If
Next ws
End Sub

AW: VBA in allen Tabellenblätter
08.03.2023 09:08:25
hary
Moin
In "DieseArbeitsmappe" nicht unter die Tabellen.
Private Sub Workbook_SheetBeforeDoubleClick(ByVal Sh As Object, ByVal Target As Range, Cancel As Boolean)
If Target.Column = 1 Then
  Target = Environ("Username")
  Target.Offset(0, 1) = Date
  Cancel = True
End If
End Sub
gruss hary
Anzeige

308 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige