Herbers Excel-Forum - das Archiv

Zellwerte untereinander schreiben

Bild

Betrifft: Zellwerte untereinander schreiben
von: Jürgen

Geschrieben am: 15.02.2005 19:04:14
Hallo Excel Experten
Habe mir leider nicht gemerkt wer mir das letzt mal so gut geholfen hat. Aber ist ja auch egal auf jeden Fall nochmals vielen Dank.
folgene VBA Anweisung möchte ich umstellen
statt die Werte bei tabelle 1 in a1 und b1 einzugeben möchte ich in der Tab.1 in d20 und e20 Werte eingeben die dann in Tab.2 Spalte A und Spalte B untereinander geschrieben werden.
Hier das VBA:
Private Sub Worksheet_Change(ByVal Target As Range)
Dim lastTR As Integer
Dim tarWks As Worksheet
If Target.Address(False, False) = "A1" Then
Set tarWks = Worksheets("Tabelle2")
lastTR = tarWks.Range("A65536").End(xlUp).Row
tarWks.Cells(lastTR + 1, 1) = Target.Value
Target.Select
End If
If Target.Address(False, False) = "B1" Then
Set tarWks = Worksheets("Tabelle2")
lastTR = tarWks.Range("B65536").End(xlUp).Row
tarWks.Cells(lastTR + 1, 2) = Target.Value
Target.Select
End If
End Sub

Welche Variablen sind für die Eingabezellen zuändern ? Oder genauer welches sind überhaupt die Variablen der Zellen?
Vielen Dank für eine baldige Antwort.
Gruß Jürgen
Bild

Betrifft: AW: Zellwerte untereinander schreiben
von: chris b

Geschrieben am: 15.02.2005 19:11:19
Hoffe das ist das was du wolltest.Scheint mir zu einfach.
Private Sub Worksheet_Change(ByVal Target As Range)
Dim lastTR As Integer
Dim tarWks As Worksheet
If Target.Address(False, False) = "D20" Then
Set tarWks = Worksheets("Tabelle2")
lastTR = tarWks.Range("A65536").End(xlUp).Row
tarWks.Cells(lastTR + 1, 1) = Target.Value
Target.Select
End If
If Target.Address(False, False) = "E20" Then
Set tarWks = Worksheets("Tabelle2")
lastTR = tarWks.Range("B65536").End(xlUp).Row
tarWks.Cells(lastTR + 1, 2) = Target.Value
Target.Select
End If
End Sub

 Bild
Excel-Beispiele zum Thema "Zellwerte untereinander schreiben"
Summe einzelner Zellwerte ermitteln Von der Fundstelle eines Zellwertes abhängige Daten eintragen
Zellwerte über SpinButton und ScrollBar hochzählen Wahrheitsprüfung einer mit Zellwerten zusammengestzten Formel
Pfeilfarbe- und Bewegung abhängig von Zellwerten Bei Eintrag Datum aus Zellwerten zusammenstellen
Einfügen von Zeilen gem. Zellwerten Bei Blattwechsel anlegen einer Symbolleiste mit Zellwerten
Einlesen von Blattnamen und Zellwerten Aus verschiedenen Zellwerten zusammengesetzte Webadresse aufrufen