Code ändern für mehrere Zellen
29.11.2012 13:09:49
MPH
leider meldet sich mein Förderer nicht mehr :-)
Ich habe einen Code bekommen, der eine Zelle beobachtet und Mir in einem anderen Tabellenblatt die geänderten Werte jeweils untereinander schreibt.
Private Sub Worksheet_Change(ByVal Target As Range)
Dim sZelle As String 'das beobachten
Dim wksOutput As Worksheet 'hierhin beobachten
Dim iColOut As Integer 'Spalte zum beobachten
Dim lRow As Long
'Zelle A1 beobachten
sZelle = "$A$1"
'hierhin die "Beobachtung" schreiben
Set wksOutput = Sheets("Sheet2") 'Tabellenname ändern!
iColOut = 1 'Output-Spalte ändern! A=1, B=2 usw
If Target.Address = sZelle Then
With wksOutput
lRow = .Cells(Rows.Count, iColOut).End(xlUp).Row + 1
if lRow Das funktioniert auch sehr schön. Nun wollte ich den Code so anpassen , dass ich mehrere Zellen beobachten kann und jeweils von jerder Zelle dann wieder eine Tabelle mit Werten untereinander steht neben der anderen.
Also soll dann in dem Tabellenblatt stehen.
8 10 2
6 13 4
7 16 4
0 18 5
7 11 7
4 12 9
Ich hatte es nun so versucht:
Private Sub Worksheet_Change(ByVal Target As Range)
Dim sZelle(15) As String 'das beobachten
Dim wksOutput As Worksheet 'hierhin beobachten
Dim iColOut(15) As Integer 'Spalte zum beobachten
Dim lRow As Long
Dim i As Long
Dim Beobachtungswerte As Long
Beobachtungswerte = 14
'Zelle A1 beobachten
For i = 2 To Beobachtungswerte
sZelle(i) = cells(9+1,7)
'hierhin die "Beobachtung" schreiben
Set wksOutput = Sheets("Verbindung") 'Tabellenname ändern!
iColOut(i) = 9 + i 'Output-Spalte ändern! A=1, B=2 usw
If Target.Address = sZelle(i) Then
With wksOutput
lRow = .Cells(Rows.Count, iColOut).End(xlUp).Row + 1
if lRow Vielen Dank schonmal
Gruß Michael
Anzeige