ich möchte aus einer Liste den Wert der letzten Reihe einer Spalte in ein bestimmtes Feld übernehmen.
letzte Reihe ermitteln klappt ja. Aber die Zuweisung z.B. Range ("A3")= letzte Zeile,B
bekomme ich nicht den richtigen Ausdruck hin.
Reimund
Sub a()
'Bsp:
'A3 (aktives Blatt) soll den Wert der letzten befüllten Zelle
'aus Spalte B (aktives Blatt) erhalten
With ActiveSheet
.Range("A3").Value = .Range("B" & .Cells(.Rows.Count, 2).End(xlUp).Row)
End With
End Sub
LGPrivate Sub Worksheet_Change(ByVal Target As Range)
With Target
'AL = Spalte 38, AN = Spalte 40
If .Column = 38 Or .Column = 40 And _
.Cells.Count = 1 Then
With Me
'AM = Spalte 39
.Range("AM2").Value = .Range("AM" & _
.Cells(.Rows.Count, 39).End(xlUp).Row).Value
End With
End If
End With
End Sub
Code reagiert momentan nur auf einzelne geänderte Zellen in AL/AN - bei gleichzeitiger Änderung mehrerer Zellen, wird nicht in AM2 übertragen. Passt?