☰

Wenn Sie mit dem „Looping“ fertig sind, wählen Sie die erste Zelle im Bereich aus.

tag-icon • tag-icon microsoft-excel microsoft-excel-2010 vba
Wenn Sie mit dem „Looping“ fertig sind, wählen Sie die erste Zelle im Bereich aus.

Ich habe ein Skript, das Abschnitte auf einem Blatt durchläuft (Vorgehensweise beim Funktionstest) und fügt diese Werte in ein anderes Arbeitsblatt ein (Ergebnisse) in Zelle L2.

Die aktuelle Konfiguration besteht darin, die Anzahl der Abschnitte zu ermitteln, diese Werte zu kopieren und in dieErgebnisblattund wählen Sie die nächste leere Zelle in Spalte L aus.

Das funktioniert einwandfrei, solange die Taste nicht mehrfach gedrückt wird, denn bei mehrmaligem Drücken der Taste werden die kopierten Ergebnisse unter den bereits vorhandenen Ergebnissen eingefügt.

Ich möchte das Skript so ändern, dass es die verfügbaren Abschnitte durchläuft und dann Zelle L2 auswählt, um die aktualisierten Ergebnisse über die vorhandenen Ergebnisse einzufügen, wenn die Schaltfläche mehrmals gedrückt wird.

Das sollte eigentlich ganz einfach sein, aber ich komme nicht dahinter. Außerdem wurde der gewünschte Bereich mit „ATPResults“ bezeichnet.

Sub Copy_ATP_Tables()

 Dim SectionATP As Long, NextRow As Long

  For SectionATP = 1 To 35 '36

    NextRow = Sheets("Results").Range("L" & Rows.Count).End(xlUp).Row + 1 'Next empty row

    Sheets("Acceptance Test Procedure").Range("APTSec" & SectionATP).Columns("A:H").Copy _
    Destination:=Sheets("Results").Range("L" & NextRow) 'SpecialCells(xlCellTypeVisible)

'        Range("FTPSec" & Section).Columns("G:H").SpecialCells(xlCellTypeVisible).Copy _
'            Destination:=Sheets("Results").Range("N" & NextRow)

  Next SectionATP

'    Sheets("Results").Range("ATPResults").Select
'    For SectionATP = 35 To 35

End Sub

Antwort1

Ich hoffe, ich habe Ihre Frage verstanden. Ich habe sie so geändert, dass sie immer mit folgendem beginnt L2:

Sub Copy_ATP_Tables()

 Dim SectionATP As Long, NextRow As Long
 NextRow = Sheets("Results").Range("L" & 2) 'This line defines where to start 

  For SectionATP = 1 To 35 '36

    Sheets("Acceptance Test Procedure").Range("APTSec" & SectionATP).Columns("A:H").Copy _
    Destination:=Sheets("Results").Range("L" & NextRow) 'SpecialCells(xlCellTypeVisible)

    NextRow = Sheets("Results").Range("L" & Rows.Count).End(xlUp).Row + 1 'Moved to the end of the loop

  Next SectionATP
End Sub

verwandte Informationen