Nochmal: Gleiche Werte in mehreren Tabellenblätter

Hallo Excelexperten,
ich habe eine freigegebene Tabelle mit mehreren Arbeitsblättern Montag - Freitag. In den Arbeitsblättern stehen verschieden Werte. Die Spalte D der Tabelle soll in allen Arbeitsblättern automatisch gleiche Werte haben.
Gibt es eine Möglichkeit immer die selben Werte in Spalte D zu haben, egal in welches Tabellenblatt ich die Einträge mache?
Vielen Dank für die Mühen
Gruß Micha
Von Harald Kapp habe ich gestern folgenden code erhalten.:

Private Sub worksheet_change(ByVal target As Range)
Dim sheet As Worksheet
Dim value As Variant
Dim row As Long
If Intersect(target, Range("D1:D99")) Then
Application.EnableEvents = False
value = target.value
For Each sheet In ActiveWorkbook.Sheets
sheet.Cells(target.row, 4) = value
Next sheet
Application.EnableEvents = True
End If
End Sub

Dieser Code funktioniert super (nochmals Danke Harald), aber nur mit Zahlen nicht mit Text.
Kann mir jemand diesen Code auch "texttauglich" machen?
Harald hat gestern leider nicht mehr geantwortet.
Vieler Grüße und Dank an Alle
Micha

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Benutzer

Private Sub Worksheet_Change(ByVal Target As Range) Dim sheet As Worksheet Dim value Dim row As Long If Not Intersect(Target, Range("D1:D99")) Is Nothing Then Application.EnableEvents = False value = Target.value For Each sheet In ActiveWorkbook.Sheets sheet.Cells(Target.row, 4) = value Next sheet Application.EnableEvents = True End If End Sub

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range) Dim Shit As Worksheet Dim Valu As Variant On Error GoTo Shit_happens Application.EnableEvents = False If Not Intersect(Target, Range("D1:D99")) Is Nothing Then Valu = Target.Value For Each Shit In Me.Worksheets Shit.Cells(Target.Row, 4) = Valu Next End If Shit_happens: Application.EnableEvents = True End Sub

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range) Dim objSheet As Object On Error GoTo errEXIT If Not Intersect(Target.Cells(1, 1), Range("$D$1:$D$99")) Is Nothing Then Application.EnableEvents = False For Each objSheet In ActiveWorkbook.Sheets If Not objSheet Is Sh Then objSheet.Cells(Target.row, 4) = Target.value Next objSheet Application.EnableEvents = True End If errEXIT: Application.EnableEvents = True End Sub

Beliebteste Forumthreads (12 Monate)

Nochmal: Gleiche Werte in mehreren Tabellenblätter

6
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

310 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Nochmal: Gleiche Werte in mehreren Tabellenblätter

6 Beiträge zum Forumthread Beiträge zu diesem Forumthread

310 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

6
Beiträge zum Forumthread

Beiträge zu diesem Forumthread