habe eine Tabelle, die aus mehreren Blättern besteht; der Aufbau dieser Blätter ist identisch. Mit dem folgenden Code frage ich einen bestimmten Wert in Spalte G ab, der dann in ein Zusammenfassungsblatt kopiert wird.
Private Sub GetPrevValue_Click()
' Sucht letzten Wert in Spalte G und überträgt vorletzten Wert nach 'Summary'
Dim wks1 As Worksheet, wks2 As Worksheet, Spalte As Integer
Set wks1 = ActiveWorkbook.Sheets("V07")
Set wks2 = ActiveWorkbook.Sheets("Summary")
Spalte = 7 ' Spalte die im wks1 durchsucht werden soll
wks2.Range("D5").Value = wks1.Cells(65536, Spalte).End(xlUp).Offset(-1, 0).Value
End Sub
Jetzt will ich den gleichen Vorgang noch für sieben weitere Blätter (X07, Y07 etc.) wiederholen, wobei die Werte dann nach D6, D7 etc. im Zusammenfassungsblatt übertragen werden sollen.
Könnte mir jemand sagen, an welcher Stelle der Code eine Wiederholungsfunktion haben muss, damit ich ihn -wie obenstehend- nicht sieben Mal schreiben muss.
Besten Dank & Gruß
Ralph