das letzte mal habe ich vor mehr als 15 jahren etwas im excel mit vba machen dürfen. nun soll ich eine kleine abfrage erstellen und komme nicht vom fleck und würde euch bitte mir zu helfen.
folgende ausgangslage:
es gibt ein blatt "übersicht" in dem eine zusammenfassung dargestellt werden soll. die übersicht soll von weiteren blättern (welche in der anzahl mehr werden und jede anders heißt) geholt werden. hierzu soll aus den anderen blättern jeweils der letzte eintrag (zeile) gesucht werden. vom letzten eintrag ausgehend sollen dieser und der oberhalb liegende eintrag kopiert (spalten a:i) werden und im blatt übersicht angezeigt werden.
ich kann zwar die letzte zeile finden - Cells(Cells(Rows.Count, 1).End(xlUp).Row, 1).Select
oder auch die letzten beiden zeilen und diese kopieren
Dim loLetzte As Long
With Worksheets("1824")
loLetzte = .Cells(.Rows.Count, 1).End(xlUp).Row
.Rows(loLetzte - 1 & ":" & loLetzte).Copy .Rows(loLetzte + 1)
'.Range(Cells(1, 2), .Cells(1, 3)).ClearContents
End With
oder auch noch die obersten zeilen aller blätter auf das blatt "übersicht" zu kopieren
Dim i, l As Long
l = Worksheets("übersicht").Cells(Rows.Count, 1).End(xlUp).Row + 1
For i = 4 To Sheets.Count
With Worksheets("übersicht")
.Cells(l, 1).Value = Sheets(i).Cells(2, 1).Value
.Cells(l, 2).Value = Sheets(i).Cells(2, 2).Value
.Cells(l, 3).Value = Sheets(i).Cells(2, 3).Value
.Cells(l, 4).Value = Sheets(i).Cells(2, 4).Value
.Hyperlinks.Add Anchor:=.Cells(l, 5), Address:="", _
SubAddress:="'" & Sheets(i).Cells(1, 2).Value & "," & Sheets(i).Cells(2, _
2).Value & "'!A1", TextToDisplay:="mehr..."
End With
l = l + 1
Next
aber ich schaffe es eben nicht dies so zu gestallten, wie oben angegeben. jeweils die letzten beiden zeilen (spalten a:i) zu transferieren.
dashalb ersuche ich euch um entsprechende hilfestellung
danke. gerlinde