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?Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden
Suche nach den besten AntwortenEntdecke unsere meistgeklickten Beiträge in der Google Suche
Top 100 Threads jetzt ansehen