Makro in Worksheet_Change bringen

Bild

Betrifft: Makro in Worksheet_Change bringen
von: Tim
Geschrieben am: 19.08.2015 08:59:34

Hallo zusammen,
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 < 191
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 < 191
       j = j + 4
       
       Sheets(2).Cells(r, c) = Cells(y, j)
       c = c + 3
     Loop
     y = y + 3
   Next i
         
         
         
  Next Zelle
End If
End Sub
Vielen Dank!
Gruß timo

Bild

Betrifft: AW: Makro in Worksheet_Change bringen
von: Matthias
Geschrieben am: 19.08.2015 14:11:57
Hallo Timo,
um das Ereignis auszulösen musst du im Tabellenblatt in dem du den Code hinterlegt hast im definierten Bereich ("A2:C10") etwas ändern. Funktioniert jedenfalls bei mir einwandfrei.
lg Matthias

 Bild

Beiträge aus den Excel-Beispielen zum Thema "Makro startet nicht automatisch"