|
Hallo BigBen,
erst mal VIELEN DANK für deine Hilfe.
ich habe das Mako so bei mir eingesetzt, alerdings bekomme ich ein Laufzeitfehler Nr.9 ?
Wie muss Ich das Anpassen das die Werte aus Tabelle1 Spalte F in Tabelle 2 in Spalte B geschrieben werden?
(Spalte A soll in beiden Tabellen gleich bleiben)
ich habe es so Versucht, aber ohne erfolg :(
Private Sub Worksheet_Change(ByVal Target As Range)
Dim rngDest As Range, rngSrc As Range
Dim iCol As Integer, iRow As Integer
Set rngDest = Application.ThisWorkbook.Worksheets("Tabelle2").Range("A:A,F:F")
Set rngSrc = Target.Worksheet.Range("A:A,B:B")
If Not Intersect(Target, rngSrc) Is Nothing Then
' Relative Position von Target zum rngSrc ermitteln
iCol = Target.Column - rngSrc.Column
iRow = Target.Row - rngSrc.Row
' Innerhalb des Zielbereichs die gleiche Zelle ändern
rngDest.Cells(iRow + 1, iCol + 1).FormulaR1C1 = Target.FormulaR1C1
End If
End Sub
|