Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
1288to1292
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Code ändern für mehrere Zellen

Code ändern für mehrere Zellen
29.11.2012 13:09:49
MPH
Hallo Leute,
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 
Leider geht da garnichts mehr. Kann mir bitte jemand helfen. Ich komme nicht weiter.
Vielen Dank schonmal
Gruß Michael

1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Code ändern für mehrere Zellen
29.11.2012 18:28:57
schauan
Hallo Michael,
jetzt erst mal nur eins "auf den ersten Blick":
cells(9+1,7) wäre wohl besser cells(9+i,7)
Grüße, André
Anzeige

312 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige