Makro in Worksheet_Change bringen
19.08.2015 08:59:34
Tim
ich arbeite mit dem folgenden Makro, um Zellen aus zwei Tabellen zu verknüpfen:
Sub Werteübertragen()
Dim i As Integer, c As Integer, r As Integer, j As Integer, y As Integer
y = 1
For i = 1 To 60
r = r + 1
j = -3
c = 3
Do While j j = j + 4
Sheets(2).Cells(r, c) = Cells(y, j)
c = c + 3
Loop
y = y + 3
Next i
End Sub
Ich habe einmal versucht das Makro in ein Worksheet_Change Ereignis in Tabellenblatt2 zu überführen, damit die Werte auch ohne Makroaufruf übertragen werden.
Leider passiert durch den Code gar nichts
Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
Dim i As Integer, c As Integer, r As Integer, j As Integer, y As Integer
Dim rngBereich As Range
Dim Zelle As Range
Set rngBereich = Range("A2:C10")
If Not Intersect(Target, rngBereich) Is Nothing Then
For Each Zelle In Intersect(rngBereich, Target)
y = 1
For i = 1 To 60
r = r + 1
j = -3
c = 3
Do While j Gruß timo