Letzte leere Zelle!
02.12.2003 11:50:52
Andre
mit folgendem Code kopiere ich eine Zeile in ein anderes Tabellenblatt:
Private Sub In_1_Kopieren(Kontrolle As String)
Dim LetzteZeile As Integer
Const Name_1 As String = "1"
With Sheets(Name_1)
LetzteZeile = .Cells(Cells.Rows.Count, 3).End(xlUp).Row
Sheets(Kontrolle).Range("b1:k1").Copy .Cells(LetzteZeile + 1, 3)
End With
End Sub
Jetzt möchte ich nach dem Kopiervorgang auf die gerade eingefügte Zelle zugreifen und die entsprechenden Zellen A und B berechnen lassen.
Also wenn z.B. die letzte leere Zeile die Zeile 5 war, dann wurde in Zeile 5 kopiert, jetzt brauche ich in A5 die Summe aus I5 und C5! In B5 dagegen die Summe aus I5 und E5!
Kann mir da jemand helfen, wie ich die Zeilen so allgemein halte!
Gruß Andre
Anzeige