wechselseitig kopieren
26.07.2003 20:04:18
sigi
nachstehenden Code habe ich von Herbers Archiv,
Der Code funktioniert bei 2 Tabellenblätter aber nicht wenn man
wie in meiner Arbeitsmappe dies von
Tabelle 1 zu Tabelle 2
Tabelle 3 zu Tabelle 4
Tabelle 5 zu Tabelle 6
Tabelle 7 zu Tabelle 8
Tabelle 9 zu Tabelle 10
tätigen will.
Wie muß ich nachfolhenden Code abwandeln.
Danke!
Gruß
Sigi
Option Explicit
Sub Duplizieren()
Dim Ac As Range
Set Ac = Application.Caller
If Worksheets(Ac.Parent.Name).Name = "Tabelle1" Then
Select Case Ac.Column
Case 1
Worksheets("Tabelle2").Cells(Ac.Row, 1) = Ac
End Select
Else
Select Case Ac.Column
Case 1
End Select
End If
Dim Ac As Range
Set Ac = Application.Caller
If Worksheets(Ac.Parent.Name).Name = "Tabelle3" Then
Select Case Ac.Column
Case 1
Worksheets("Tabelle4").Cells(Ac.Row, 1) = Ac
End Select
Else
Select Case Ac.Column
Case 1
Worksheets("Tabelle3").Cells(Ac.Row, 1) = Ac
End Select
End If
End Sub
usw.