Zellwerte untereinander schreiben
15.02.2005 19:04:14
Jürgen
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